inserimento, eliminazione, aggiornamento e salvataggio di nuovi record in un oggetto data:
...cmdSalva
Dim a As VbMsgBoxResult
MsgBox "salvare i nuovi dati?", vbQuestion + vbOKCancel
If a = vbOK Then
dataClienti.Recordset.Update
ElseIf a = vbCancel Then
dataClienti.Recordset.CancelUpdate
End If
dataClienti.Recordset.MoveNext
...
...cmdModifica
dataClienti.Recordset.Edit
...
...cmdElimina
Dim b As VbMsgBoxResult
MsgBox "eliminare i dati del cliente corrente?", vbQuestion + vbOKCancel
If b = vbOK Then
dataClienti.Recordset.Delete
End If
dataClienti.Recordset.MovePrevious
...
...cmdAggiungi
dataClienti.Recordset.AddNew
...
Qualcosa non va!!! Mi aiutate?![]()