Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
selecionar um textb...
 
Notifications
Clear all

selecionar um textbox especifico

 
2024 - VBA & Macros
3 Posts
1 Usuários
0 Reactions
628 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

até onde achava o codigo ".setfocus" selecionava um textbox,mas estou usando este código e não tá dando certo ; não é .setfocus que usa?

Private Sub txb_qtde1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   txb_soma1 = Format(txb_soma1, "#,##0.00")
  If txb_qtde1 = "" Then
retorno = MsgBox("Digite a Quantidade", vbRetryCancel, "Digite a Quantidade")
If retorno = vbRetry Then
  txb_qtde1.SetFocus
  Cancel = True
Else
If retorno = vbCancel Then
   Me.txb_prod1.Value = ""
   Me.txb_marca1.Value = ""
   Me.txb_unit1 = ""
   Me.txb_cod1.Value = ""
'   Me.txb_cod1.SetFocus   'se tirar o apostrofo para selecionar o txb_cod1 ;dá novamente a msgbox de retorno
   Exit Sub
   End If
   End If
   End If
  
End Sub

sem colocar o Me.txb_cod1.SetFocus o cursor vai para o proximo tabindex ,que é o tabindex3 , e eu preciso que vá para o txb_cod1 ou para um listbox1 , como faço para selecionar um dos dois?

 
Postado : 21/07/2012 6:37 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia Claudinei,, fazendo uns teste com o evento exti e retomando o setfocus verifiquei q o set focus não tem ação se utiliza o evento exit.
mas posta esse exemplo em anexo que é mais facil consguir soluções!

att MarkoSoftware

 
Postado : 22/07/2012 9:22 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Veja se vai dar certo...

Option Explicit
Dim bCanceled As Boolean

Private Sub txb_qtde1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    Dim retorno

    If bCanceled Then
        bCanceled = False
        Exit Sub
    End If

    txb_soma1 = Format(txb_soma1, "#,##0.00")
    If txb_qtde1 = "" Then
        retorno = MsgBox("Digite a Quantidade", vbRetryCancel, "Digite a Quantidade")
        If retorno = vbRetry Then
            txb_qtde1.SetFocus
            Cancel = True
        Else
            If retorno = vbCancel Then
                bCanceled = True
                Me.txb_prod1.Value = ""
                Me.txb_marca1.Value = ""
                Me.txb_unit1 = ""
                Me.txb_cod1.Value = ""
                Me.txb_cod1.SetFocus
            End If
        End If
    End If

End Sub
 
Postado : 22/07/2012 5:33 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico