Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Problema com(ByVal Cancel As MSForms.ReturnBoolean)[RESOLVIDO]

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
kikoehu
Colaborador
Colaborador
Mensagens: 14
Registrado em: Sex Set 14, 2018 11:31 pm

Problema com(ByVal Cancel As MSForms.ReturnBoolean)[RESOLVIDO]

Mensagem por kikoehu »

Olá, sou meio leigo em questões de codificação e só sei o que aprendi aqui e em outros foruns e locais da web.
criei umas pasta habilitada com alguns userforms e nelas textbox e combobox para editar a planilhas ao clicar no botão. Minha dúvida é:
Meus textbox e combobox estão separados por quadros e utilizei um comando (ByVal Cancel As MSForms.ReturnBoolean) em cada textbox e combobox para impedir que sejam esquecidos de serem preenchidos, e deu resultado, porém o ultimo textbox ou combobox do quadro não ativa o comando quando aperto enter ou tab, e vai direto para o proximo campo, como resolver isso? segue comandos:
Private Sub Combobox11_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(ComboBox11.Text) = 0 Then
MsgBox "Selecione Sim ou Não para:Mudança na rotina do Imóvel?(festa,obra mais pessoas,animais,etc):", vbCritical, "AVISO!"
Cancel = True
ComboBox11.SelStart = 0
ComboBox11.SelLength = ComboBox11.TextLength
Else
End If
End Sub
Editado pela última vez por kikoehu em Sáb Set 15, 2018 4:25 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
excelflex
Colaborador
Colaborador
Mensagens: 20
Registrado em: Sex Set 14, 2018 7:03 pm

Re: Problema com(ByVal Cancel As MSForms.ReturnBoolean)

Mensagem por excelflex »

Coloca a planilha aí pra gente tentar ajudar...


kikoehu
Colaborador
Colaborador
Mensagens: 14
Registrado em: Sex Set 14, 2018 11:31 pm

Re: Problema com(ByVal Cancel As MSForms.ReturnBoolean)

Mensagem por kikoehu »

Na verdade a inserção da planilha através do combobox está ok, meu problema é que os ultimos campos de cada quadro não ativa o comando (ByVal Cancel As MSForms.ReturnBoolean), que deveria abrir um msgbox avisando que precisa ser preenchido tal campo, os demais funcionam normalmente, menos o ultimo de cada Quadro.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Problema com(ByVal Cancel As MSForms.ReturnBoolean)

Mensagem por Reinaldo »

Ao que parece os eventos do "ultimo controle em cada quadro" são sobrepostos pelos eventos desse "Quadro".
Assim o Exit desse controle acontece "simultaneamente" com o Exit do "quadro", sendo esse ultimo dominante.
Alternativa; talvez pois não experimentei/testei:
acrescentar um outro campo "invisivel", sem função, apenas para incluir um ponto de tabulação antes da saída do Frame ou
Testar experimentar outro evento do controle "Before_Exit" por exemplo


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


kikoehu
Colaborador
Colaborador
Mensagens: 14
Registrado em: Sex Set 14, 2018 11:31 pm

Re: Problema com(ByVal Cancel As MSForms.ReturnBoolean)

Mensagem por kikoehu »

Reinaldo escreveu: Sáb Set 15, 2018 8:14 am Ao que parece os eventos do "ultimo controle em cada quadro" são sobrepostos pelos eventos desse "Quadro".
Assim o Exit desse controle acontece "simultaneamente" com o Exit do "quadro", sendo esse ultimo dominante.
Alternativa; talvez pois não experimentei/testei:
acrescentar um outro campo "invisivel", sem função, apenas para incluir um ponto de tabulação antes da saída do Frame ou
Testar experimentar outro evento do controle "Before_Exit" por exemplo

Puxa Reinaldo, uma coisa simples e eu aqui quebrando a cabeça... A questão de colocar outro campo "invisível" deu certo, mas tiver que deixar visível pra poder funcionar, pois com a propriedade visible em false ficou a mesma coisa, mas contornei a situação formatando o campo,deixando da cor do bg pra ficar invisivel. Obrg pela dica!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder