Discussion :

[PtiteNanou]

Bonjour,

dans mon formulaire j'ai une liste déroulante qui contient différentes sociétés. j'ai intégrer "autre" au cas où on ait à faire à une nouvelle société.
je voudrais donc que la sélection de "autre" donne accès à un champ de texte pour entrer cette nouvelle société, le cas échéant cette case est inactive.

j'ai donc essayé de faire avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub NumSOC_AfterUpdate()
Dim lngIDCat   As Long
Dim SQL        As String
'' Vérifie que l'on a cliqué sur une societe pour éviter le NULL
If Not IsNumeric(Me!NumSOC) Then Exit Sub
'' Affecte la valeur de NumSOC à la variable lngNumT
lngNumT = Me!NumSOC
'' Déverrouille la case AutreSociete
AutreSociete.Enabled = True
'' Donne le focus la case AutreSociete
AutreSociete.SetFocus

mais ça fonctionne pas très bien et ne focalise pas sur la sélection de "autre"

pourriez-vous me corriger ce code ??

merci

[Gabout]

Bonjour,

Tu peux essayer de gérer l'absence dans liste : lorsque tu entres par le clavier une société qui n'existe pas, on te propose de le créer.

Vas voir ici http://access.developpez.com/faq/?page=zdl#AbsDsListe

Bon courage