Dans un formulaire (de type tabulaire), quand je sélectionne un numéro dans une liste déroulante, les champs "Libellé" et "Prix" sont sensés se mettre à jour. Ca marche mais ca modifie également à jour tous les autres enregistrements du formulaire!!!!!!
Private Sub CODIFdéroul_AfterUpdate()Dim strsql As String
strsql = "SELECT Titre.TIT_PRIX, Titre.TIT_LIBEL FROM Titre WHERE Titre.TIT_CODIF = " & CODIFdéroul.Value & ";"
Dim db As Database
Set db = CurrentDb()
Dim rs As Recordset
Set rs = db.OpenRecordset(strsql, dbOpenDynaset)
PRIX = rs.Fields(0)
Libellé = rs.Fields(1)
End Sub
Partager