Originariamente inviato da Mychy
Tu stai usando DAO (che io non ho quasi mai usato), mentre io nell'esempio ho usato ADO.
L'errore
forse è dovuto al fatto che manca il riferimento alla libreria.
Prova il codice che ti ho postato funziona.
Set rs = New ADODB.Recordset
sql="select * from nometabella where nomecampo=condizioni"
rs.Open sql,CurrentProject.Connection, adOpenDynamic, adLockOptimistic
i=1
do while not rs.eof
rs.nomecampo=i
rs.Update
rs.movenext
i=i+1
loop
rs.Close
Set rs = Nothing
si', dovrebbe funzionare, se non che ci ho messo un errore
codice:
Public Sub Comando90_Click()
Dim i As Integer
Set rs = New ADODB.Recordset
sql = "select * from RegistroAcquisti"
rs.Open sql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
i = 1
rs.MoveNext
Do While Not rs.EOF
rs.Prot = i <<<<<<<<<
rs.Update
rs.MoveNext
i = i + 1
Loop
rs.Close
Set rs = Nothing
End Sub
Prot e' un campo numerico e il debugger mi dà 'Prorietà o metodo non supportati dall'oggetto'
I è un integer....quindi non capisco....perché non vada...mah!
Ti posto in PVT il link da dove downlodare ,se hai 1 minuto libero, il file mdb.