Acces à deux tables access en meme temps [Résolu]

Signaler
Messages postés
26
Date d'inscription
mercredi 9 avril 2008
Statut
Membre
Dernière intervention
19 mai 2010
-
Messages postés
26
Date d'inscription
mercredi 9 avril 2008
Statut
Membre
Dernière intervention
19 mai 2010
-
bj. jveu testerl'existance de deux codes de deux tables differentes sous access avec vb6 mé g pa arriver à le faire.svp aider moi. mon code est:

Set DBComar = OpenDatabase(App.Path & "\comar1.mdb")
Set RScomar = DBComar.OpenRecordset("Select * from immeuble, contrat")
Set SNcomar = DBComar.OpenRecordset("Select codim from immeuble")
Set SNcomar = DBComar.OpenRecordset("Select numcont from contrat")

RScomar.FindFirst "codim ='" & Text2.Text & "'"
If RScomar.NoMatch = False Then
RScomar.FindFirst "numcont =" & Text1.Text
 If RScomar.NoMatch = False Then
 MsgBox " Ce numero existe déjà. tapez un autre", vbInformation, "Information"

3 réponses

Messages postés
584
Date d'inscription
jeudi 28 décembre 2006
Statut
Membre
Dernière intervention
29 avril 2010
1
Set SNcomar = DBComar.OpenRecordset("Select codim from immeuble")
Set SNcomar = DBComar.OpenRecordset("Select numcont from contrat")

Quel et le type de cette variable SNcomar ?

Si c'est un recordset... tu deverais probablement utiliser 2 variables différentes non ?

<hr size="2" width="100%" />  zen69 aka Ortho Le Profett
  [site web]
Messages postés
26
Date d'inscription
mercredi 9 avril 2008
Statut
Membre
Dernière intervention
19 mai 2010

bj. c exactement ce ke tu ma proposé!! merci bcp
Messages postés
26
Date d'inscription
mercredi 9 avril 2008
Statut
Membre
Dernière intervention
19 mai 2010

slt. jsé pourkoi ce bloc ne fonctionne pas?!! il maffiche comme erreur"non reconnue"
pourtant kil est fonctionnel dans un autre projet!!
Set dbcomar = OpenDatabase(App.Path & "\comar1.mdb")