Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Set.Focus perde o f...
 
Notifications
Clear all

Set.Focus perde o foco

 
2024 - VBA & Macros
6 Posts
2 Usuários
0 Reactions
1,616 Visualizações
RSS
 Jose_da_Silva
(@jose_da_silva)
Posts: 24
Eminent Member
Topic starter
 

Caros amigos tenho uma aplicação onde esta ocorrendo uma situação em que após fazer a critica do campo CPF o cursor não volta para o mesmo campo, apesar do comando do Set.Focus, ocorrendo então um salto para o próximo campo. Resumi minha aplicação no exemplo anexo, cujo campo CPF é o segundo. O que me ocorreu é que o VBA pode estar perdendo o foco em razão de uma chamada de uma function para validar o CPF. Já fiz o teste trocando a function por uma procedure e aí o foco não se perde. Como resolver o problema mantendo a function na aplicação ?

 
Postado : 18/08/2012 2:15 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Favor ler as regras do fórum, seu arquivo deve ser compactado!!

viewtopic.php?f=7&t=204
Use Shift + TAB, para voltar ao campo anterioir!!
Att

 
Postado : 18/08/2012 2:39 pm
 Jose_da_Silva
(@jose_da_silva)
Posts: 24
Eminent Member
Topic starter
 

Boa noite!!

Favor ler as regras do fórum, seu arquivo deve ser compactado!!

viewtopic.php?f=7&t=204
Use Shift + TAB, para voltar ao campo anterioir!!
Att

Não entendi. Compactar um arquivo de 20 Kb ?????

 
Postado : 18/08/2012 4:13 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

É!!!!

Quesito REGRAS
Upload de arquivos
Ja temos mais de 1,5GB em arquivos aqui no Planilhando, e como não geramos $$$, temos que ser austeros no uso da banda e recursos, por isso, segue novas regras pra upload de arquivos:
-Tamanho máximo: 2Mb
-Formato obrigatório: .Zip - .rar - .ice

..Veja viewtopic.php?f=7&t=3148

Att

 
Postado : 18/08/2012 4:25 pm
 Jose_da_Silva
(@jose_da_silva)
Posts: 24
Eminent Member
Topic starter
 

Boa noite!!

É!!!!

Quesito REGRAS
Upload de arquivos
Ja temos mais de 1,5GB em arquivos aqui no Planilhando, e como não geramos $$$, temos que ser austeros no uso da banda e recursos, por isso, segue novas regras pra upload de arquivos:
-Tamanho máximo: 2Mb
-Formato obrigatório: .Zip - .rar - .ice

..Veja viewtopic.php?f=7&t=3148

Att

Ok! Segue anexco arquivo *.zip.

 
Postado : 18/08/2012 6:38 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Altere o local para declaração da variavel : erro_digito As Boolean, da rotina CPF para o inicio do modulo, como Global.
Motivo: Variavel declarada na rotina, sómente fica visivel/valida na rotina, então apesar da função check CPF (DVCPF) "seta-la" como True, na rotina TextBox2_BeforeUpdate permanece como False
Ficará assim:

Dim erro_digito As Boolean

Private Sub CommandButton1_Click()
   End
End Sub
.......
 
Postado : 19/08/2012 6:16 am
Forum Jump:
  Tópico Anterior
Próximo Tópico