Bonjour
Je ne suis pas le roi du vba ni d'Access et ai besoin de votre aide. Une requête sur deux tables fonctionne correctement mais je suis incapable de récupérer les champs de la seconde table. Je dois probablement me planter sur la désignation du champ appro.Ref_appro
Pourriez-vous m'aider ?
Private Sub Bessai_Click()
Dim Srequete As String
Dim RSligne As Recordset: Dim DBbase As Database
Dim Sref_quantite As String: Dim Sref_appro As String
Set DBbase = Application.CurrentDb
' Requete multitables
Srequete = "SELECT detail_fiche_production.*, detail_fiche_production.id_fiche_production, appro.Ref_appro FROM appro INNER JOIN detail_fiche_production ON appro.id_appro = detail_fiche_production.id_appro "
Srequete = Srequete & " WHERE (((detail_fiche_production.id_fiche_production)=14))"
'creation du recordset
Set RSligne = DBbase.OpenRecordset(Srequete, dbOpenDynaset)
RSligne.MoveFirst
' parcours ligne/ligne
Do
Sref_quantite = RSligne.Fields("detail_fiche_production.id_fiche_production").Value 'marche
Sref_appro = RSligne.Fields("appro.Ref_appro").Value ' plante erreur 3265 Element non trouve dans cette collection
RSligne.MoveNext
Loop Until RSligne.EOF
'on ferme
RSligne.Close
DBbase.Close
Set RSligne = Nothing
End Sub
Au passage si qun peut m'expliquer comment insérer du code proprement dans les posts. Je vois tout le monde le faire. Merci
Partager