Resolvido Relacionamento para buscar produto pelo código de barras de um campo numérico

Boa tarde!

Senhores, estou com dificuldades em relacionar minhas tabelas.

Hoje tenho um sistema de estoque, onde o produto é inserido no sub, através de dois cliques no código do produto.

chave primária --- CodProduto = numeraçao automatica

Agora estou tentando adaptar que o mesmo sistema puxe o produto através de um códigos de barra no campo EAN, porém nao consigo relacionar o campo ean, com o produto da tabela produtos.

Alguém poderia me ajudar.


Abraço

ola, Ipdias veja se é isso que precisa:

Dim Nomeform As String
Dim Criterio As String

Nomeform = "NOME DO FORMULARIO QUE DESEJA ABRIR"

Criterio = "[Código]=" & Me![Código]
DoCmd.Close
DoCmd.OpenForm Nomeform, , , Criterio

neste caso ai ele vai abrir o formulario buscando pelo "código" que é o numero automático que é gerado, dai voce substitui o nome código pelo nome do campo que gera a numeração automática.

boa tarde Gleison!

Teria alguma forma de fazer através de consultas?
E no caso, eu preciso que a busca seja pelo código de barras que capturo pelo scanner. Ele nao é número automático.

Gleinon, consegui de certa forma fazer o que ei precisava. no entanto tive que mudar a chave primaria da minha tabela produtos e com isso algumas coisas mudam, mas nao sei como arrumar.

veja o exemplo que eu tenho no campo quantidade do meu subVendas.
Ele faz a verificaçao do estoque e nao deixa passar a quantidade, mas agora nao sei como acertar para continuar fazendo.

Private Sub qtdevenda_BeforeUpdate(Cancel As Integer)
Dim varestoque As Integer
varestoque = DLookup("[estoque]", "Csestoque", "[codigoproduto]= " & Me![Codigoproduto] & "")

If qtdevenda.Value > varestoque Then
MsgBox ("Estoque insuficiente. Estoque atual desse produto: " & varestoque & ""), vbInformation, "Estoque de insuficiente"
DoCmd.CancelEvent
End If

End Sub



agradeço

Obrigado!

A questao era apenas algumas renomeaçoes em consultas.

Deu certo? você conseguiu resolver o problema inicial?