CONFIGURACAO EM MASKEDBOX
Pessoal, tou com um problema em MaskEdBox...
fiz um script para não permitir deixá-las vazias...
porém, mesmo digitando as horas nas caixas a mensagem para [Ô]Informar a Hora...[Ô] surge...
sei que é porque o valor digitado fica no evento texto (Text) da MasEdBox...então como posso fazer para impedir que deixem as Mask[ô]s vazias ???
fiz um script para não permitir deixá-las vazias...
If mk1.Mask = [Ô]##:##[Ô] Then
MsgBox [Ô]Informe a Hora Inicial.[Ô]
mk1.SetFocus
Exit Sub
ElseIf mk2.Mask = [Ô]##:##[Ô] Then
MsgBox [Ô]Informe a Hora Final.[Ô]
mk2.SetFocus
Exit Sub
Else
.....
porém, mesmo digitando as horas nas caixas a mensagem para [Ô]Informar a Hora...[Ô] surge...
sei que é porque o valor digitado fica no evento texto (Text) da MasEdBox...então como posso fazer para impedir que deixem as Mask[ô]s vazias ???
Seria isso...
If mk1.text = vbnullstring Then
MsgBox [Ô]Informe a Hora Inicial.[Ô]
mk1.SetFocus
Exit Sub
ElseIf mk2.text = vbnullstring Then
MsgBox [Ô]Informe a Hora Final.[Ô]
mk2.SetFocus
Exit Sub
else
......
If mk1.text = vbnullstring Then
MsgBox [Ô]Informe a Hora Inicial.[Ô]
mk1.SetFocus
Exit Sub
ElseIf mk2.text = vbnullstring Then
MsgBox [Ô]Informe a Hora Final.[Ô]
mk2.SetFocus
Exit Sub
else
......
Não funcionou... já tinha tentado com : If mk1.text = EmptyThen
mas sem sucesso...
mas sem sucesso...
Tente assim:
If mk1.Text = [Ô] : [Ô] Then
MsgBox [Ô]Informe a Hora Inicial.[Ô]
mk1.SetFocus
Exit Sub
ElseIf mk2.Text = [Ô] : [Ô] Then
MsgBox [Ô]Informe a Hora Final.[Ô]
mk2.SetFocus
Exit Sub
Else
Abraço
If mk1.Text = [Ô] : [Ô] Then
MsgBox [Ô]Informe a Hora Inicial.[Ô]
mk1.SetFocus
Exit Sub
ElseIf mk2.Text = [Ô] : [Ô] Then
MsgBox [Ô]Informe a Hora Final.[Ô]
mk2.SetFocus
Exit Sub
Else
Abraço
E se você colocar assim:
If mk1.text = [Ô]__:__[Ô] Then....
Talvez funcione.
Qualquer coisa poste novamente
Até mais.
If mk1.text = [Ô]__:__[Ô] Then....
Talvez funcione.
Qualquer coisa poste novamente
Até mais.
OK pessoal !
Eu estava errando na hora de colocar o bloqueio na condição...
O Text da MaskEdBox que estava colocando era de [Ô] _:_[Ô] (apenas um sinal [Ô]On The Line[Ô]),
então coloquei [Ô]__:__[Ô] (dois sinais [Ô]On The Line[Ô]) e problema resolvido !
o código ficou assim :
Agradeço a todos pelas dicas, e vou pontuar o PERCIFILHO pois foi observando sua dica que encontrei onde estava meu erro.
Valeu !!!
Eu estava errando na hora de colocar o bloqueio na condição...
O Text da MaskEdBox que estava colocando era de [Ô] _:_[Ô] (apenas um sinal [Ô]On The Line[Ô]),
então coloquei [Ô]__:__[Ô] (dois sinais [Ô]On The Line[Ô]) e problema resolvido !
o código ficou assim :
If mk1.Text = [Ô]__:__[Ô] Then
MsgBox [Ô]Informe a Hora Inicial.[Ô]
mk1.SetFocus
Exit Sub
ElseIf mk2.Text = [Ô]__:__[Ô] Then
MsgBox [Ô]Informe a Hora Final.[Ô]
mk2.SetFocus
Exit Sub
Else
...
Agradeço a todos pelas dicas, e vou pontuar o PERCIFILHO pois foi observando sua dica que encontrei onde estava meu erro.
Valeu !!!
Tópico encerrado , respostas não são mais permitidas