Sujet Précédent Sujet Suivant

*** URGENT:CA ME GAVE !!!!***

yoarf Messages postés 215 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 19 février 2009 - 29 avril 2004 à 15:27
yoarf Messages postés 215 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 19 février 2009 - 29 avril 2004 à 15:55
Chercher l'erreur je desespere (il m'affiche trop peu de paramètes , 1 attendu)

Dim rst As Recordset
Dim db As Database
Dim MyDate
Dim xl As Excel.Application

Set xl = CreateObject("Excel.Application")
MyDate = Date

Set db = CurrentDb()
Set rst = db.OpenRecordset("R_Visual1")
rst.MoveFirst

MsgBox rst.Fields("CodeContrat")
Y.C

2 réponses

Réponse 1 / 2
HFanny Messages postés 699 Date d'inscription mercredi 19 février 2003 Statut Membre Dernière intervention 13 mai 2011 20
29 avril 2004 à 15:36
Bonjour,

Tout simplement, lorsque tu ouvres un recordset :

Set rst = db.OpenRecordset("R_Visual1",dbOpenDynaset)

Voilà

Fanny
0
Réponse 2 / 2
yoarf Messages postés 215 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 19 février 2009
29 avril 2004 à 15:55
désolé mais ça change rien, tjs le même message d'erreur
Y.C
0
Rejoignez-nous