[Resolvido]busca em uma caixa de listagem com preenchimento de campos

Ola amigos. Gostaria de uma ajuda no meu BD. No formulario: "form-cliente" (que foi criado em relação a tabela cliente). coloquei um botão que busca o formulario "pesquisa" onde contem uma caixa de listagem com o cadastro dos clientes, e quando clico em cima de um cliente dentro desta caixa, ela fecha e abre novamente o form-cliente ja com os campos preenchidos. (acho que funciona porque o formulario foi feito com base na tabela cliente). Bom o que eu quero é fazer com que funcione desta mesma forma no formulario "compra". o botão criado no mesmo, ja busca a caixa de listagem, so falta clicar no cliente e fechar o formulario pesquisa voltar para o formulario "compra" ja preechido com o tal cliente. Deixei em anexo com o exemplo que estou usando.Desde Já Agradeço.

Tai teu exemplo


Abraços


Noob

oi amigo, vc não entendeu, eu queria q o preenchimento automatico fosse para o formulario "compra" e não para o form-cliente. Fico no aguardo. Obrigado

Pois então meu amigo

O código é o mesmo, só precisa mudar o nome do formulário no código vba  

Não tem segredo


Noob

oi amigo, eu fiz a mudança e não funcionou. vc poderia anexar ja com a mudança para o formulario compra. ei eu vejo o q estou errando. obrigado

Tai ele remodificado

Mas não vai mostrar nada, porque a tabela produtos não tem registros.


Noob

oi amigo, me desculpe se estou sendo chato. Mas foi quase. Reparei que sou eu que não estava explicando direito. Bom eu fiz os clientes cadastrados na minha tabela de clientes aparecerem no frm-pesquisa, certo? e ja deixei funcionando o botão pesquisar no frm-venda que busca a lista dos meus clientes cadastrados. A unica coisa que eu quero é clicar em um cliente da lista aberta, ai fecha o frm-pesquisa e abre o frm-venda ja com os campos codigo, cliente, endereço, telefone; Preenchido com os dados do tal cliente que eu cliquei. Com isso posso continuar e terminar o meu frm-venda. coloquei um anexo ja do jeito que eu quero abaixo:
por favor poste ele mudado. Muito obrigado

Olá, a primeira coisa que tens a fazer é mudar a nomenclatura dos objetos e controles, substitui o hífen(-) pelo anderline(_) e no evento duplo click da listbox coloca isso:

Dim intLinha%

intLinha = Me.lista_cliente.ListIndex
DoCmd.OpenForm "frm_venda"
DoCmd.GoToRecord , , acNewRec
Forms!frm_venda.Form!codigo = Me.lista_cliente.Column(0, intLinha)
Forms!frm_venda.Form!cliente = Me.lista_cliente.Column(1, intLinha)
Forms!frm_venda.Form!endereço = Me.lista_cliente.Column(2, intLinha)
Forms!frm_venda.Form!telefone = Me.lista_cliente.Column(3, intLinha)
DoCmd.Close acForm, "frm_pesquisa"

Com as dicas do Beto.

https://dl.dropboxusercontent.com/u/90217826/JcondaFinal.rar

Olá amigos

Não respondi ao tópico porque fiquei "pestiado", peguei uma gripe braba, não da vontade nem de sair da cama.

Mas isso que o nosso amigo quer fazer é uma redundância.

Como podem ver ele quer repetir os mesmos registros em outra tabela pra acrescentar a venda.

JConda

A coisa não funciona assim, muito embora nossos colegas tente ajudar, mas a filosofia da coisa está errada.

O interessante é que estou tentando ajudar dois tópicos, cujos membros desejam a mesma coisa mas de maneira equivocada.

Para não escrever tudo de novo, convido nosso amigo a ler esse tópico, precisamente os meu posts de nºs 4 e 6 .

Abraços

amigo noobezinho, primeiramente é preciso entender o que nosso colega deseja fazer levando as informações da tabela clientes para a tabela venda, se a intenção é realmente efetuar uma venda ele está correto, pois a tabela clientes é origem de cadastros dos clientes portanto ele não pode carregar os dados desse cadastro para efetuar as vendas nessa mesma origem.

Certo Beto

Não tinha entendido a filosofia da coisa.

Essa gripe não me deixa pensar direito !!!!!

Mas continuo com o pensamento de que não se deve repetir registros de uma tabela para outra, por isso o Access é um
banco de dados Relacional.

Mas cada um pensa do seu jeito né?   

Grande Abraço

Noob

Amigão, não se trata de ser contra ou favor em se repetir ou não dados de uma tabela para uma outra e sim de lógica, se tu vais trabalhar com vendas que é o caso do nosso colega, achas correto efetuar as vendas para os clientes na mesma tabela de origem do cadastro desses clientes? Em relação ao "relacional" que mencionastes presumo que estais querendo se referi a relação entre as tabelas e ai eu te pergunto: não existe relação entre clientes e vendas? De qualquer maneira vamos aguardar o colega se manifestar para ver se é isso mesmo que ele deseja.

ola amigos, obrigado por me ajudarem neste tópico. Fico grato pelos os 3 que me ajudaram. O Beto entendeu o que eu queria e o Kaynan me deu um bd de anexo com o exemplo.
Beto essa parte do código:        Forms!frm_venda.Form!codigo = Me.lista_cliente.Column(0, intLinha)          tava dando erro no meu verdadeiro projeto, pois vi que o mesmo tava trabalhando com os registros com base nas linhas da caixa de listagem e o meu projeto vai ter muitas linhas e não ia dar assim.
Em uma tentativa de consertar, mudei o final do codigo para:     Forms!frm_venda.Form!codigo = Me.lista_cliente.Column(0).....(1)......(2).........(3)....e assim por diante, onde reparei que ele já começou a buscar com base nas colunas da minha caixa de listagem e funcionou do jeito que eu queria.
Obrigado pela ajuda também Noobezinho.

Detalhe, sou novo aqui no forum, então beto se tiver algum parte deste forum que eu ligue você a este tópico resolvido mostra como faz. Abraço

Cláudio, o erro citado por ti, é em relação a nomenclatura, o campo código está com acento e na linha do erro está sem o acento, quanto a questão de ter várias linhas, não importa, pois o código que passei pegará sempre os registros da linha clicada, se testares o exemplo que o colega kaynan postou, pode incluir 100 clientes que vai funcionar sem problema algum, e o exemplo postado por ele está com o código que passei. Outra coisa o código pega os dados pela coluna e não pela linha como informastes.

Beto aproveitando esse assunto e se puder dar uma olhada neste tópico em anexo,é pra faze ra mesma coisa só que ta dificil pra mim se puder veja.
um abç.


http://maximoaccess.forumeiros.com/t18989-abrir-formulario-em-um-registro-especifico-a-partir-do-resultado-de-uma-lista

ok beto, obrigado pelas dicas. É que na hora que eu estava testando, a forma como ele buscava parecia ser como base nas linhas. Muito complicado de explicar. Mas ta quase tudo ok
eu fechei o tópico como resolvido mas no meu projeto, os clientes tem foto e esse campo não preenche. Tentei resolver essa mas tá difícil.
abri um novo tópico com o exemplo com foto se puder ajudar agradeço.
veja pra mim:
http://maximoaccess.forumeiros.com/t19002-preenchimento-automatico-vindo-de-uma-caixa-de-listagem#140961