COMANDO SETFOCUS NAO FUNCIONA

NSTOLBERG 31/05/2012 09:48:17
#403214

Segue..

http://www.4shared.com/office/BZql0bAh/Comando_SetFocus.html

Obrigado.

NILSONTRES 31/05/2012 10:11:04
#403217

Você tem codigo no evento keypress do formulario ?
If KeyAscii = vbKeyReturn Then
SendKeys ([Ô]{TAB}[Ô])
KeyAscii = 0
End If

Nos meus projetos tenho que colocar o DoEvents, se não acontece exatamente isso que vc esta citando.

NSTOLBERG 31/05/2012 10:19:39
#403219

NILSONTRES,

Tenho não.
Coloquei esse seu código no KeyPress do Form e recoloquei o DoEvents na rotina. Infelizmente, e para meu desespero..hehe..não funcionou.

Acho que o SetFocus tá bravo comigo por algum motivo.

Obrigado novamente.

CASTELO 31/05/2012 10:59:28
#403224

Campeão, tenta ai esse código

Ele ao teclar o ENTER faz o cursor voltar ao [Ô]CODREFUGO[Ô], falta você adaptar a sua rotina



Private Sub REFUGO_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Me.CODREFUGO.SetFocus: Me.CODREFUGO.Value = [Ô][Ô]
End Sub

NSTOLBERG 31/05/2012 11:09:34
#403228

CASTELO...

Vc é o cara....

Muitíssimo obrigado pela paciencia e pela ajuda velho.
Fico de devendo uma.

Funfo que é uma uva...