Access, liste déroulante et recordset

Commenter

Contenu du snippet

Le but est de créér un mot qui n'existe pas dans la liste déroulante. pour cela l'utilisateur tape le mot clef qu'il désire intégrer à la base de donnée.
Cette fonction fait appel à une requête SQL, puis doit mettre à jour la TABLE MOTS_CLES et pour finir actualiser la liste déroulante.

Source / Exemple : 


Private Sub CodeDiscipline_NotInList(NewData As String, Response As Integer)
On Error Resume Next

Dim valeurRetour As Integer
Dim maBase As Database
Dim strLibelle_Mot_Clef As String

strLibelle_mot_clef = NewData
Set maBase = CurrentDB()

valeurRetour = MsgBox("Voulez-vous créer ce nouveau Mot Clef :" & strLibelle_Mot_clef, vbOKCancel)

If (valeurRetour = 1) Then

Dim jeuxdenro As Recordset
Dim strCode_Mot_Clef As Integer
Dim Sqlstr As String

Sqlstr = "SELECT Identifiant_Mot_clef, Mot_clef FROM MOTS_CLEFS;"

Response = acDataErrAdded

Set jeuxdenro = maBase.OpenRecordSet(Sqlstr,dbOpenDynaset)
With jeuxdenro
.AddNew
!Mot_clef = strLibelle_Mot_clef
.Update
End With

Else
'Annulation par l'utilisateur
CodeDiscipline.Value = CodeDiscipline.OldValue
Response = acDataErrContinue
End If
End Sub

Conclusion :


J'ai un pb, il me dit de sélectionner un élément de la liste. Peut on m'aider!!!!!!!!!!!!!!!!!

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.