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

Conferir se registro no db acess é verdadeiro e seguir rotina

Discussões sobre a integração do Excel com o Banco de Dados Access

Moderador: joseA

erickjofre
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Qui Jan 26, 2017 9:34 am

Conferir se registro no db acess é verdadeiro e seguir rotina

Mensagem por erickjofre »

Bom dia,

Estou desenvolvendo um código simples ao meu entender, para os seniores, porém para mim iniciante, ainda está complicado.
Enfim, a hora que rodo o formulário em VBA EXCEL e ele puxa os dados do BD ACCESS, porém usando as funções If then else, ele não lê o else.

Se mudo a condição para If userform1.txt_cadre = consulta("RE") then (conforme figura 1) ... ele segue para a condição verdadeira, porém o dado informado na CAIXA DE TEXTO precisa ser IGUAL AO DB. Se inserir um dado diferente do db ele acusa erro de execução e nenhum valor encontrado.

exemplo:

se eu digitar 1 no form e na tabela_usuarios do db estiver 1, ele faz a leitura.

se eu digitar 2 form e na tabela_usuarios do db estiver 1, ele não faz a leitura e acusa erro.

se eu digitar 2 form e na tabela_usuarios do db estiver 1, mesmo que eu mude a condição de = para <>, ele também acusa erro e não corre os procedimentos de gravar o usuario no bd.



segue código para análise e peço ajuda dos senhores;



erro 1.jpg
erro 1.jpg (124.65 KiB) Exibido 3491 vezes
erro 2.jpg
erro 2.jpg (116.01 KiB) Exibido 3491 vezes
erro 3.jpg
erro 3.jpg (71.96 KiB) Exibido 3491 vezes

Agradeço a ajuda.

EJ.


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
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Conferir se registro no db acess é verdadeiro e seguir rotina

Mensagem por Reinaldo »

Apenas por img fica dificil.
Re e definido como Long (numerico)
a string ComandoSql procura dados aproximados (like) * re *, entendo que deveria ser igual "="
Não sei se entendi mas experimente alterar
de: If userform1_txt... then
Para: If Consulta.RecordCount >= 1 Then


erickjofre
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Qui Jan 26, 2017 9:34 am

Re: Conferir se registro no db acess é verdadeiro e seguir rotina

Mensagem por erickjofre »

Obrigado. vou tentar alterar. Tentei mudar o modo de configuração para as caixas de texto, para verificar se consegue encontrar os dados.. por enquanto estou testando,mas parece ter dado certo. agradeço a ajuda e mesmo assim vou alterar como me informou para ver se corre o processo.

abraço


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