[Resolvido]Exclusão de Registros

Olá Pessoal !
Antes de mais nada,

Feliz Natal pra todos

Pessoal eu preciso de um código que quando eu fosse excluindo os registros e chegasse ao fim, ele
me avisasse que não há mais registros para excluir, Tem como?

Obs. Os registros estão no subFormulário.

Valeu Gente  

Tente assim, no botão excluir coloque:

Código:

Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
If rs.RecordCount > 0 Then
DoCmd.RunCommand acCmdDeleteRecord
Else
MsgBox "Ultimo Registro ja foi excluido"
End If
rs.Close

Olá Fábio, Boa Noite!

O código que você me passou funcionou beleza, Mas eu gostaria de fazer o seguinte:

Eu Tenho o seguinte código no botão excluir:

DoCmd.SetWarnings False
If MsgBox("Deseja mesmo excluir este item?", vbYesNo, "Atenção!") = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
Else
Cancel = True
End If
--------------------------------


Como eu junto esse código com o que você me mandou?

DoCmd.SetWarnings False
If MsgBox("Deseja mesmo excluir este item?", vbYesNo, "Atenção!") = vbYes Then

Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
If rs.RecordCount > 0 Then
DoCmd.RunCommand acCmdDeleteRecord
Else
MsgBox "Ultimo Registro ja foi excluido"
End If
rs.Close

DoCmd.SetWarnings True
Else
Cancel = True
End If

Experimente!!!

Cara! na mosca!

Valeu!!

Grato pelo retorno! Até a proxima se Deus quiser!

Boas Fesatas!