Access zone de texte déroulante

Pour compléter : Non pas valide si dans la liste, parce qu'alors tu choisis "Limité à liste = oui " . La condition "valide si " tu la rentres toi même en fonction de ce que tu veux obtenir ou au contraire rejeter, par négation comme l'exemple si dessus qui empêche d'inscrire les participants ayant plus de 20 ans.

Bonjour
Si tu inscris un faux N°, pour avoir une reponse il utilisé NotList de la facon suivante:
Private Sub ImmatRep_NotInList(NewData As String, Response As Integer)
MsgBox "Cliquez deux fois sur ce champ pour ajouter une entrée dans la liste."
Response = acDataErrContinue
End Sub
Dans le cas présent c'est une immatriculation de vehicule pour ouvrir un formulaire vierge lorsque l'immatriculation n'était pas dans la liste avec le message du MsgBox..
Maintenant si tu veux la procedure pour ouvrir un formulaire pour ajouter un N° a ta liste fais le savoir. Elle viendra en complement de celle-ci

Bonjour
Voici les 2 procedures lorsqu'il manque un enregistrement dans une liste.
Fonctionnement

1) Un enregistrement different de la liste fait appel de la procedure notlist.
2)Cette procedure demande de cliquer 2 fois pour ouvrir un formulaire dependant d'une teble ou requete a fin d'ajouter un enregistrement a la table dont dépend ta liste deroulante.

Dans le cas présent c'est le manque d'une immatriculation d'un véhicule
ImmatRep est le nom de la liste deroulant
Véhicules est le nom du formulaire

Private Sub ImmatRep_DblClick(Cancel As Integer)
On Error GoTo Err_ImmatRep_DblClick
Dim strImmatID As String
'Recherche une immatriculation
If IsNull(Me![ImmatRep]) Then
Me![ImmatRep].Text = ""
Else
strImmatID = Me![ImmatRep]
Me![ImmatRep] = Null
End If
'Ouverture du formulaire Véhicules
DoCmd.OpenForm "Véhicules", , , , , acDialog, "GotoNew"
Me![ImmatRep].Requery
If strImmatID <> 0 Then Me![ImmatRep] = strImmatID
Exit_ImmatRep_DblClick:
Exit Sub

Err_ImmatRep_DblClick:
MsgBox Err.Description
Resume Exit_ImmatRep_DblClick
End Sub

Private Sub ImmatRep_NotInList(NewData As String, Response As Integer)
'Abscence d'eneregistrement dans une liste
MsgBox "Cliquez deux fois sur ce champ pour ajouter une entrée dans la liste."
Response = acDataErrContinue
End Sub

Pour toi aussi et surtout une bonne santé