[Resolvido]Botão Para Excluir Registro Com Base em Critérios

Ola Pessoal
Procurei algo no fórum mas não Localizei algo que se encaixe no que eu preciso, isso talvez seja algo bem fácil mas não conseguir fazer.

Tenho um formulário FCliente, nele tem uma guia com uma lista ListaRelaçãoCliente, quero um botão para excluir o Registro Cliente mas que antes de excluir verifique na ListaRelaçãoCliente se tem algum lançamento, caso tenha, mostre uma mensagem que exitem registros para o cliente e não permitir a Exlusão, e mover para a guia da lista Para que a pessoa veja as relações, Caso não tenha Lançamentos na ListaRelaçãoCliente, exclua o registro e mostre uma mensagem de excluido com sucesso.
Nome dos Objetos
Formulário = FCliente
Guia = Relações
Lista = listaRelaçãoCliente

Aguardo

Código:

If DCount("*", "NomeDaTabela", "Código=" & Me.Código) > 0 Then
    MsgBox "Existe lançamento..."
Else
    CurrentDb.Execute "DELETE FROM NomeTabela WHERE Código=" & Me.Código & ""
    MsgBox "A besteira foi feita. Agora é tarde para reclamações"
End If

Ola, Obrigado Pela Resposta, mas não deu certo

coloquei o evento no clique de um botão, essa linha fica amarela
If DCount("*", "TContrato", "IdCliente=" & Me.Codigo) > 0 Then

Acho que falta um evento para cancelar caso essa condição seja verdadeira..

Só Acho, não entendo essas coisas, Aguardo

Um pitaco amigos!

Correção ao código do Amigo Criquio
If DCount("*", "NomeDaTabela", "Código = " & Me.Código & "") > 0 Then

Código Corrigido

Código:

If DCount("*", "NomeDaTabela", "Código = " & Me.Código & "") > 0 Then
    MsgBox "Existe lançamento..."
Else
    CurrentDb.Execute "DELETE FROM NomeTabela WHERE Código=" & Me.Código & ""
    MsgBox "A besteira foi feita. Agora é tarde para reclamações"
End If

Vale ressaltar que quando o tipo de dados do campo for Numérico usando somente uma aspas duplas (" & Me.Campo & ") quando texto usamos uma simples e uma aspa dupla ('" & Me.Campo & "'").

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

E o nome do campo aonde está a chave primária é realmente IDCliente na tabela e Código no formulário? Geralmente costuma ser o mesmo nome tanto na tabela quanto no formulário.

Ola, Jeferson de Paula
Agora deu certo a exclusão, eu só precisaria de mais uma coisa, que antes de efetuar a exclusão, aparecesse uma mensagem de confirmação, tipo quer realmente excluir esse registro?

o Código está assim

Código:

Private Sub Excluir_Click()
If DCount("*", "TContrato", "IdCliente = " & Me.Codigo & "") > 0 Then
    MsgBox "Existe lançamento para esse cliente, não será possível efetuar a exclusão, verifique na aba relações..."
Else
    CurrentDb.Execute "DELETE FROM TClientes WHERE Codigo=" & Me.Codigo & ""
    MsgBox "Cliente excluído com sucesso."
End If
End Sub

Então aplique a seguinte linha de comando:

Código:

Private Sub Excluir_Click()
    If DCount("*", "TContrato", "IdCliente = " & Me.CODIGO & "") > 0 Then
        MsgBox "Existe lançamento para esse cliente, não será possível efetuar a exclusão, verifique na aba relações..."
    Else
        If MsgBox("Você tem certeza que deseja excluir o registro atual?", vbQuestion + vbYesNo, "Deseja Excluir?") = vbYes Then
            CurrentDb.Execute "DELETE FROM TClientes WHERE Codigo=" & Me.CODIGO & ""
                MsgBox "Cliente excluído com sucesso."
                    DoCmd.CancelEvent
                        Exit Sub
        End If
    End If
End Sub

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

Agora Sim Amigos, Perfeito, Muito obrigado ao criquio e Jeferson de Paula pela ajuda, um grande abraço.

Eu faria assim:

Código:

Private Sub Excluir_Click()
    If DCount("*", "TContrato", "IdCliente = " & Me.CODIGO & "") > 0 Then
        MsgBox "Existe lançamento para esse cliente, não será possível efetuar a exclusão, verifique na aba relações..."
    Else
        If MsgBox("Você tem certeza que deseja excluir o registro atual?", vbQuestion + vbYesNo, "Deseja Excluir?") = vbYes Then
            CurrentDb.Execute "DELETE FROM TClientes WHERE Codigo=" & Me.CODIGO & ""
            MsgBox "Cliente excluído com sucesso."
        Else
            MsgBox "Exclusão cancelada."
        End If
    End If
End Sub

Se não quiser mensagem de cancelamento, nem precisa de mais nada depois da linha da mensagem de exclusão e antes do End If, pois, se clicar em Não, nada acontecerá, não sendo preciso cancelar o evento:

Código:

Private Sub Excluir_Click()
    If DCount("*", "TContrato", "IdCliente = " & Me.CODIGO & "") > 0 Then
        MsgBox "Existe lançamento para esse cliente, não será possível efetuar a exclusão, verifique na aba relações..."
    Else
        If MsgBox("Você tem certeza que deseja excluir o registro atual?", vbQuestion + vbYesNo, "Deseja Excluir?") = vbYes Then
            CurrentDb.Execute "DELETE FROM TClientes WHERE Codigo=" & Me.CODIGO & ""
            MsgBox "Cliente excluído com sucesso."
        End If
    End If
End Sub

Assim, são menos linhas de código, menos caracteres nas linhas, tamanho do banco menor um pouco.

O que o amigo Criquio sugeriu também é válido. O Fórum agradece o retorno!

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?