[Resolvido]Consuta e relatorio

Bom dia aos amigos

Estou tendo problema em fazer consulta e relatório da tabela de saida, quando eu crio, éla não me da o nome do produto e sim o numero.
Ja queimei minhas pestana mas não achei o problema.

Obrigado


Marcos

Olá Marcos,

Onde ocorre o problema na consulta ou no relatório? Não consegui visualizá-lo nem na consulta nem no relatório.

Meu Grande amigo good guy como esta

Bom o problema é nos dois eu tento fazer um relatorio ou consulta e na hora de gerar a saida ele não me da o nome do produto e sim o id do produto não sei a onde eu to pecando, mas se voce ver a tabela saida la não consta o produto e sim o id.

Obrigado

Marcos

Olá Marcos,

Seu código corrigido:


Private Sub Produto_AfterUpdate()
Me.IdProduto = Me.Produto.Column(0)
Me.Produto = UCase(Me.Produto.Column(1))
Me.Unidade = DLookup("Unidade", "Entrada", "IdProduto= Forms!Saida!IdProduto")
Me.PreçoVenda = DLookup("ValorCompra", "Entrada", "IdProduto= Forms!Saida!IdProduto")
Me.DataSaida = Date
Me.Saida.SetFocus
Call Atualizar
End Sub

Public Sub Atualizar()

Dim strSQL As String
Dim nEstoque As Integer
Dim nCod As Integer
nEstoque = Nz(Forms!Saida!Estoque)
nCod = Nz(Forms!Saida!IdProduto)

DoCmd.SetWarnings False
strSQL = "UPDATE Saida SET Estoque = " & nEstoque & " WHERE IdProduto = " & nCod
CurrentDb.Execute strSQL
DoCmd.SetWarnings True
End Sub

Private Sub Saida_Exit(Cancel As Integer)
Call Atualizar
End Sub


Tabela Saida:

Código_ID
IdProduto
Produto
Unidade
PreçoVenda
Saida
Estoque
DataSaida

Caro good guy


Ficou quase perfeito o produto já aparece mas só que quando eu vou dar baixa no formulario saida não a parece o os campos unudade, estoque e Preço venda .


Obrigado

Teste agora,

Na atualização de estoque, se ocorrer aviso da Microsoft de alterações por outro usuário descarte as alterações.

Caro good guy

No relatório saida agora não da aparecendo o que tenho no estoque

Obrigado

Marcos

Perdão ratificando é no formulario

Olá Marcos,

Você analisou o arquivo que postei, a quantidade em estoque aparece na tabela. Se em ao ocorrer uma atualização de estoque, uma mensagem da Microsoft surgir que outro usuário alterou o estoque, descarte as alterações. Para uma melhor desempenho de seu aplicativo, crie uma função que faça a movimentação de estoque ao invés de uma fórmula na fonte de controle da caixa de texto.

Outras modificações:
'************************************************************************
Public Function Atualizar(nSaida As Integer)

Dim strSQL As String
Dim nEstoque As Integer
Dim nCod As Integer
nEstoque = Nz(Forms!Saida!Estoque)
nCod = Nz(Forms!Saida!IdProduto)

DoCmd.SetWarnings False
strSQL = "UPDATE Saida SET Estoque = " & nEstoque & " WHERE IdProduto = " & nCod
CurrentDb.Execute strSQL
DoCmd.SetWarnings True
End Function
'**********************************************************************************************
Private Sub Produto_AfterUpdate()
Me.IdProduto = Me.Produto.Column(0)
Me.Produto = UCase(Me.Produto.Column(1))
Me.Unidade = DLookup("Unidade", "Entrada", "IdProduto= Forms!Saida!IdProduto")
Me.PreçoVenda = DLookup("ValorCompra", "Entrada", "IdProduto= Forms!Saida!IdProduto")
Me.DataSaida = Date
Me.Saida.SetFocus

Call Atualizar(Saida)

End Sub
'************************************************
Private Sub Saida_Exit(Cancel As Integer)
Call Atualizar(Saida)
End Sub
'******************************************

Caro good guy

Me desculpe pela demora quase deu mas eu parei pensei queimei minhas pestana e ai deu certo fiz uma pequena modificação e ficou perfeito te agradeço mais uma vez.

aproveitando a tua paciencia, como eu poderia fazer para que quando eu for dar a saida no estoque ele não deixar se for maior que esta no estoque.

Obrigado

Marcos

Olá Marcos,

Posta todo o código agora como ficou para fazermos essas modificações solicitadas e para o aprendizado dos colegas. Fico feliz por você ter se esforçado e conseguido melhorar o código e atender a sua necessidade. Nasce um programador. Parabéns !!! É assim mesmo, enfrentando desafios, persistindo até conseguir o objetivo pelo caminho lícito e honesto. Vamos trabalhar com operadores lógicos e estrutura de controle condicional para resolver o seu problema.

Caro good guy

Farei melhor postarei o DB Obs.. estes código também tem participação do amigo betogivoni, sendo que estes teus código fui eu quem modifiquei fico no aguardo

Obrigado

Olá Marcos,

Fiz também algumas modificações em todo o código. Teste o aplicativo agora. Vou deixar com você o código para uma atualização mais dinâmica ainda.
Como está já faz bem. Teste e você entenderá o que eu quero dizer. Uma dica: Crie um formulário Menu de Controle.

Caro good guy

Vou baixar e depois te respondo.

Obrigado por enquanto.


Marcos

Meu amigo good guy



Me perdoa pela demora é que eu estava viajando, bom nem tenho como te agradecer, de novo voce resolveu meus problemas, era isso que eu precisava mais uma vez obrigado por tudo.

Um grande abraço

Att

Marcos

Obrigado Marcos. Todo o fórum agradece também.