[Resolvido]Verificar se já está cadastrado

Olá pessoal,

Tenho uma tabela para lançamento de duplicatas na qual tenho os campos CLIENTE e Nº_TÍTULO. O que preciso fazer é verificar se já existe o número do título cadastrado para o cliente. Exemplo:

Cliente = João
Título = 012478/01

Se já existir o título 012478/01 cadastrado para o cliente João, mostrar mensagem de que já existe um título com esse número para esse cliente.

Grato

Bom dia Amaral, ja pesquisou sobre o Dlookup aqui no Fórum?

Para isso com o Delookup obterá o resultado pretendido.

De uma pesquisada no Fórum sobre isto.

Qualquer coisa poste aqui.

Cumprimentos.

Piloto, tentei de todas as maneiras possíveis e não deu certo, o que pode estar errado?

If DLookup("[Nº_Título]", "tblDps", "[Nº_Título] = " & Me.Nº_Título & " And Cliente = 'Me.Cliente'") = " & Me.Nº_Título & " Then
MsgBox "Título número " & Me!Nº_Título & " já cadastrado para o cliente " & Me!Cliente & ", verifique...", vbOKOnly, "ATENÇÂO"
Me.Undo
End If
End Sub

Grato

Boas Amaral, caso possível poste um BD com a tabela e alguns registros para que eu possa testar.

Cumprimentos.

Me ocorreu algo... Ao invés do Dlookup, o Dcount.

If DCount("[Nº_Título]", "tblDps", "[Nº_Título] = " & Me.Nº_Título & " And Cliente = 'Me.Cliente'") => 1 Then
MsgBox "Título número " & Me!Nº_Título & " já cadastrado para o cliente " & Me!Cliente & ", verifique...", vbOKOnly, "ATENÇÂO"
Me.Undo
End If
End Sub

Podes testar assim:

MsgBox DCount("[Nº_Título]", "tblDps", "[Nº_Título] = " & Me.Nº_Título & " And Cliente = 'Me.Cliente'")

e observe que valor aparece na MsgBox


Cumprimentos.

Piloto, segue o BD que estou trabalhando completo. Sou novato em VBA portanto, qualquer sugestão será muito bem vinda.

Abs

Qual form envolvido?

Boa tarde Amaral, converta o seu BD em 2003 ou 2007, muitos usuários não trabalham com o 2010.

Aguardo.
Cumprimentos.

Piloto, o formulário é o frmDps.

Como faço a conversão para 2007?

Abs

no botão do Office... na barra de menus... Salvar como...


Cumprimentos.

Piloto, os bancos de dados criados no access 2010 não podem mais ser convertidos em formatos anteriores , alguma outra forma de me ajudar?

Grato

Rapaz... outros usuarios conseguiram isso...

veja se consegue ai...

Não sei como é mas outros o fizeram...

Cumprimentos.

Numeros: Aspas Duplas " "
Texto: Aspas Simples e Duplas '" "'


Instrução correta:

DCount("Nº_Título", "tblDps", "Nº_Título = " & Me.Nº_Título & " And Cliente = '" & Me.Cliente & "'")

Cumprimentos.

Piloto, nada feito. No formulário o campo cliente eh uma caixa de combinação, isso muda alguma coisa no código?

Estou usando assim e passa direto.

Private Sub Nº_Título_LostFocus()

If DCount("Nº_Título", "tblDps", "Nº_Título = " & Me.Nº_Título & " And Cliente = '" & Me.Cliente & "'") >= 1 Then
MsgBox "Título número " & Me!Nº_Título & " já cadastrado para o cliente " & Me!Cliente & ", verifique...", vbOKOnly, "ATENÇÂO"
Me.Undo
End If
End Sub

Abs

Mudei a extensão para mdb e parece que esta funcionando.

Abs

Claro que sim... Caixa de combinações tem suas informações expressas em colunas...

Private Sub Nº_Título_LostFocus()

If DCount("Nº_Título", "tblDps", "Nº_Título = " & Me.Nº_Título & " And Cliente = '" & Me.Cliente.Column(x) & "'") >= 1 Then
MsgBox "Título número " & Me!Nº_Título & " já cadastrado para o cliente " & Me!Cliente & ", verifique...", vbOKOnly, "ATENÇÂO"
Me.Undo
End If
End Sub


Onde X é o numero da coluna onde está a informação, lembrando que a primeira coluna é de número 0


Cumprimentos.

Piloto, nada feito, continua dando Falso e passando direto.

Segue o código que estou usando e o BD com extensão mdb.

Private Sub Nº_Título_AfterUpdate()

If DCount("Nº_Título", "tblDps", "Nº_Título = " & Me.Nº_Título & " And Cliente = '" & Me.Cliente.Column(0) & "'") >= 1 Then
MsgBox "Título número " & Me!Nº_Título & " já cadastrado para o cliente " & Me!Cliente & ", verifique...", vbOKOnly, "ATENÇÂO"
Me.Undo
End If
End Sub

OBS: Estou usando formulário desacoplado.

Aconselho a modifica o campo N°_Titulo na tabela... isso deu um erro em um exemplo que fiz...

prefira nomes assim:

CpNumTitulo
CpCliente...


e em caixas textos no form

Caixa texto = txtCliente
Combo = cboCliente
ListBox = lstCliente..


Bem... ao referenciar a combo na instrução estive observando que com o .column não resulta...

aplique .Value que é o valor ativo no objeto


If DCount("cpTitulo", "tblDps", "cpTitulo = " & Me.Titulo & " And Cliente = '" & Me.Cliente.Value & "'") >= 1 Then
MsgBox "Título número " & Me!Nº_Título & " já cadastrado para o cliente " & Me!Cliente & ", verifique...", vbOKOnly, "ATENÇÂO"
Me.Undo
End If

Piloto, nada feito, to quase desistindo...

Usei esse código e continua passando direto.

Private Sub Titulo_AfterUpdate()
If DCount("cpTitulo", "tblDps", "cpTitulo = " & Me.Titulo & " And Cliente = '" & Me.Cliente.Value & "'") >= 1 Then
MsgBox "Título número " & Me!Nº_Título & " já cadastrado para o cliente " & Me!Cliente & ", verifique...", vbOKOnly, "ATENÇÂO"
Me.Undo
End If
End Sub

OBS: Alterei o nome do campo na tabela para cpTitulo e o nome do controle no form para Titulo.

Alguém com mais alguma sugestão?

Grato

Piloto, consegui salvar o arquivo no formato 2003. Tem como dar uma olhada pra mim?

Formulario envolvido - frmDps
Tabela - tblDps

Grato

Olá

O campo cpTitulo também é do tipo string. O uso do apóstrofe(ou aspas duplas) é obrigatório.

Private Sub Titulo_AfterUpdate()
If DCount("cpTitulo", "tblDps", "cpTitulo = '" & Me.Titulo & "' And cliente = '" & Me.Cliente & "'") > 0 Then
MsgBox "Título número " & Me!Titulo & " já cadastrado para o cliente " & Me!Cliente & ", verifique...", vbOKOnly, "ATENÇÂO"
Me.Undo
End If
End Sub

Valeu Avelino, agora tah 100%, mais um caso resolvido.

Abs

POis.. como eu não havia baixado o exemplo, eu havia feito um modelo aqui porem eu estava utilizando campo numerico, por isto não estava a percerber isto.

Cumprimetos.

Blz Piloto, agradeço a atenção e a paciência...kkkk

O Fórum agradece o Retorno.