Access, liste déroulante et recordset

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 927 fois - Téléchargée 41 fois

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

Ajouter un commentaire

Commentaires

Commenter la réponse de Astaroth13

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.