J'essaye de remplir automatiquement le champs [nom_15] d'une table [T_INTERVENTION] en fonction d'un champs [PTC_15] (de la même table), en se basant sur les informations des champs [nom_1] et [PTC_1] de la table [T_FICHIER_CLIENTS].
avec les infos chopées à droite à gauche, je suis arrivé à ce code:
Private Sub PTC_15_AfterUpdate()
Dim db As Database
Dim rs As Recordset
Dim sql As String
Dim nom_15 As String
Set db = CurrentDb
sql = "SELECT [nom_1] FROM T_FICHIER_CLIENTS" & "WHERE [PTC_1]" = "&Forms!FORM_INTERVENTION![PTC_15]"
Set rs = db.OpenRecordset(sql)
rs.MoveFirst
While Not rs.EOF
nom_1 = rsnom_15
rs.MoveNext
Wend
Forms!FORM_INTERVENTION!nom_15 = nom_1
End Sub
à l'exécution, j'obtiens une erreur "3078", impossible de trouve la table ou requête.
mes 4 champs sont au format texte, zone de texte.
et je sèche...
