Olá pessoal,
Estou com um problema que acho deve ser alguma CONFIGURAÇÃO que não estou conseguindo descobrir como resolver(parece até virus mas não é). O que acontece é o seguinte:
Suponhamos que tenho uma fileira com vários Botoes com seus respectivos tabindex na ordem e quando teclo a seta para direita no teclado ele vai para o da esquerda. Se for uma fileira na vertical, quando teclo para baixo ele vai para cima.
O mais estranho é que fiz uma rotina com if X for diferente "<>" então faz alguma coisa senao faz outra, e tive que mudar para if X for igual "=" porque ele não estava entendendo o diferente, E MINHA ROTINA ESTAVA CERTINHA.
Outra coisa que reparei é que coloquei um text para que fosse digitado a data de nascimento e coloquei uma barreira para que ele não digitasse uma data superior a de hoje, assim:
If Format(TxtDtNasc,"dd/mm/yyyy") > Format(Date, "dd/mm/yyyy") then
Msgbox "xxxxxx
end if
e ele não deu certo. Somente ao contrário que ele BARRA PARA NÃO DIGITAR UMA DATA SUPERIOR A DO DIA.
If Format(TxtDtNasc,"dd/mm/yyyy") < Format(Date, "dd/mm/yyyy") then
E DESTA FORMA QUER DIZER QUE SE A DATA DE HOJE FOR MAIOR QUE A DATA DE NASCIMENTO ELE DÁ A MENSAGEM.
Será que alguem ai já viu algo semelhante e poderia me ajudar? Já compilei um arquivo .exe e em várias máquinas acontece o mesmo problema, mesmo abrindo também a fonte(projeto) em outras máquinas.
Toda ajuda será bem vinda.
