Opendatabase / workspace

cs_MKL Messages postés 1 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 4 février 2003 - 4 févr. 2003 à 11:19
thiemsy Messages postés 8 Date d'inscription lundi 14 janvier 2002 Statut Membre Dernière intervention 12 mars 2003 - 10 mars 2003 à 14:53
Voila je n'arrive po a acceder a mon openrecordset
Voila mon code

OuvrirBase = False

' Ouverture du workspace
Set wsbase = DBEngine.Workspaces(0)

' Ouverture de la base.
Set db = wsbase.OpenDatabase(psfichier, False, False)

OuvrirBase = True

Set rsTVA = db.OpenRecordset("Tiers") --> Ca plante ici

Le programme plante sur la dernière ligne.

Si vous avez une solution, merci de me la donner

1 réponse

thiemsy Messages postés 8 Date d'inscription lundi 14 janvier 2002 Statut Membre Dernière intervention 12 mars 2003
10 mars 2003 à 14:53
Salut

lorsque tu veux accécder au champs de ta table par la méthode OpenRecodset mets en paramètre une requête SQL.
Essaie ceci :

Set rsTVA = db.OpenRecordset("SELECT Tiers FROM NOM_DE_TA_TABLE")
if rstTVA.recordcount > 0 then
rstTVA.movefirst
Do while not rstTVA.EOF
msgbox "Valeur du champs Tiers : " & rstTVA.fields("Tiers")

rstTVA.movenext
Loop

end if

Bon courage
0
Rejoignez-nous