Run time error 91 in vb:object variable or with block variable not set
slt,
mon probléme c'est que j'essaie de connecté un prog vb avec une base de donneés access en utilisant adodc,ça marche pour la premiére table mais les problémes commence quand j'ai essayés de faire une autre connexion avec une autre table de la mm base avec adodc2 mais ça marche pas...
d'abord j'ai crus que je ne peux pas connectés deux adodc sur une mm table,alors j'ai crée une autre base contenant la deuxiéme table et ça marche encore pas.
voici le programme
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Private Sub Command3_Click()
Dim i As Integer
Adodc2.Recordset.MoveFirst
Do Until Adodc2.Recordset.EOF = True
Adodc1.Recordset.MoveFirst
i = 0
Do Until Adodc1.Recordset.EOF = True
If Adodc2.Recordset("date heure") = Adodc1.Recordset("dateheure") Then
i = i + 1
Adodc1.Recordset.MoveNext
Else
Adodc1.Recordset.MoveNext
End If
Loop
Adodc2.Recordset("count") = i
Adodc2.Recordset.Update
Adodc2.Recordset.MoveNext
Loop
End Sub |
resultat:Run time error 91 in vb:object variable or with block variable not set au niveau de la ligne n°3
merci d'avance :)
