[Resolvido]formulário de Vendas

Boa noite!
Tenho 1 tabela com nome produtos_entradas e outra c, e 1 formulário vendas, gostaria da ajuda dos amigos pois preciso criar uma função de quando eu digitar o código do produto ele consultasse na tabela produtos_entradas e na produtos_promoções e visse o mesmo produto com o mesmo código mas com preço diferente e me perguntasse qual preço quero usar.
Exemplo:
Código     Produto        Valor             = produtos_entradas
001         Sabonete      R$1,75


Código     Produto        Valor             = produtos_promoções
001         Sabonete      R$1,00

Gostaria que ele me avisasse que esse produto possui 2 preços norma e de promoção
Como fazer isso???

Bom dia !

Veja se ajuda amigo!

Código:

Private Sub TXTCODIGO_AfterUpdate()

TXTDESCRICAO = Nz(DLookup("DESCRICAO", "TBL_PRODUTO_PRECO_NORMAL", "CODIGO_PRODUTO=TXTCODIGO"), 0)
TXTPRECONORMAL = Nz(DLookup("PRECO_NORMAL", "TBL_PRODUTO_PRECO_NORMAL", "CODIGO_PRODUTO=TXTCODIGO"), 0)
TXTPRECOOFERTA = Nz(DLookup("PRECO_OFERTA", "TBL_PRODUTO_PRECO_OFERTA", "CODIGO_PRODUTO=TXTCODIGO"), 0)


If TXTPRECOOFERTA > 0 Then

    If MsgBox("Este produto esta em oferta deseja praticar o preço?", vbYesNo, "AVISO") = vbYes Then
            TXTPRECO_PRATICAR = TXTPRECOOFERTA
    Else
            TXTPRECO_PRATICAR = TXTPRECONORMAL
    
    End If
  
End If




End Sub


se quiser veja o projeto:
http://www.4shared.com/rar/o2zaRP1rba/preco_normal_promocao.html

Amigo fico show, era realmente isso que eu precisava muito obrigado.

Boa tarde!

Ótimo que deu certo.

só coloca como resolvido.

Sucesso!