[Resolvido]combox x caixa texto

ola pessoal

tenho uma tabela com nome tblvenda e um formulario de venda com o nome frmvenda
segue a sql no formulario

ELECT tblVenda.CodVenda, tblVenda.DataVenda, tblVenda.NomeCliente, tblClientes.Telefone
FROM tblClientes INNER JOIN (tblVenda INNER JOIN tblItemVenda ON tblVenda.CodVenda = tblItemVenda.CodVenda) ON tblClientes.CodCliente = tblVenda.NomeCliente;

tem uma combox com nome de nomecliente segue sql da combox
SELECT tblClientes.CodCliente, tblClientes.Nome
FROM tblClientes
ORDER BY tblClientes.Nome;
bm a minha ideia seria usar uma caixa de texto para eu digitar o cpf do cliente e ao filtra preenche-se o restante dos dados do cliente , como funciona hoje pela combox

muito obrigado

utilize a função dlookup

Private Sub campoCPF_AfterUpdate()
CampoX.Value = DLookup("[cod]", "tabela", "[campoCPF]='" & Forms![seuformulario]![campoCPF] & "'")
CampoY.Value = DLookup("[nome]", "tabela", "[campoCPF]='" & Forms![seuformulario]![campoCPF] & "'")
Me.CampoX.Requery
Me.CampoY.Requery
End Sub

ola Ricardo

rapaz deu erro numero "3075" ),] ou item faltando na expresao de consulta '[codvenda'.

CPF.Value = DLookup("[codvenda", "tblVenda", "[CPF]='" & Forms![frmvenda]![CPF] & "'")
NomeCliente.Value = DLookup("[nomecliente]", "tblvenda", "[CPF]='" & Forms![frmvenda]![CPF] & "'")
Me.CPF.Requery
Me.NomeCliente.Requery

so uma coisa eu busco da tblclientes ou da tblvenda

muito obrigado pela sua atenção

Da Tabela Clientes, pois da tabela vendas iria com certeza repetir nomes.

ola Vieira

mesmo trocando para tblclientes continua dando o erro

rapaz deu erro numero "3075" ),] ou item faltando na expresao de consulta '[codcliente'.

CPF.Value = DLookup("[codcliente", "tblclientes", "[CPF]='" & Forms![frmvenda]![CPF] & "'")
NomeCliente.Value = DLookup("[nomecliente]", "tblclientes", "[CPF]='" & Forms![frmvenda]![CPF] & "'")
Me.CPF.Requery
Me.NomeCliente.Requery

muito obrigado pela atenção

ola vieira

deu o mesmo erro , no sei mais o que fazer
alguem teria um exemplo

muito obrigado a todo nesse topico

Enviei-lhe o exemplo errado, esse era para outro sítio. Houve aqui uma confusão. Desculpe.

Veja aqui neste tópico como usar o DLookup

http://maximoaccess.forumeiros.com/t1533-funcao-dlookup-explicacao

O exemplo serviu amigão?

ola Vieira

nao conseguir adaptar para minha aplicação , mas quando fiz uma do zero blz

muito obrigado pela atenção

Desculpe a curiosidade mas... se voce esta atualizando o campo CPF nao poderia fazer um requery dele.. estou certo vieira?

Private Sub campoCPF_AfterUpdate()
CampoX.Value = DLookup("[cod]", "tabela", "[campoCPF]='" & Forms![seuformulario]![campoCPF] & "'")
CampoY.Value = DLookup("[nome]", "tabela", "[campoCPF]='" & Forms![seuformulario]![campoCPF] & "'")
Me.CampoX.Requery
Me.CampoY.Requery
End Sub


CampoCPF_AfterUpdate()

Os campos na instrucão.. seriam os demais campos da tabela... sem o campo obejeto da atualizacao
como ele colocou...

CPF.Value = DLookup("[codvenda", "tblVenda", "[CPF]='" & Forms![frmvenda]![CPF] & "'")
NomeCliente.Value = DLookup("[nomecliente]", "tblvenda", "[CPF]='" & Forms![frmvenda]![CPF] & "'")
Me.CPF.Requery
Me.NomeCliente.Requery

é minha humilde visão.. não sei se estou certo.. se não corrija-me caro vieira


Então se ele digita o CPF - faz um requery apenas do NomeCliente...

Requery é isso mesmo. Actualizar o campo que queremos, então esse campo requer um requery.

mas ele vai digitar o CPF na Caixa texto...

entao creio que nao deveria ter essa linha:

CPF.Value = DLookup("[codvenda", "tblVenda", "[CPF]='" & Forms![frmvenda]![CPF] & "'")


Apenas essa e as demais:
NomeCliente.Value = DLookup("[nomecliente]", "tblvenda", "[CPF]='" & Forms![frmvenda]![CPF] & "'")
Me.NomeCliente.Requery

Porque ele vai atualizar os outros campos depois do AfterUpadate do campo CPF

Estou errado?

Sim está certo, você está a digitar o CPF e este vai inserir os restantes dados.

entao o erro dele esta porque no AfterUpadate do campo CPF
tem alinha fazendo referencia ao proprio campo


CampoCPF_AfterUpdate()

CPF.Value = DLookup("[codvenda", "tblVenda", "[CPF]='" & Forms![frmvenda]![CPF] & "'")
NomeCliente.Value = DLookup("[nomecliente]", "tblvenda", "[CPF]='" & Forms![frmvenda]![CPF] & "'")
Me.CPF.Requery
Me.NomeCliente.Requery

Amigão

O Campo no qual digitamos o valor que vai dar origem à busca é o campo que recebe o Requery. Se o campo for numérico, não utilizes aspas. Depois retorna, que eu estou num curso desde ontem e tenho que ir almoçar. Mais logo regresso.Vê bem esse link que te passei sobre a utilização DLookup.

Esperaremos o retorno do colega

Saudacoes Vieira

ola Vieira e Harysoh

coloquei essa linha de comando
NomeCliente.Value = DLookup("[nomecliente]", "tblclientes", "[CPF]='" & Forms![frmvenda]![CPF] & "'")
Me.NomeCliente.Requery

e deu erro 3162 , tem como mandar o banco para voces olharem se nao for pedir muito

meu muito obrigado aos dois colegas

mande isso companheiro. Se não der aqui mande para o meu email ou o do colega, ou para os dois.

sergiovieirasoft@gmail.com

Harysohn@hotmail.com

Amigo não tenho o 2007, só o 2003/XP, mas pelos vistos o Harysohn, também recebeu e ele tem o 2007.

Não lembro se o Harysohn tem o 2007 ou 2003, mas deixo uma dica: se o campo CPF for numérico, tire as aspas simples do final, deixando assim:

NomeCliente.Value = DLookup("[nomecliente]", "tblclientes", "[CPF]=" & Forms![frmvenda]![CPF])

ola amigos

envie os bancos

Teste a sugestão do Criquio...
e de um retorno
Obrigado

É verdade, já tinhamos dito isso no tópico mais acima. Obrigado Criquio

ola criquio

coloquei a sua linha de comando e deu erro de sintaxe no numero na expressao de consulta
[CPF]=575.199.510-4.

erro (3075)

muito obrigado pela atençao

Ou seja:

Deu erro com e sem Aspas o que significa que o erro vem de outro lado, Não pode passar isso para 2003 ou 2000? Assim vamos andar às adivinhas...

Amigo.. to com seu banco aberto aqui..
qual é o form que esta a fazer isso?
so para me situar.

Caro Vieira.. O erro na linha...

NomeCliente.Value = DLookup("[nomecliente]", "tblclientes", "[CPF]='" & Forms![frmVenda]![CPF] & "'")

Fala que não foi possível localizar o FrmVenda referido na expressão...

ola Harysohn

e o frmvenda

muito obrigado

Refaça esse Dlookup, por que não estou a ver o porquê do form venda estar aí. Ele tem que ir buscar os dados à tabela e ele está aí a meter o form porquê?

Faça assim:


No evento ao actualizar da combo:

Me.nomecampo=Me.nomecombo.Column(1)
Me.nomecampo1=Me.nomecombo.Column(2)

e por aí fora, entendeu Harysohn

claro...

Amigo Vieira... Segue o link para o colega.. espero que resolva o problema dele

http://dl.dropbox.com/u/26441349/Venda.zip/Venda.zip


O Form.. estava meio confuso.. para mim claro..

A comBox de pesquisa estava com anexado a uma fonte de controle... ...

Deixei o nome do cliente em uma caixa texto normal...

Coloquei a Combo não acoplada com pesquisaando o CodCVenda na Tbl Venda e o nome do Cliente na Tbl Cliente
SQL: SELECT tblVenda.CodVenda, tblClientes.Nome FROM tblClientes INNER JOIN tblVenda ON tblClientes.CodCliente=tblVenda.NomeCliente;

Apos Autualizar da Combo:

' Encontrar o registro que coincide com o controle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[CodVenda] = " & Str(Nz(Me![Combinação44], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

Me.Combinação44.Value = ""
Me.CPF.Value = ""



FIZ Procedimento igual para uma ComBo CPF (com mascara de entrada)

SQL:tblClientes.CPF FROM tblClientes INNER JOIN tblVenda ON tblClientes.CodCliente=tblVenda.NomeCliente;

Apos Atualizar:

' Encontrar o registro que coincide com o controle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[CodVenda] = " & Str(Nz(Me![CPF], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me.CPF.Value = ""
Me.Combinação44.Value = ""
Me.CPF.Value = ""


Nota-se que ao usar ambas as combos de pesquisa (nome Cliente e CPF)

ao findar do código elas limpam uma a outra, nao ficando assim textos apos a atualizacao dos dados...


