|
|
Postada em 12/05/2004 20:08 hs
Olá... Pessoal,
Preciso de ajuda urgente no programa
semi desenvolvido, vejamos...
Eu queria o "ALERTA" (VbCritical)
fosse disparado no caso de usuário
tentasse digitar o nome já existente
e não que o mesmo ficasse em branco.
'---------------------------------------------------------------------------------- Private Sub txtContato_LostFocus()
Set Tblcadastro = BD.OpenRecordset("Tblcadastro", dbOpenTable)
Tblcadastro.Index = "contato" ' Campo Indexado no BD c/ ou não duplicado.
Tblcadastro.Seek "=", txtContato.Text ' verifica se o que foi digitado existe
If Tblcadastro.NoMatch = True Then ' Nao existe
Else
MsgBox txtContato.Text & ", Contato já existe cadastrado no Banco de Dados.", vbCritical, "Contato"
txtContato.SetFocus
End If
End Sub
'-------------------------------------------------------------------------------------------------
Se for possível enviarei por e-mail a rotina completa para ser testado. c/ 21,1Kb,
e só assim o usuário irá entender do que se trata.
Grato,
|
|
|
|
|
|
|
|
Postada em 13/05/2004 07:08 hs
Private Sub txtContato_LostFocus() if Trim$(txtContato)="" then exit sub 'Se campo em branco não acontece nada
Set Tblcadastro = BD.OpenRecordset("Tblcadastro", dbOpenTable)
Tblcadastro.Index = "contato" ' Campo Indexado no BD c/ ou não duplicado.
Tblcadastro.Seek "=", txtContato.Text ' verifica se o que foi digitado existe
If Tblcadastro.NoMatch = True Then ' Nao existe
Else
MsgBox txtContato.Text & ", Contato já existe cadastrado no Banco de Dados.", vbCritical, "Contato"
txtContato.SetFocus
End If
End Sub
"IF FUNCIONOU = TRUE THEN  BLOQUEIE O POST ELSE  POST NOVAMENTE INFORMANDO O QUE ACONTECEU ENDIF 
|
|
|
|
|
|
Postada em 13/05/2004 14:22 hs
Vaughyman, Came out right, “It Valued” ... You is an excellent professional. Thankful!!! Deu certo, “Valeu” ... Você é um excelente profissional. Obrigado!!! |
|
|
|
|
