Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Muuu

base de dados restaurante

Recommended Posts

Muuu

boas,

pensei que este tópico seria o mais indicado para ficar aqui visto que é base de dados, access....

a minha questão é a seguinte:

Function produto(num_produto)

Dim varX As Variant

varX = DLookup("[Cod_produto]", "[contamesa-nomeprod]", "Forms![Mesaconta]![contamesa2].Form![Cod_produto].text" = "[num_produto]")

If (varX = Null) Then

    Forms![Mesaconta]![contamesa2].Form![Cod_produto].SetFocus

    Forms![Mesaconta]![contamesa2].Form![Cod_produto].Text = num_produto

    Forms![Mesaconta]![contamesa2].Form![Cod_produto].SetFocus

    Forms![Mesaconta]![contamesa2].Form![quantidade] = Forms![Mesaconta]![contamesa2].Form![quantidade] + 1

    Forms![Mesaconta]![contamesa2].SetFocus

    For i = 0 To 4

        SendKeys "{tab}"

    Next i

Else

    Forms![Mesaconta]![contamesa2].SetFocus

    DoCmd.FindRecord num_produto

    Forms![Mesaconta]![contamesa2].Form![quantidade] = Forms![Mesaconta]![contamesa2].Form![quantidade] + 1

End If

do codigo a cima, não estou a conseguir conciliar o dlookup..

podem-me ajudar?

o objectivo é:

:se o produto não existir então adiciona ao meu sub-formulário e soma a quantidade de 1

:se o produto existir, então localiza-o no sub-formulário e soma a sua quantidade +1

cumprimentos e obrigado


"O mundo é pequeno para nós os 2 (Microsoft vs Apple)"

Share this post


Link to post
Share on other sites
progster

Acho que estás a complicar. Se estás a utilizar Access, deverias criar uma consulta do género:

UPDATE Tabela SET Tabela.Quantidade = (Produtos.quantidade+Entrada.quantidade)

WHERE (((Produtos.Id_Produto)=[Entrada].[id_produto]));

Ou seja, estás a "somar" um item a uma quantidade já existente.

Tens é que adaptar isto ás tuas necessidades.

O que tu precisas é uma espécie de BD de gestão de stocks.

Cumprimentos


Não resolvo dúvidas por PM.

Share this post


Link to post
Share on other sites
Muuu

depois de muitas tentativas jjá tenho esta parte feita!!!

obrigada pessoal ;):cheesygrin:


"O mundo é pequeno para nós os 2 (Microsoft vs Apple)"

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.