[Resolvido]Ajuda na função DLookup

Boa Tarde

Estou construindo um formulário de vendas e coloquei a função DLookup no campo txtCodBarras, mais na hora que eu digito o codigo diz que o código não existe.


Alguem pode me dar uma mãozinha?

Você não está usando DLookup, está usando Recordset. Recordset é mais funcional em campos desvinculados da tabela. Para esse seu caso, seria melhor usar RecordSource ou FilterOn para filtrar o Recordset do formulário.

Boa Noite Criquio

Como uso o RecordSource em uma caixa de texto (como banco de dados acima)?

Código:

If DCount("*", "NomeDaTabela", "Código=" & Me.Código) < 1 Then
        MsgBox "Código inexistente"
Else
        Me.RecordSource = "SELECT * FROM NomeDaTabela WHERE Código=" & Me.Código & ""
End If

Mas ao digitar o codigo de barras ira preencher os outros campos?

Sendo o que eu quero que ao digitar o codigo de barras no campo txtCodBarras pesquise as informações da Tabela Produtos (Descricao,Valor e EstoqueAtual) e preencha os campos do formulário formVendas (txtProduto,txtValorUnit e txtEstoque).

Essa codigo que você me passou preenchera esses campos?

Dá uma tentada aí para ver se é isso mesmo.

Bom dia Criquio

Usei o DLookup como base num exemplo que encontrei na net.

Mais esta acontecendo algo errado.

Ao buscar o Produto esta tudo certo, mais não esta inserindo nas tabelas (DetalheVenda e Venda). E também eu quero mudar o modo de inserir ( em vez de inserir apos ao digita o código de barras) inserir ao clicar no botão cmdLancar.

Será que você pode me ajudar?

Alguém??

Alguém de plantão.

Bom dia fera.
Veja se era isso que queria.
Inseri um código no botão "Lançar" que preenche o form com os dados respectivos.
Segue.
Abraços.

Bom dia Chumbrega

Na verdade o que eu quero que ao digitar o código de barras aparecesse os dados do produto nos devidos campos.

No meu banco de dados (disponibilizado no fórum) esse recurso já estava funcionando e eu só quero fazer o seguinte:

• Ao digitar o código de barras os produtos aparecesse em seus devidos campos.

• E ao clicar no botão "Lançar" os produtos fosse adicionados no Sub Formulário.

Fiz uns ajustes baseados no que entendi que vc quer.
Veja agora se funfou.
Abrasss!

Boa Tarde Chumbrega


É isso mesmo que eu quero. Mas tem algo errado.

Você pode perceber que quando clica no botão lançar o detalhevenda a quantidade vendida fica 10 e sendo o 10 o quantidade do estoque e a quantidade referida é quantidade vendida.

Outra coisa, também que pode se perceber que a tabela Venda fica em branco, só é preenchido o Código.

Veja se deu certo.
No caso de faltar algum campo, é só acrescentar no código do botão lançar.
Abrasss!!!

Certo.


Mais esta aparecendo essa mensagem. Como faço para retira-la.

Outra coisa, uma venda por ter varios produtos.

Perce-se que:

Ao adicionar um produto cria-se um código na tabela detalhes vendas, e cada vez que adiciona um produto é um código diferente no campo CodVenda.

Por exemplo tabela detalhesvendas:

CodigoDetalhe	CodigoVenda	DescriçãoProduto	Quantidade	ValorVenda
1	1	Produto 1	4	10,00
2	1	Produto 2	2	5,00

Banco de dados.

Fala fera.
Quebrei a cabeça, mas resolvi uma parte, vamos lá.
Retirei alguns campos da tabela Venda que estavam sobrando, pois, já existiam na tabela DetalheVenda, aí sim deu pra relacionar sem problemas.
Criei um novo botão que deve ser usado ao abrir o form "Nova Venda" e mantive o "Lançar Venda" que é usado no caso de cadastrar mais produtos para a mesma venda.
Sempre que for fazer uma nova venda o sub form é limpor e muda o Código da Venda.
A única coisa que não consegui fazer foi inserir linhas no SubForm quando lança um novo produto, mas conferindo na tabela grava todos eles.
Espero que tenha ajudado.
Abraços!

Bom dia Chumbrega valeu pela força.


Ola colegas do fórum, alguém pode me ajudar a terminar o formulário de vendas?

A parte que fiz ficou boa?
Estou pesquisando para ver se consigo como faz pra inserir linhas no subform a cada clique no botão lançar venda.
É bom tentar ajudar, pois, aprendo também.
Abraços.

Ficou boa sim.

Eu estou pesquisando também, mais até agora sem progresso.

Quem conseguir primeiro posta aqui...hehe

Ok!

Boa Tarde

Nome código no campo "cod_produto" coloquei o seguinte código:

Código:

Dim Cod As Integer

If IsNull(DLookup("CodigoBarras", "Tab_Produto", "CodigoBarras='" & Forms!frmvenda!cod_produto & "'")) Then
MsgBox "Produto Não Cadastro", vbInformation, "ATENÇÃO"
Exit Sub
End If

Forms!frmvenda!Produto = DLookup("Descricao", "Tab_Produto", "CodigoBarras='" & Forms!frmvenda!cod_produto & "'")
Forms!frmvenda!Desc = DLookup("Desconto", "Tab_Produto", "CodigoBarras='" & Forms!frmvenda!cod_produto & "'")
Forms!frmvenda!PrecoUnit = DLookup("PrecoUnitario", "Tab_Produto", "CodigoBarras='" & Frms!frmvenda!cod_produto & "'")


Me.Quant.SetFocus

Forms!frmvenda!PrecoUnit = DLookup("PrecoUnitario", "Tab_Produto", "CodigoBarras='" & Frms!frmvenda!cod_produto & "'")

E na linha em destaque ao clicar no botão lançar " Erro em tempo de execução '424': O objeto é obrigatório."

O que esta acontecendo?

Erro de sintaxe, ta faltando o "O" no Forms!:

Forms!frmvenda!PrecoUnit = DLookup("PrecoUnitario", "Tab_Produto", "CodigoBarras='" & Frms!frmvenda!cod_produto & "'")

Vou colocar Resolvido no tópico, mais se eu conseguir disponibilizarei.

Valeu.
Não esqueça de curtir.
Abraços.