Run time error 91 in vb:object variable or with block variable not set

**azzouz90** · 08/09/2011, 22h56

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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