Déverrouiller un élément d'un formulaire [Résolu]

Signaler
Messages postés
76
Date d'inscription
vendredi 12 novembre 2004
Statut
Membre
Dernière intervention
15 juin 2009
-
Messages postés
76
Date d'inscription
vendredi 12 novembre 2004
Statut
Membre
Dernière intervention
15 juin 2009
-
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

Je vous remercie d'avance

10 réponses

Messages postés
76
Date d'inscription
vendredi 12 novembre 2004
Statut
Membre
Dernière intervention
15 juin 2009

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.


Voilà
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
107
Hum, c'est du VB6 ou du VBA ???
Messages postés
76
Date d'inscription
vendredi 12 novembre 2004
Statut
Membre
Dernière intervention
15 juin 2009

C'est du vb6
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12
Salut Darksidious,

Vu ses autres messages, je pense que c'est VB6...

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12
Salut,

Vérouiller comment ? Par ComboAdresse.Enabled = False ? Si tu veux le mettre actif c'est True..ou alors j'ai pas bien saisie ta demande...

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
107
J'ai jamais vu d'événement Open pour une feuille... d'où ma question
Private Sub Form_Open(Cancel As Integer)
Messages postés
76
Date d'inscription
vendredi 12 novembre 2004
Statut
Membre
Dernière intervention
15 juin 2009

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>
Messages postés
76
Date d'inscription
vendredi 12 novembre 2004
Statut
Membre
Dernière intervention
15 juin 2009

c'est du VBA pardon
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
107
C'est bien ce qu'il me semblait !

Je déplace vers le forum approprié !
Messages postés
83
Date d'inscription
vendredi 2 avril 2004
Statut
Membre
Dernière intervention
8 juillet 2012
1
combobox.enabled = false pour le verrouiller

= true pour le déverouiller