Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Muuu

base de dados restaurante

Mensagens Recomendadas

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)"

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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)"

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.