VBA ACCESS

vincefield Messages postés 4 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 25 février 2003 - 25 févr. 2003 à 17:12
cs_wape Messages postés 262 Date d'inscription samedi 21 décembre 2002 Statut Membre Dernière intervention 19 décembre 2010 - 25 févr. 2003 à 21:33
salut

j'ai un probleme ds ma déclaration peuvez vous m'aider

Dim db As Database
Dim rs As Recordset

Set db = CurrentDb

---> Set rs = db.OpenRecordset("PIXA_STD_QUERY")
RUN TIME ERROR 13 TYPE MISMATCH je ne comprend pas trops... suis en vba ds access 2000

Merci

3 réponses

cs_yaya31 Messages postés 125 Date d'inscription lundi 3 février 2003 Statut Membre Dernière intervention 11 décembre 2003
25 févr. 2003 à 17:45
il faut que tu mettes
Set rs = db.OpenRecordset("PIXA_STD_QUERY", dbOpenDynaset) Je crois que ça devrait marcher.

:shy) Amaya ;)
vincefield Messages postés 4 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 25 février 2003
25 févr. 2003 à 19:24
ca ne fonctionne pas... j'ai la meme erreur...

Private Sub toto()

Dim db As Database
Dim rec As Recordset

Set db = CurrentDb
Set rec = db.OpenRecordset("PIXA_STD_QUERY", dbOpenDynaset)

End Sub

Merci :)
cs_wape Messages postés 262 Date d'inscription samedi 21 décembre 2002 Statut Membre Dernière intervention 19 décembre 2010 12
25 févr. 2003 à 21:33
Il faut vérifier les références existantes (cf. Outils/Références... dans l'éditeur VBA).

Si tu as à la fois une référence DAO et ADO, il faut que la référence DAO apparaisse, dans la liste, avant la référence ADO. Pour changer la priorité, il suffit d'utiliser les deux boutons représentant une flèche vers le haut, resp. vers le bas.

Slts

wape
Rejoignez-nous