j'ai un petit probleme sur l'ouverture d'un recordset:
je dispose d'une table T_fournir(num_four,num_produit,ref_produit) j'ai fait un formulaire form_dp qui contient un numéro de fournisseur num_four, et un sous formulaire sform_dp qui contient un numéro de produit num_produit. dans mon sous formulaire, je dispose d'un champ indépendant dans lequel je souhaiterai renseigner la référence du produit ref_produit, j'ai donc utilisé un recordset. le code est le suivant:
Dim Rst As Recordset Set Rst = CurrentDb.OpenRecordset(("SELECT * FROM T_fournir WHERE T_fournir.num_four=" & Forms!form_dp.num_four&" AND T_fournir.num_produit = " & Me.num_produit), dbOpenSnapshot) If Not Rst.EOF Then Me!ref = Rst!ref_produit End If Rst.Close
Marsh Posté le 19-05-2005 à 13:17:07
Bonjour,
j'ai un petit probleme sur l'ouverture d'un recordset:
je dispose d'une table T_fournir(num_four,num_produit,ref_produit)
j'ai fait un formulaire form_dp qui contient un numéro de fournisseur num_four, et un sous formulaire sform_dp qui contient un numéro de produit num_produit.
dans mon sous formulaire, je dispose d'un champ indépendant dans lequel je souhaiterai renseigner la référence du produit ref_produit, j'ai donc utilisé un recordset.
le code est le suivant:
Dim Rst As Recordset
Set Rst = CurrentDb.OpenRecordset(("SELECT * FROM T_fournir WHERE T_fournir.num_four=" & Forms!form_dp.num_four&" AND T_fournir.num_produit = " & Me.num_produit), dbOpenSnapshot)
If Not Rst.EOF Then
Me!ref = Rst!ref_produit
End If
Rst.Close
j'obtiens l'erreur suivante:
Erreur de compilation: Attendu
quelqu'un aurait il une solution?
d'avance merci