[Resolvido]Erro no código Excluir

Boa noite, me perdoem mas eu de novo.

O erro agora é no botão Excluir.
Veja o Código.

Código:

Private Sub btnExcluirBanco_Click()

If IsNull(Me.bancoCodigo) Then
MsgBox "Não existe registro a ser excluido.", vbCritical, "Sistema de Automação Comercial - Aviso"
Exit Sub
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
End If
DoCmd.Save
MsgBox " Cadastro excluído com sucesso!", vbInformation + vbOKOnly, " Sistema de Automação Comercial - Cadastros de Bancos!"

End Sub

É como dizem. se não errar não tentou, se não perguntar não aprendem..

Alguém sabem onde estou errando, pois não apaga nada..

Desde já Agradeço.

Boa noite Samuel, quando coloca uma condição, se ela for verdadeira vai para o código, caso contrário vai diretamente para o End If..

Portando conforme esta ai se BancoCodigo for nulo entra no if e encerra a sub no Exit Sub
Se não for nulo pula para o end if... portanto não executará a deleção.

Aplique o Else (caso contrário

		
			
Código:
			
If IsNull(Me.bancoCodigo) Then
MsgBox "Não existe registro a ser excluido.", vbCritical, "Sistema de Automação Comercial - Aviso"
Exit Sub
Else
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Save
MsgBox " Cadastro excluído com sucesso!", vbInformation + vbOKOnly, " Sistema de Automação Comercial - Cadastros de Bancos!"
End If
		

A propósito.. pode retirar o exit sub.

Cumprimentos.

Bom dia Piloto..

Muito obrigado pelo retorno, deu certo muito obrigado.
Graças a vocês deste fórum estou aprendendo e muito sobre o access.

Muito obrigado..

Só faltou clicar no joinha da mensagem que o auxiliou.

Cumprimentos.