[Resolvido]Problemas com a Função DLookup

Boa tarde Galera!

Estou desenvolvendo um PDV de venda para meu programa de Gestão Comercial.

Tenho uma tabela Produto e duas tabelas para o PDV.

Criei dois formulários, sendo um Formulário Principal e outro Sub formulário.

Coloquei um campo tipo texto para fazer a busca do produto, no entanto, sem sucesso.

Campos da tabela produto:

prod_id - tipo chave primaria
prod_codigo - tipo texto
prod_titulo - tipo texto

tabela PDV B

venda_b_codigo_prod - Tipo texto
venda_b_prod_fk
venda_b_qtde
venda_b_prod_preco

Private Sub CodProduto_AfterUpdate()



If IsNull(DLookup("prod_codigo", "tab_produto", "prod_codigo='" & Forms!PdvA!CodProduto & "'")) Then
MsgBox "Produto Não Cadastro", vbInformation, "ATENÇÃO"

Exit Sub
End If


Forms!PdvA!PdvB!venda_b_prod_fk = DLookup("prod_titulo", "tab_produto", "prod_id=" & Forms!PdvA!CodProduto)

End Sub

Alguém sabe me dizer como proceder?

Boa tarde meu amigo,

você não disse qual o erro, ou pelo meno não entendi,

mas de qualquer forma tente usar "NZ" e não "ISNULL"

assim:

Código:


dim teste
teste = nz(DLookup("prod_codigo", "tab_produto", "prod_codigo='" & Forms!PdvA!CodProduto & "'"),0)

if teste = 0 then
msgbox "sem cadastro"
else

end if


Boa tarde!

Desculpe pela falta de esclarecimento.

O problema está nessa parte do código:

Forms!PdvA!PdvB!venda_b_prod_fk = DLookup("prod_titulo", "tab_produto", "prod_id=" & Forms!PdvA!CodProduto)

O campo venda_b_prod_fk é do tipo numero na tabela PdvB e o campo prod_titulo é tipo texto na tabela produto.

no Formulário PdvA Coloquei um campo não acoplado e coloquei o nome de CodProduto.

Ao realizar uma venda, vou digitar o codigo do produto nesse campo e quero com a função DLookup buscar o nome do produto e outros dados.

Só que meu problema é que um campo é tipo texto e o outro é tipo numero!

Dando um pitaco:

Mais rápido ainda

If Dcount("[prod_codigo]", "tab_produto", "[prod_codigo]='" & Forms!PdvA!CodProduto & "'") = 0Then

Dica: Sempre que referenciar um controle de uma tabela/consulta, colocar o nome desse controle entre colchetes [].

Abraços

Noob

Sergio

Editei o tópico, veja o código

Experimente:

Forms!PdvA!PdvB!venda_b_prod_fk = DLookup("prod_titulo", "tab_produto", "prod_id=" & Cstr(Forms!PdvA!CodProduto)))

Caso não funfe, mude o tipo do  prod_titulo.

Abraços

Noob

Obrigado por sua Ajuda!

Acho que não atende o que preciso!

Segue em anexo bd para avaliação!

Meu amigo

Acho melhor repensar teu projeto.

Veja sobre relações entre tabelas  e vinculos entre Formulário principal e subformulário.

Use apenas UM código  nos registros e é com ele que irá fazer o relacionamento.

Veja isso:

Forms!PdvA!PdvB!venda_b_prod_fk = DLookup("prod_titulo", "tab_produto", "prod_id=" & Cstr(Forms!PdvA!CodProduto)))

Se a pretensão é colocar o valor em 2 forms simultaneamente, não conseguirá, pois deve ser um formulário por vez.
Se a pretensão é abrir o formulário com um registro especifico, use
Docmd.OpenForm ... com argumentos
Como disse, um Formulário Principal está vinculado com o subformulário.
Quando se abre um formulário Principal num determinado registro, o subformulário
irá buscar e exibir os registros pertinentes a aquele registro.

Busque no fórum exemplos de controle de estoque, tem ótimos exemplos aqui.

Abraços

Noob

Bom dia Galera!

Obrigado pela ajuda de vocês!

O modelo enviado para visualização é apenas um modelo do que estou desenvolvendo!
Segui sua sugestão de apenas um campo como chave e código primário, e ajustei os relacionamentos e as consultas envolvidas e deu certo.

Obrigado pela ajuda de todos vocês!

Ótimo meu amigo !

Valeu o retorno

Boa sorte

Noob