[Resolvido]MsgBox com informação identificadora

Boa noite !
Preciso de ajuda novamente, e corro para vocês;

quando cadastro o CPF do Cliente, se já estiver cadastrado executa uma mensagem " CPF já Cadastrado"
Como fazer para aparecer o nome do Cliente na mensagem, tipo
" Este Cpf está cadastrado para Pedro Paulo da Silva " , ou seja, o nome do cliente que já existe no sistema para aquele CPF, (NomeDoCliente).

Private Sub CPF_BeforeUpdate(Cancel As Integer)

If (Not IsNull(DLookup("[CPF]", "Clientes", "[CPF] = '" & Me!CPF & "'"))) Then
MsgBox "Este CPF já está cadastrado."
Cancel = True 'cancela o evento.
Me!CPF.Undo 'desfaz a digitação.

End If

End Sub

Roxo

Tente assim:


Private Sub CPF_BeforeUpdate(Cancel As Integer)

If (Not IsNull(DLookup("[CPF]", "Clientes", "[CPF] = '" & Me!CPF & "'"))) Then
MsgBox "Este CPF é do cliente " & NomeDoCliente & " ."Cancel = True 'cancela o evento.
Me!CPF.Undo 'desfaz a digitação.

End If

End Sub

Bom dia João Afonso, obrigado pelo retorno
Fiz da maneira que você passou, mas na MsgBox retorna o nome do cliente que estou cadastrando no momento, o que eu gostaria era que a MsgBox retorne o nome do cliente que já está cadastrado.
Imagina a situação, existe um cliente cadastrado com nome Pedro Pereira da Silva Pedroso, depois de algum tempo vem um pedido do cliente Pedro P. S. Pedroso, se a MsgBox não retornar o nome do cliente que já está cadastrado, como o usuário vai descobrir os sobrenomes que estão abreviados.
Espero ter explicado direito

Roxo

Boa tarde, Roxo
If Not IsNull(DLookup("[CPF]", "Clientes", "[CPF] = '" & Me!CPF & "'")) Then
MsgBox "Este CPF é do cliente " & DLookup("[CPF]", "Clientes", "[CPF] = '" & Me!CPF & "'")
Me!CPF.Undo 'desfaz a digitação.
End If

Olá Roxo,

Tenta assim:

Private Sub CPF_BeforeUpdate(Cancel As Integer)
Dim StrNome As String

If (Not IsNull(DLookup("CPF", "Clientes", "CPF = '" & Me!CPF & "'"))) Then
StrNome = (DLookup("NomeCliente", "Clientes", "CPF = '" & Me!CPF & "'"))
MsgBox ("Este CPF é do cliente: " & StrNome)
Cancel = True 'cancela o evento."
Me!CPF.Undo 'desfaz a digitação.

End if

End Sub


Pode ser que resolva.

Nivaldo

Alexandre Neves, obrigado pela ajuda, o seu código retorna o nº do CPF, utilizei o código do amigo Nivaldo, funcionou perfeitamente, retorna o nome do cliente já cadastrado. Muito Obrigado pelo retorno

Nivaldo, utilizei o código que você enviou, ficou perfeito, muito obrigado a você, o Alexandre Neves e o João Afonso
Valeu

Só mais uma mãozinha, como faço para números, funciona perfeito, só que o numero que retorna é digamos 2500 e eu gostaria que retornasse "R$ 2.500,00", entendeu o numero retorna simples e eu gostaria que retornasse com pomto e virgula.

Roxo

Format(SuaInformaçãoNumero,"Currency")


Ps. no código do Alexandre utilizando o Dlookup bastaria substituir o Nome CPF pelo Nome

If Not IsNull(DLookup("[CPF]", "Clientes", "[CPF] = '" & Me!CPF & "'")) Then
MsgBox "Este CPF é do cliente " & DLookup("[NomeCLiente]", "Clientes", "[CPF] = '" & Me!CPF & "'")
Me!CPF.Undo 'desfaz a digitação.
End If


Cumprimentos.

Grande mestre PILOTO !
Pode me explicar onde muda o código, o de baixo eu tenho, mas gostaria que aparecesse o valor com ponto e virgula.

Private Sub Atualiza_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

If [Comparativo] = 0 Then
MsgBox "O Valor deste Cheque já está todo comprometido"
End If
'até aqui ok

'Abaixo gostaria que aparecesse o valor do campo [Comparativo]com ponto e virgula
'Tipo assim " A soma das parcelas ultrapassa em R$ 1.500,00 o valor do cheque"
'Este R$ 1.500,00 é o valor do campo [Comparativo]
'Tenho atualmente assim;
If [Comparativo] < 0 Then
MsgBox "A Soma das Parcelas relacionadas a este Cheque somam valor superior ao Cheque.", vbExclamation
End If

mas gostaria que o usuário recebesse a informação com o valor incluído
o Campo [Comparativo] é não acoplado, serve só para receber o valor da diferença no formulário

Veja se me expliquei ou se te confundi mais

Roxo

como aparece o valor normal na caixa comparativo?


CUmprimentos.

Mas a informação deve ser ao mesno assim: 2.500 ai com o format modificaremos para moeda..

Grande Piloto, desculpa a falha, eu te passei como está agora, quando tentei colocar para aparecer o valor na MsgBox estava assim

MsgBox " A soma das parcelas ultrapassa em " & Me![Comparativo] &" o valor do cheque."
e o que aparecia na msgBox
"A soma das parcelas ultrapassa em 1500 o valor do cheque."
queria deixar assim
"A soma das parcelas ultrapassa em R$ 1.500,00 o valor do cheque."
Como não consegui, deixei daquela maneira que passei antes, mas gostaria de mudar.
O [Comparativo] é não acoplado, Formato unidade monetária, com 2 casas decimais

O que notei é que se [comparativo] for 1,231,10; a mensagem fica assim;
"A soma das parcelas ultrapassa em 1231,1 o valor do cheque."

Eu não sei como configurar para aparecer ponto e virgula e as casas decimais

Roxo

https://dl.dropbox.com/u/26441349/Roxo.rar


Cumprimentos.

Piloto

Muito obrigado, ficou 100%
Se vc fosse gaucho seria colorado Rsrsrs

Valeu amigão

Roxo

Roxo,
Sempre que resolver a dúvida, marque o Resolvido

Alexadre... O Grande... rsrs

O Fórum agradece o Retorno.