Início
apreczewski 1/5/2013, 02:56Boa noite pessoal, tudo bem?
Parabéns pelo fórum, já consegui resolver muitas dúvidas através dos tópicos já criados.
Hoje estou com uma dúvida que não consegui encontrar. Tenho uma confeitaria e fiz um cadastro de cliente, pedidos, estoque, e tudo que tenho direito... não está tudo pronto, mas o principal está rodando de boa.
O problema é o seguinte: Criei um comando SQL no código VBA, onde verifico os campos TelefoneA e TelefoneB para saber se o telefone que estarei cadastrando já não está cadastrado, esses campos "são os códigos do cliente" (na verdade existe um código único para cliente, mas não uso isso como consulta na hora de cadastrar um novo cliente). O que está acontecendo é que a consulta só está trazendo o primeiro registro da tabela Cliente, Exemplo:
Codigo Cliente TelefoneA TelefoneB ...
1 João 34477023 34471113
2 Pedrinho 82345656 98961213
3 Mariazinha 35384562 85689597
.
.
.
Se pesquisar qualquer um dos telefones do Pedrinho e da Mariazinha, retorna as informações do João.
Segue o código:
Private Sub btConsulta_Click()
If txtCodigo <> "" Then
Comando = "Select * From Cliente Where TelefoneA or TelefoneB=" & txtCodigo
valida_selecao
If dataset.RecordCount <> 0 Then
txtNome = dataset("Nome")
txtTelefoneA = dataset("TelefoneA")
txtTelefoneB = dataset("TelefoneB")
.
.
.
Acredito que o erro esteja no "Or" por que, se no código tiver somente o TelefoneA ou TelefoneB funciona normalmente.
Obs.: Se não for pedir muito vocês tem algum material com exemplo de SQL em VBA, as minha maiores dúvidas estão quando tenho que colocar as instruções de SQL no código VBA.
Desde já sou muito grato pela ajuda,
Alexandre Preczewski
Parabéns pelo fórum, já consegui resolver muitas dúvidas através dos tópicos já criados.
Hoje estou com uma dúvida que não consegui encontrar. Tenho uma confeitaria e fiz um cadastro de cliente, pedidos, estoque, e tudo que tenho direito... não está tudo pronto, mas o principal está rodando de boa.
O problema é o seguinte: Criei um comando SQL no código VBA, onde verifico os campos TelefoneA e TelefoneB para saber se o telefone que estarei cadastrando já não está cadastrado, esses campos "são os códigos do cliente" (na verdade existe um código único para cliente, mas não uso isso como consulta na hora de cadastrar um novo cliente). O que está acontecendo é que a consulta só está trazendo o primeiro registro da tabela Cliente, Exemplo:
Codigo Cliente TelefoneA TelefoneB ...
1 João 34477023 34471113
2 Pedrinho 82345656 98961213
3 Mariazinha 35384562 85689597
.
.
.
Se pesquisar qualquer um dos telefones do Pedrinho e da Mariazinha, retorna as informações do João.
Segue o código:
Private Sub btConsulta_Click()
If txtCodigo <> "" Then
Comando = "Select * From Cliente Where TelefoneA or TelefoneB=" & txtCodigo
valida_selecao
If dataset.RecordCount <> 0 Then
txtNome = dataset("Nome")
txtTelefoneA = dataset("TelefoneA")
txtTelefoneB = dataset("TelefoneB")
.
.
.
Acredito que o erro esteja no "Or" por que, se no código tiver somente o TelefoneA ou TelefoneB funciona normalmente.
Obs.: Se não for pedir muito vocês tem algum material com exemplo de SQL em VBA, as minha maiores dúvidas estão quando tenho que colocar as instruções de SQL no código VBA.
Desde já sou muito grato pela ajuda,
Alexandre Preczewski
