MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Consuta e relatorio

    avatar
    marcosfaguiar
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 20/08/2012

    [Resolvido]Consuta e relatorio Empty [Resolvido]Consuta e relatorio

    Mensagem  marcosfaguiar 27/11/2013, 10:25

    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
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Consuta e relatorio Empty Consuta e relatorio

    Mensagem  good guy 27/11/2013, 12:29

    Olá Marcos,

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 20/08/2012

    [Resolvido]Consuta e relatorio Empty Consuta e relatorio

    Mensagem  marcosfaguiar 27/11/2013, 13:32

    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

    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Consuta e relatorio Empty Consuta e relatorio

    Mensagem  good guy 27/11/2013, 18:19

    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


    Última edição por good guy em 27/11/2013, 19:48, editado 2 vez(es)
    avatar
    marcosfaguiar
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 20/08/2012

    [Resolvido]Consuta e relatorio Empty Consuta e relatorio

    Mensagem  marcosfaguiar 27/11/2013, 19:13

    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





    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Consuta e relatorio Empty Consuta e relatorio

    Mensagem  good guy 27/11/2013, 19:51

    Teste agora,

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 20/08/2012

    [Resolvido]Consuta e relatorio Empty Consuta e relatorio

    Mensagem  marcosfaguiar 27/11/2013, 20:01

    Caro good guy

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

    Obrigado

    Marcos

    Perdão ratificando é no formulario


    Última edição por marcosfaguiar em 27/11/2013, 20:34, editado 1 vez(es)
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Consuta e relatorio Empty Consulta e relatorio

    Mensagem  good guy 27/11/2013, 20:11

    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
    '******************************************
    avatar
    marcosfaguiar
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 20/08/2012

    [Resolvido]Consuta e relatorio Empty Consuta e relatorio

    Mensagem  marcosfaguiar 29/11/2013, 00:11

    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
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Consuta e relatorio Empty consuta e relatorio

    Mensagem  good guy 29/11/2013, 00:45

    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.
    avatar
    marcosfaguiar
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 20/08/2012

    [Resolvido]Consuta e relatorio Empty Consuta e relatorio

    Mensagem  marcosfaguiar 29/11/2013, 09:05

    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
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Consuta e relatorio Empty Consuta e relatorio

    Mensagem  good guy 29/11/2013, 19:09

    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.
    avatar
    marcosfaguiar
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 20/08/2012

    [Resolvido]Consuta e relatorio Empty Consuta e relatorio

    Mensagem  marcosfaguiar 29/11/2013, 20:47

    Caro good guy

    Vou baixar e depois te respondo.

    Obrigado por enquanto.


    Marcos

    avatar
    marcosfaguiar
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 20/08/2012

    [Resolvido]Consuta e relatorio Empty Consuta e relatorio

    Mensagem  marcosfaguiar 5/1/2014, 01:40

    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



    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Consuta e relatorio Empty Consuta e relatorio

    Mensagem  good guy 15/1/2014, 21:03

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

    Conteúdo patrocinado


    [Resolvido]Consuta e relatorio Empty Re: [Resolvido]Consuta e relatorio

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 17:10