[Resolvido]Código botão excluir

Bom dia Amigos,
Em um botão excluir coloquei o seguinte código:

Private Sub btexcluir_Click()
If IsNull(Me!cli_Nome) Then Exit Sub
If MsgBox("Confirma a exclusão do cliente " & vbCrLf & vbCrLf & Me!cli_Nome, vbQuestion + vbYesNo, "Confirmação") = vbNo Then Exit Sub
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
DoCmd.ShowAllRecords
Me!cli_Nome.SetFocus
End Sub

Estava funcionando perfeitamente, mas agora está dando o seguinte erro:
Erro em tempo de execução '2046'
O comando ou ação 'Excluir registro' não está disponível no momento.

Não sei o que aconteceu, alguem pode me ajudar??
grato

Olá Henry,

Procure sempre tornar o seu código o mais legível possível. Veja como poderia ficar com maior legibilidade:

Código:

Private Sub btexcluir_Click()
If IsNull(Me!cli_Nome) Then
Exit Sub
Else
If MsgBox("Confirma a exclusão do cliente " & vbCrLf & vbCrLf & Me!cli_Nome, vbQuestion + vbYesNo, "Confirmação") = vbNo Then
Exit Sub
Else
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
DoCmd.ShowAllRecords
Me!cli_Nome.SetFocus
End If
End If
End Sub

Olá Good Guy
Obrigado pelo retorno e desculpe pelo código vou tomar mais cuidado da próxima vez, coloquei o código conforme orientou mas continua dando erro.
Att

Olá Henry,

Comigo funfa direitinho. Verifique se o nome do campo está correto. Um pequeno detalhe pode alterar tudo.

Ok Obrigado