[Resolvido]Impedir a Exclusão

Tenha a tabela tblClientes onde estão todos os clientes cadastrados no sistema e tenha a tabela tblReceitas onde estão cadastradas todas as contas à receber e recebidas.

Na tabela de receitas tenho os campos CodigoCliente e Quitado(os campos que quero utilizar)

No formulário frmListaClientes tenho um botão excluir e uma caixa de listagem lstClientes.

Ao clicar do botão excluir quero que ele verifique na tabela de Receitas se há clientes lançado (pelo CodigoCliente) e verifique se há contas em Aberto. Se tiver contas em aberto(ou seja não Quitada) impedir a exclusão desse cliente.

Veja o Código que estou tentando fazer isso:


Dim varItem As Variant
If IsNull(Me.lstClientes) Then
MsgBox " Nenhum Cliente Selecionado Para Eliminar!", vbCritical, " Aviso "
Exit Sub
End If
If (Not IsNull(DLookup("[CodigoCliente]", "tblReceitas", "[CodigoCliente] ='" & Me!txtCodigoCliente & "' and [Quitado]='" & Não & "'"))) Then

MsgBox "O Cliente " & Me.lstClientes.Column(2) & Chr(10) + "Não pode ser excluido, pois há contas em Aberto.", vbQuestion, " Aviso "
Exit Sub
End If

For Each varItem In Me.lstClientes.ItemsSelected
If MsgBox("Eliminar Ciente ? " & Me.lstClientes.Column(2), vbYesNo + vbQuestion, "Aviso") = vbYes Then
CurrentDb.Execute "DELETE * FROM tblClientes WHERE Codigo =" & Me.txtCodigoCliente & ""
MsgBox "Cliente Anulado com Sucesso!", vbOKOnly + vbInformation, "Aviso"
Else
Me.lstClientes.Selected(varItem) = False
Exit Sub
End If

Next varItem
Me.lstClientes.Requery




Alguém pode me ajudar?

Será que você pode me ajudar em outra coisa.

Tenho o formulário que lista todos os clientes cadastro, como meu sistema é para várias empresas coloquei um criterio para filtrar pela empresa logada, ai esta tudo certo, mais adicionei outro criterio para pesquisar pelo nome do cliente, mas esta com erro.

Então são dois criterios em uma consulta.

Veja o código:

Código:



Dim SQLCliente As Variant
SQLCliente = "SELECT Codigo,DataCadastro,Nome,Pessoa,Doc1,Doc2,Endereco,Bairro,CEP,Cidade, " & _
"UF,Telefone,Celular,Email,LocalFoto,CodiegoEmpresa,NomeEmpresa " & _
"FROM tblClientes WHERE Nome=ALike Form!frmListaClientes!txtBusca & " * " AND NomeEmpresa=[Formulários]![frmListaClientes]![txtNomeEmpresa];"
Me.lstClientes.RowSource = SQLCliente



Esta com um erro, veja o banco de dados.

É porque eu preciso que ao abrir ele abra somente com os clientes de um Empresa logada.

E ao pesquisar da caixa de texto pesquise somente o clientes desta empresa.

Exemplo:
Na tabela tenho:
Cliente 1 - Empresa 1
Cliente 2 - Empresa 2
Cliente 3 - Empresa 3
....

Abro o sistema seleciono a Empresa 1, ao abrir do formListaClientes deverá somente aparecer:

Cliente 1 - Empresa 1

Se selecionar Empresa 2:

Cliente 2 - Empresa 2


Por isso preciso que ao abrir filtre pela nome da empresa que foi selecionada. E ao pesquisar filtre pelo nome da empresa selecionada e o nome do cliente que foi digitado na caixa de texto.

Ok, muito obrigado.