Assim.. pode-se consultar a venda tanto pelo nome como pelo CPF

Espero que era isso que o colega queria..

Saudacoes

Bom trabalho, pilotagem perfeita (rsrsrsrs).

Aguardamos retorno entao...
Ate...

ola Harysohn

Acho que nao soube me explicar bem , na realidade eu quero e incluir a venda e nao consultar
atraves de uma caixa de texto eu digito CPF e busca como na combox nomecliente

seu exemplo muito legal a consulta


muito obrigado pela atenção de todos

Certo entao...
VOce quer selecionar o cliente na combo e lancar os dados para uma nova venda..
é isso?

ola Harysohn

isso amigo , buscar pelo CPF numa caixa de texto

muito obrigado pela atenção de todos

Tentarei fazer isso hoje.. se nao der amanha te envio
Saudacoes

olha so...
ha algum problema com o relacionamento de suas tabelas..
quando adiciona um registro novo no form vendas...
o campo cliente adiciona um novo cliente.. e nao deveria ser assim

O cliente teria que ser so consulta.. e adicionar um campo cliente na tabela venda...

sei la.. tem que rever isso ai...

http://dl.dropbox.com/u/26441349/Venda.zip

Veja a nova modificacao que fiz
Saudacoes

Caro Vieira... Creio que consegui fazer o que o colega queria,,,,

So não consegui para o campo numero...

Da mensagem que o campo no form (Campo Numero) nao suporta esse tipo de dados...

Private Sub BuscaCPF_AfterUpdate()
DoCmd.GoToRecord , , acNewRec
Me.Cliente = Me.BuscaCPF.Column(2)
Me.Endereco = Me.BuscaCPF.Column(3)
'Me.Numero = Me.BuscaCPF.Column(5)
Me.Cidade = Me.BuscaCPF.Column(6)
Me.Bairro = Me.BuscaCPF.Column(7)
Me.UF = Me.BuscaCPF.Column(
Me.Telefone = Me.BuscaCPF.Column(9)
Me.Complemento = Me.BuscaCPF.Column(10)
Me.BuscaCPF.Value = ""

Para não complicar pode colocar esse campo como texto e ter a máscara para CPF

Entendi....
A questao deve estar mesmo em ser ele Numerico

Vou fazer e dou retorno

Mesmo erro Vieira... O valor que voce inseriu nao e valido para este campo!

Me parece que o problema está no índice. O Número é índice 4, mas no código está índice 5. Deem uma olhada. Alterem para Me.Numero = Me.BuscaCPF.Column(4) e testem.

é, tenho que arranjar um disco maior e meter 0 7. Isto está a tornar-se um tormento.

Caro colega.. veja o exemplo modificado por mim..
tomei a liberdade neste modelo de fazer algumas alteracoes nas tabelas.. pois no modelo que me enviou, para cada nova venda se adicionava cliente.. tornando a ter duplicidades de registros na tbl clientes...

nao se pode confundir a tblcliente com a tbl vendas...
a tblvendas guarda registros de todas as vendas, podendo ter duas ou mais vendas para o mesmo clieente, no entanto a tblcliente so pode comportar apenas 1 resgistro para esse cliente...

entao..
Criei uma nova tabela para o form vendas.. deixando a tblclientes apenas para consulta dos dados dos mesmo e inserção em uma nova venda.. que ficara relacionado com a tblclientes (um para muitos)...

abra o form Copia de Form Vendas e veja como ficou..... agora e so colocar a mão na massa e fazer os aprimoramentos necessarios...

Sobre a atualizacao do campo numero no form ainda encontro problemas.. aguardo ajuda de nossos SUPERIORES... rsrs

Saudações...


LINK: http://dl.dropbox.com/u/26441349/Venda.zip

Percebi a questão do indice Criqui.. Eu devia estar cego.. nao vi isso. rrsrs

Verei se é este o problema..
Saudacoes

Eu devia estar cego...rsrsrs
Fiz uma pequena confusão nas colunas.. rsrsrs

Agora deu certo....

Private Sub BuscaCPF_AfterUpdate()
DoCmd.GoToRecord , , acNewRec
Me.txtCPF = Me.BuscaCPF.Column(1)
Me.txtCliente = Me.BuscaCPF.Column(2)
Me.txtEndereco = Me.BuscaCPF.Column(3)
Me.txtNumero = Me.BuscaCPF.Column(4)
Me.txtCidade = Me.BuscaCPF.Column(5)
Me.txtComplemento = Me.BuscaCPF.Column(6)
Me.txtBairro = Me.BuscaCPF.Column(7)
Me.txtUF = Me.BuscaCPF.Column(
Me.txtTeleFone = Me.BuscaCPF.Column(9)
Me.BuscaCPF.Value = ""


End Sub


NOVO LINK JA ATUALIZADO COM ESTE CODIGO


http://dl.dropbox.com/u/26441349/VendaNovo.zip