con questo codice mi elimina sempre il primo record del database e non quello selezionato. Utilizzo DAO (sono obbligato)


Dim dbsDatiAgobase As Database
Dim rstAnagrafica As Recordset
Dim sql As String


Set dbsDatiAgobase = OpenDatabase("c:\pippo\dati.mdb")
Set rstAnagrafica = dbsDatiAgobase.OpenRecordset("Anagrafica")

Dim MsgConferma As String

MsgConferma = rstAnagrafica!Cognome & " " & rstAnagrafica!Nome & vbCrLf & "Confermi l'eliminazione?"

'Se si risponde Si alla richiesta di conferma, cancella il record
If MsgBox(MsgConferma, vbYesNo + vbExclamation, "Eliminazione") = vbYes Then
With rstAnagrafica
.Delete
.MoveNext
End With
'Se sono alla fine torna all'ultimo
If rstAnagrafica.EOF Then rstAnagrafica.MoveLast
End If