USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  onde joga este codigo no text?
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 23/01/2008 13:25 hs            
Se o usuário clicar no botão de cancelar vc não vai precisar do telefone certo? Então não precisa validar o telefone. Vc só valida o telefone no botão de gravar a informação então o flag = 1 só qdo o usuário CANCELAR o cadastro.
 
Entendeu?
     
Edson479
SÃO PAULO
SP - BRASIL
Postada em 23/01/2008 14:38 hs            
não deu certo o seu gambiarra, mais mesmo assim muito obrigado eu vou fazer
com dois command um pra fezer consulta e o outro pra fecha assim dar certo.
ser vc der outra ideia eu fico no aguardo.
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 23/01/2008 14:46 hs            
Só tinha 1 botão? Ahhhhh bom... aí não vai dar certo mesmo... ok mas continuo vendendo a idéia de validar a coisa no botão... :)
 
falows!
     
ssbarbosa
não registrado
Postada em 23/01/2008 15:03 hs   

Por que voce não TIRA DO LostFocus e coloca no Validate

eX.:
Para Estados a serem validados.:

dim Const EstadosValidos = "BA DF ES GO RJ SC SP"

Private Sub txtUF_Validate(Cancel As Boolean)
on error .....

If Trim(txtUF.Text) = "" Then
  MsgBox " UF do CRF esta invalida... Verifique!"
  Cancel = True
  txtUF.SetFocus
  Exit Sub
End If

If (InStr(1, EstadosValidos, txtUF.Text)) = 0 Or Len(Trim(txtUF.Text)) <> 2 Then
  MsgBox " UF Esta invalida... Verifique"
  Cancel = True
  txtUF.SetFocus
  Exit Sub
End If


End Sub
     
Edson479
SÃO PAULO
SP - BRASIL
Postada em 23/01/2008 15:15 hs            
eu não entendi muito o seu codigo ssbarbosa mais vou testar depois do almoço, o melhor café da tarde, rsrsrs depois eu aviço
"Validate" ????
     
Edson479
SÃO PAULO
SP - BRASIL
Postada em 23/01/2008 15:43 hs            
ghost so tem
1 text = TXTPH consulta
1 command= Command10 pra fecha

tem vez quero fazer o impossível, rsrsrs

     
Página(s): 2/4     « ANTERIOR    PRÓXIMA »

CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página