cs_monaco63
Messages postés76Date d'inscriptionvendredi 12 novembre 2004StatutMembreDernière intervention15 juin 2009
-
24 août 2007 à 09:52
cs_monaco63
Messages postés76Date d'inscriptionvendredi 12 novembre 2004StatutMembreDernière intervention15 juin 2009
-
27 août 2007 à 11:26
Bonjour à tous,
Je souhaiterai savoir comment faire pour déverrouiller seulement un combobox de mon formulaire, car pour le moment à l'ouverture de mon formulaire, je dois empêcher l'utilisateur de modifier les valeurs, mais par contre il peut sélectionner un nom dans la liste déroulante.
Mais vu que je bloque le formulaire, l'utilisateur ne peut que cliquer sur le nom sans le sélectionner
Voici mon code lors de l'ouverture du formulaire
Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
Me.AllowAdditions = True
Me.AllowEdits = True
Else
Me.AllowAdditions = False
Me.AllowEdits = False
End If
'Release GVB02007
Dim Ident As String
Dim lssql As String
Dim rsNom As Recordset
lssql = "SELECT * FROM tAdresse"
Set rsNom = CurrentDb.OpenRecordset(lssql)
rsNom.MoveFirst
Ident = "toto"
'Affiche directement le nom de l'utilisateur quand celui-ci se connecte
Do Until rsNom.EOF
If Ident = rsNom.Fields("IDENT") Then
Me.ComboAdresse = rsNom.Fields("NOM")
End If
rsNom.MoveNext
Loop
Set rsNom = Nothing
End Sub
cs_monaco63
Messages postés76Date d'inscriptionvendredi 12 novembre 2004StatutMembreDernière intervention15 juin 2009 27 août 2007 à 11:26
J'ai trouvé une solution, en effet j'ai créé deux évènements le premier sur l'obtention du focus (avec GetFocus) je lui demande de tout me débloquer avec Me.AllowEdits = True.
Ensuite, j'utilise un deuxième évènement qui est sur le Click quand l'utilisateur sélectionne un nom, là je rebloque mon formulaire avec Me.AllowEdits = False puis je déplace mon focus sur un autre objet de mon formulaire.
cs_monaco63
Messages postés76Date d'inscriptionvendredi 12 novembre 2004StatutMembreDernière intervention15 juin 2009 24 août 2007 à 10:24
Quand mon formulaire s'ouvre, il vérifie s'il y a des enregistrements par le biais du code ci-dessous :
Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
Me.AllowAdditions = True
Me.AllowEdits = True
Else
Me.AllowAdditions = False
Me.AllowEdits = False
End If
Moi je dispose d'enregistrement donc il passe dans la condition Else, donc il me bloque le formulaire pour que personne ne puisse saisir ou modifier les enregistrement.
Je souhaite débloquer une combobox qui affiche le nom de la personne. Pour le moment, je ne peux pas sélectionner de nom dans ma combo puisque mon formulaire ne permet aucunes modifications à cause Me.AllowAdditions False et <gras>Me.AllowEdits False</gras>