[Resolvido]Escolher código e popular dados

Ola feras preciso de ajuda , nao consigo fazer postei um bd com mais detalhes com quiser ajudar
http://www.speedyshare.com/files/24582970/Banco_de_Dados2.accdb

Olá Agravina! Em primeiro lugar, em mudei o título do tópico. Dê uma olhadinha na segunda e quarta regras: http://maximoaccess.forumeiros.com/regras-do-forum-f8/regras-do-forum-t48.htm

Quanto à sua dúvida, o exemplo ficou meio confuso porque tem mais de um registro com mesmo código na combo, mas o esquema seria mais ou menos assim:

Me.Texto5 = Me.Combinação0.Column(1)
Me.Texto7 = Me.Combinação0.Column(2)
Me.Texto9 = Me.Combinação0.Column(3)
Me.Texto11 = Me.Combinação0.Column(4)
Me.Texto14 = Me.Combinação0.Column(5)

Lembrando que isso funciona a contento com chaves primárias ou campos não repetitivos e na combo você precisa pegar todos os campos que for usar na pesquisa.

amigo criquio primeiro lhe peço desculpa pela falha. neste caso que disse teria que criar uma combo para item? o eu gostaria digitar o codigo e aparecer ao lado os dados,como se fosse um forma para venda, o problema e que eu nao sei fazer a ligação com a tabela .ja olhei diversos exemplos,mas nao estou conseguindo fazer.

Você pode usar DLookUp para isso. Vamos supor que a tabela de onde virão os dados se chama tblProdutos e você quer pegar os campos Descrição, Cor, Tamanho e Preço. Vamos supor que no formulário você tenha os campos txtDescrição, txtCor, txtTamanho e txtPreço para receber esses valores vindo da tabela. Você devetá ter o campo txtCódigo que é aonde irá digitar o código. Então, no evento "Após atualizar" desse campo você coloca:

Me.txtDescrição = DLookUp("Descrição", "tblProdutos", "Código=" & Me!txtCódigo)
Me.txtCor = DLookUp("Cor", "tblProdutos", "Código=" & Me!txtCódigo)
Me.txtTamanho = DLookUp("Tamanho", "tblProdutos", "Código=" & Me!txtCódigo)
Me.txtPreço = DLookUp("Preço", "tblProdutos", "Código=" & Me!txtCódigo)

Para entender o que significa o código acima, vamos pegar a primeira linha, da descrição. A leitura é mais ou menos isso: O campo txtDescrição deverá ser igual ao campo Descrição na tabela tblProdutos aonde o Código do produto for igual ao campo txtCódigo.

Aqui estamos considerando que o código é um número. Se for tipo texto, muda um pouquinho a estrutura, ficando assim:

Me.txtDescrição = DLookUp("Descrição", "tblProdutos", "Código='" & Me!txtCódigo & "'")

Otimo criquio era exatamente isto que estava querendo valeu mestre.

ah so mais uma duvida como fazer para imprimir somente aqueles dados que estao no formulario naquele monento ex abre sem dados digito ,5 itens e quero imprimir os mesmo

Tente criar o relatório tendo o formulário como fonte do registro. Isso pode ser feito selecionando o formulário e clicando em criar realatório. Ou criar o relatório buscando o formulário na lista de fontes.

amigo criquio ,estou queimando a nufa ,mas nao consigo criar um relatorio ,somente com os dados que estao no form no monento, por que ele puxa todos os dados que imprimir somente aqueles que inseri agora

Agravina

Teste assim. No botão de comando para abrir o Relatório. Só serão impressos os dados que estiverem no form no momento.

On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "nometabela"
strFilter = "ID= Forms!nomedoform!ID"
DoCmd.OpenReport strDocName, acViewNormal, , strFilter

Ola viera fiz da forma que disse ,mas o relatorio abre com todos os dados.

Agravina desculpe que errei ao passar

On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "nomedorelatório"
strFilter = "ID= Forms!nomedoform!ID"
DoCmd.OpenReport strDocName, acViewPreview, , strFilter

amigo viera algo estou fazendo errado, postei parte do bd se puder dar uma olhada
http://www.speedyshare.com/files/24593466/Banco_de_Dados3.accdb

Amigo

O código que lhe enviei funfa direitinho, certo!

Veja você aqui o exemplo como funfa:

http://dl.dropbox.com/u/8157744/Unigest4_2010-03-28.mdb

E veja o que está a fazer de errado

Abraço

amigo viera ,estou queimando a nufa e nao consegui fazer funfar , ja fiz refiz e nao acerto onde esta o erro .por favor quem quiser ajudar de uma olhada no bd
http://www.speedyshare.com/files/24593466/Banco_de_Dados3.accdb