Erreur 13 imcompatibilité de type Access 2016

Loann181 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
Loann181 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai un problème d'erreur 13 imcompatibilité dans mon programme VBA dans access 2016. Je n'arrive pas à trouver la sour du problème. Le débluggeur m'indique que ça serait dans la zone en gras.

Option Compare Database

Private Sub liste_ref_Change()
Dim ligne As Recordset: Dim base As Database

Set base = Application.CurrentDb
Set ligne = base.OpenRecordset("SELECT Designation, Quantite FROM Catalogue WHERE code_article='" & liste_ref.Value & "'", dbOpenDynaset)

End Sub

Merci en avance de votre aide !
A voir également:

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Bonjour,
Avez-vous passe le curseur souris sur les différentes variables pour voir leur affectations?
0
Loann181 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Oui ! Il y a juste la réponse de dbOpenDynaset qui me donne 2 que je ne suis pas sur. Pour les reste me donne la bonne valeur.
0