[Resolvido]Botão excluir

Olá,

Eu tenho este código para o botão excluir do meu frm.
Entretanto, eu queria que após digitar os código do cliente, ele retornasse com os dados do cliente a ser excluído, antes de confirmar a exclusão. Qual comando tenho que utilizar? grata

Private Sub bt_excluir_Click()
'Tratamento de erro
On Error GoTo Err_Delete

Dim numRecord As Integer
numRecord = InputBox("Informe o código do Cliente:", "teste de mensagem")

If MsgBox("Deseja excluir o registro " & numRecord & "?", vbQuestion + vbYesNo, "teste de mensagem!") = vbYes Then

Dim SQL As String
DoCmd.SetWarnings False 'Aviso de execução
SQL = "DELETE * FROM TblCliente WHERE CodigoCliente = " & numRecord
DoCmd.RunSQL SQL
MsgBox "Operação realizada com sucesso!", vbInformation, "teste de mensagem!"

Else
MsgBox " Ação cancelada pelo usuário", vbInformation, " teste de mensagem"

Exit Sub

End If
DoCmd.RunCommand acCmdRefresh
DoCmd.GoToRecord , , acNewRec


Exit_Delete:
Exit Sub

Err_Delete:
MsgBox "Erro número: " & Err.Number & vbLf & vbLf & Err.Description, vbCritical, "teste de mensagem"

Resume Exit_Delete
End Sub

Olá! Você pode substituir o SQL por um Recordset assim:

Private Sub bt_excluir_Click()
'Tratamento de erro
On Error GoTo Err_Delete

Dim rs As Recordset, numRecord As Integer
Set rs = CurrentDb.OpenRecordset("tblCliente")
numRecord = InputBox("Informe o código do Cliente:", "teste de mensagem")

If MsgBox("Deseja excluir o registro " & numRecord & "? Confira os dados do mesmo abaixo:" & VBCRLF & VBCRLF & "Nome: & " & rs!CampoDoNome & VBCRLF & "Endereço: " & rs!CampoDoEndereço, vbQuestion + vbYesNo, "teste de mensagem!") = vbYes Then

rs.Delete

MsgBox "Operação realizada com sucesso!", vbInformation, "teste de mensagem!"

Else
MsgBox " Ação cancelada pelo usuário", vbInformation, " teste de mensagem"

Exit Sub

End If

rs.Close
Set rs = Nothing

DoCmd.GoToRecord , , acNewRec

Exit_Delete:
Exit Sub

Err_Delete:
MsgBox "Erro número: " & Err.Number & vbLf & vbLf & Err.Description, vbCritical, "teste de mensagem"

Resume Exit_Delete
End Sub

Postamos meio ao mesmo tempo. Só uma correção no meu exemplo:

Dim rs As Recordset, numRecord As Integer
numRecord = InputBox("Informe o código do Cliente:", "teste de mensagem")
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblCliente WHERE Código=" & numRecord & "")

Funcionou muito bem, na verdade melhor do que eu esperava.
Muito obrigada ;D

Ficamos felizes que tenha funcionado. Obrigado pelo retorno.