Ciao chiocciola80 "cosa intendi " come salvo la scheda corrente e passo al record succesivo automaticamente?"

cmq. se usi Dao e un controllo data puoi usare una cosa del genere

codice:
Private Sub Command3_Click()
Dim RISP As Integer
If Command3.Caption = "Salva" Then
 RISP = MsgBox("Salvo i dati correnti ?", vbInformation + vbYesNo, Me.Caption)
  If RISP = vbYes Then
   Data1.Recordset.Update
     Data1.Recordset.Movenext
       Data1.Refresh
     Else
       Data1.Recordset.Movelast
  End If
End If
se ho capito male scusami sciaoooooooo