Access 2003 : liste déroulante non limitée

Comment cela fonctionne:
Quand tu mets dans la liste un nom qui ne figure pas,un message te demande cliquer 2 fois sur le champ . Cela ouvre un formulaire issu de ta liste deroualante. Tu remplis le champavec le nouveau nom Celui ci ce retrouve dans la table, puis dans ta liste deroulante.

Voici les deux procedures a ajouter dans les propriétes de ta liste deroualntes.

Propriété absence dans la liste

Private Sub RéfTypeRessource_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

Propriété double clic

Private Sub RéfTypeRessource_DblClick(Cancel As Integer)
On Error GoTo Err_RéfTypeRessource_DblClick
Dim lngResourceTypeID As Long

If IsNull(Me![RéfTypeRessource]) Then
Me![RéfTypeRessource].Text = ""
Else
lngResourceTypeID = Me![RéfTypeRessource]
Me![RéfTypeRessource] = Null
End If
DoCmd.OpenForm "Types de ressources", , , , , acDialog, "GotoNew"
Me![RéfTypeRessource].Requery
If lngResourceTypeID <> 0 Then Me![RéfTypeRessource] = lngResourceTypeID

Exit_RéfTypeRessource_DblClick:
Exit Sub

Err_RéfTypeRessource_DblClick:
MsgBox Err.Description
Resume Exit_RéfTypeRessource_DblClick
End Sub