io sono arrivato a questo punto..
codice:
---------------------------------------------------------------------------------------
Private Sub Command1_Click()
Set Cn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Set Cn2 = New ADODB.Connection
Set Rs2 = New ADODB.Recordset
Cn.CursorLocation = adUseClient
Cn.Open "Provider=Microsoft.Jet.OleDb.4.0;Data Source=C:\Documents and Settings\BarbaraG\Desktop\Progetto Stage\Programma\Movimentazioni.mdb"
Rs.Open "Select * from Movimenti", Cn, adOpenForwardOnly, adLockOptimistic, adCmdTableDirect
Cn2.CursorLocation = adUseClient
Cn2.Open "Provider=Microsoft.Jet.OleDb.4.0;Data Source=C:\Documents and Settings\BarbaraG\Desktop\Progetto Stage\Programma\LibroCespiti.mdb"
Rs2.Open "Select * from LibroCespiti2", Cn, adOpenForwardOnly, adLockOptimistic, adCmdTableDirect
'contare tutti i record presenti
'While Not rs2.EOF
'conta = conta + 1
'rs2.MoveNext
'Wend
conta = Rs2.RecordCount
'rs2.MoveFirst
If Rs("Inserimento") = "" Then
Rs("Inserimento") = "Inserito"
Rs.Update
codiceM = Rs("Codice_Cespite")
annoM = Rs("Anno")
importoM = Rs("Importo")
Rs.MoveNext
conta2 = conta2 + 1
Else
Rs.MoveNext
conta2 = conta2 + 1
End If
---------------------------------------------------------------------------------------
e avviene in questa riga:
---------------------------------------------------------------------------------------
Rs2.Open "Select * from LibroCespiti2", Cn, adOpenForwardOnly, adLockOptimistic, adCmdTableDirect
---------------------------------------------------------------------------------------
eppure io ce l'ho quella tabellaqualche suggerimento??
grazie
PS: insieme vi metto anche il link dove poter scaricare il progetto se vi va meglio darci un'occhiata lì:
http://rapidshare.com/files/24843687...ramma.zip.html
Grazie ancora