|
|
Postada em 30/07/2005 00:01 hs
Tente usar apenas meucampo.setfocus exemplo txtNome.setfocus veja tb se naum ha um problema de compatibilidade do objeto como evento ...
Tiago Gomes Pereira
------------------------------------
MSN: algodasirs@hotmail.com
E-mail: algodas@gmail.com
|
|
|
|
|
|
|
|
Postada em 30/07/2005 10:36 hs
Olá aclentz. Eu criei um form com um TextBox(com name meucampo) e um CommandButton(com name meubotao) e fiz assim: Private Sub Form_Load()
Me.meucampo.Text = "" 'Para limpar o TextBox
End Sub Private Sub meubotao_Click()
If Me.meucampo.Text = "" Then 'Verifica se o TextBox está vazio
Me.meucampo.SetFocus 'Caso o TextBox esteja vazio o Textbox receberá ação
Else 'Caso o TextBox tenha algo escrito
MsgBox (Me.meucampo.Text) 'Aparecerá uma mensagem contendo o conteúdo do TextBox
End If 'Finaliza a verificação
End Sub
Visite meu Site:
|
|
|
|
|
|
Postada em 01/07/2011 13:41 hs
oi pessoal me ajudem!
ta dando erro quando eu executo o programa e cliko em incluir
dai aparece o erro no set focus do codigo
Private Sub cmdIncluir_Click()
cmdIncluir.Enabled = True
cmdExcluir.Enabled = True
cmdGravar.Enabled = True
cmdAnterior.Enabled = True
cmdProximo.Enabled = True
cmdSair.Enabled = True
LimpaFormulario
txtCodigo.SetFocus da o erro bem aqui
|
|
|
|
|
|
Postada em 01/07/2011 16:12 hs
Cara preste atenção, se vc está carregando o FORM (LOAD) é obvio que o campo (meucampo) ira está em branco (vázio), tente modificar a propriedade TABINDEX = 0!
|
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 01/07/2011 16:16 hs
UUU deixa-me te fazer uma pergunta, pq vc colocou (cmdIncluir.Enabled = True), visto que ele só funcionara se vc clicar no mesmo botão (não fez sentido)!
Quanto ao erro do (txtCodigo.SetFocus), poste o código que está no (LimpaFormulario), pois o erro pode estar lá!
|
|
|
|
