Erreur 13 imcompatibilité de type Access 2016

Fermé
Loann181 Messages postés 2 Date d'inscription dimanche 7 avril 2019 Statut Membre Dernière intervention 9 avril 2019 - 7 avril 2019 à 18:12
Loann181 Messages postés 2 Date d'inscription dimanche 7 avril 2019 Statut Membre Dernière intervention 9 avril 2019 - 9 avril 2019 à 00:09
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 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
8 avril 2019 à 07:31
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 dimanche 7 avril 2019 Statut Membre Dernière intervention 9 avril 2019
9 avril 2019 à 00:09
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