Ciao..

qualcuno mi sa dire come mai se inserisco il seguente codice :

With rsAppoggio
.AddNew
.Fields("progr").Value = numvoci + 1
.Fields("scadenza").Value = lblScadenza(numvoci)
.Fields("totale").Value = lblTotale(numvoci)
.Fields("banca").Value = lblBanca(numvoci)
.Fields("agenzia").Value = lblAgenzia(numvoci)
.Fields("ditta").Value = lblIntestazione(numvoci)
.Fields("numerofattura").Value = lblNumFattura(numvoci)
.Fields("data").Value = lblData(numvoci)
End With

all'interno di una sub command1_click() funziona mentre se sposto il codice
in una sub di datagrid1.rowcolchange mi dà l'errore 'object required'
sull'istruzione addnew ?

la definizione di questo recordset è all'interno della form_initialize ed è
la seguente :

Dim rsAppoggio As New ADODB.Recordset

With rsAppoggio
.Fields.Append "progr", adSmallInt
.Fields.Append "scadenza", adDate
.Fields.Append "totale", adDouble
.Fields.Append "banca", adChar, 50
.Fields.Append "agenzia", adChar, 30
.Fields.Append "ditta", adChar, 50
.Fields.Append "numerofattura", adInteger
.Fields.Append "data", adDate
.Open
End With

dove sbaglio ?


Grazie