[Resolvido]Como automatizar

Pessoal preciso fazer o seguinte, num campo digitar o codigo e o dados serao enviados para um sub form ,postei aqui um bd exemplo onde esta melhor explicado, quem quiser me dar uma luz deste ja agradeço
http://www.speedyshare.com/files/25132766/exemplo.accdb

Agraviana

Não consegue passar para o 2003 o ficheiro?. É que assim é muito limitativo e como já referiu o Mestre aqui a maioria dos usuários ainda trabalha com o 2003.

Ola vieira nao tenho o 2003 ,e nao consigo baixar 0 access 2003 ,teria alguma dica onde possa baixar

Se entendi bem, acho que esse código pode ajudar:

Dim Cond As String, Campo As String
Campo = Me.Texto1.Text
Cond = " where Cod like '*" & Campo & "*'"
Me.detalhevenda.Form.RecordSource = "select * from tbl_vendadetalhe" & Cond

Coloque no "Após atualizar" do campo de código. Altere se necessário para filtrar o campo correto.

Quanto ao bd em versão anterior, é só ir em "Salvar como" e escolher a versão para a qual quiser salvar. No access 2007 pode-se salvar da versão 2000 até a 2007.

Graças a dica do mestre criquio segue o exemplo em 2003
http://www.speedyshare.com/files/25133845/exemplo2003.mdb

Coloque no evento Após Atualizar do seu campo Texto1 o seguinte:

Forms![Formulário1].[detalhevenda]!Texto0 = Me.Texto1

Amigo criquio deu certo ,mas como eu faço para inserir o codigo apos atualizar limpar o campo para novo codigo , e vai acrescentando no form detalhe ate que eu fianlize a venda?

O que você queria não era fazer uma consulta? No caso você quer digitar o código do produto e que ele seja acrescentado no registro de compras, populando automaticamente a descrição e o preço unitário, é isso? Nesse caso teremos que alterar o procedimento.

é isso mesmo criquio ppode me ajudar?

Uma ideia seria você criar uma caixa de texto para inserir a quantidade ao lado da textbox do código do produto. Clica no subformulário e no evento "Ao entrar" coloque:

If Not IsNull(Me.Texto1) Then
DoCmd.GoToRecord , , acNewRec
Forms!Formulário1!detalhevenda!Texto0 = Me.Texto1.Value
Forms!Formulário1!detalhevenda!Texto5 = Me.Texto5.Value
Forms!Formulário1!detalhevenda!Texto3 = DLookup("descrição", "tbl_produtos", "Cod='" & Forms!Formulário1!Texto1 & "'")
Forms!Formulário1!detalhevenda!Texto7 = DLookup("ValorUnit", "tbl_produtos", "Cod='" & Forms!Formulário1!Texto1 & "'")
Forms!Formulário1!Texto1 = Null
Forms!Formulário1!Texto5 = Null
Forms!Formulário1!Texto1.SetFocus
End If

Nesse caso funciona assim, você coloca o campo do código com Índice 0, o da quantidade com índice 1 e o subform com índice 2. Assim, ao sair da quantidade vai para o subform e a rotina entra em ação.
Desabilite os campos do subform para não permitir edição.

amigo criquio fiz como disse mas sempre retorna erro na linha 2 do comando veja
http://www.speedyshare.com/files/25148877/exemplo2003.mdb

Bom pessoal ja corrigi o erro mencionado no topico acima, o problema agora é como acrescentar os dados no subform exemplo ao com o cod 100 ele vai para o subform com tdos seus valores tipo descriçao,valor,quant etc.. ai entro com o cod 101, 102 e esses vao se acumulando no sub form ate que eu finalize a venda . no topico acima postei um bd exemplo para ententerem melhor.

Ficaria bem profissional, se na TextBox [Texto1] com uma tecla F3 por exemplo, chamasse o formulário de pesquisa do produto e assim que o achasse comandava incluir por botão ou enter que se agruparia no subformulário detalhevenda.

Verifique os nomes dos campos. Alguns deles estão diferentes no código.
Procure sempre dar nomes sugestivos aos campos para não cair nesses reveses. Por exemplo, campo texto para armazenar nome pode chamar txtNome, para armazenar quantidade, txtQuantidade. Assim, tendo um padrão para todos os controles, você nunca se perderá.
Tire o "Após atualizar" do campo de código. Esse seria apenas para pesquisa e não para o que você precisa.
Coloque os tipos de campos corretamente. Por exemplo, campos que armazena valores monetários devem estar com esse tipo e com casas decimais = 2.

amigo criquio como postei anterir ja corrigi este problema ,estou estes nomes afim de exemplo ,mas estou com outro problema se o amigo quiser ajudar preciso que ao entrar com codigo ele acrescente ao sub form os dados ,tipo venda ate que finalize a venda

Sim. Nos testes aqui deu tudo certo. Estou enviando um exemplo. Digite o código do produto, digite a quantidade e pressione Enter.

Valeu mestre criquio agora esta funfando obrigado

Valeu pelo retorno. Precisando, assovie.