MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Consuta e relatorio

    Compartilhe

    marcosfaguiar
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Consuta e relatorio

    Mensagem  marcosfaguiar em Qua 27 Nov 2013, 11: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
    Anexos
    A Toca.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (2.9 Mb) Baixado 13 vez(es)
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    Consuta e relatorio

    Mensagem  good guy em Qua 27 Nov 2013, 13: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.

    marcosfaguiar
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Consuta e relatorio

    Mensagem  marcosfaguiar em Qua 27 Nov 2013, 14: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

    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    Consuta e relatorio

    Mensagem  good guy em Qua 27 Nov 2013, 19: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 Qua 27 Nov 2013, 20:48, editado 2 vez(es)

    marcosfaguiar
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Consuta e relatorio

    Mensagem  marcosfaguiar em Qua 27 Nov 2013, 20: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





    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    Consuta e relatorio

    Mensagem  good guy em Qua 27 Nov 2013, 20:51

    Teste agora,

    Na atualização de estoque, se ocorrer aviso da Microsoft de alterações por outro usuário descarte as alterações.
    Anexos
    A Toca.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (3 Mb) Baixado 26 vez(es)

    marcosfaguiar
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Consuta e relatorio

    Mensagem  marcosfaguiar em Qua 27 Nov 2013, 21: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 Qua 27 Nov 2013, 21:34, editado 1 vez(es)
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    Consulta e relatorio

    Mensagem  good guy em Qua 27 Nov 2013, 21: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
    '******************************************

    marcosfaguiar
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Consuta e relatorio

    Mensagem  marcosfaguiar em Sex 29 Nov 2013, 01: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
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    consuta e relatorio

    Mensagem  good guy em Sex 29 Nov 2013, 01: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.

    marcosfaguiar
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Consuta e relatorio

    Mensagem  marcosfaguiar em Sex 29 Nov 2013, 10: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
    Anexos
    A Toca1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (2 Mb) Baixado 3 vez(es)
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    Consuta e relatorio

    Mensagem  good guy em Sex 29 Nov 2013, 20: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.
    Anexos
    A Toca.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (2.1 Mb) Baixado 24 vez(es)

    marcosfaguiar
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Consuta e relatorio

    Mensagem  marcosfaguiar em Sex 29 Nov 2013, 21:47

    Caro good guy

    Vou baixar e depois te respondo.

    Obrigado por enquanto.


    Marcos


    marcosfaguiar
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Consuta e relatorio

    Mensagem  marcosfaguiar em Dom 05 Jan 2014, 02: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



    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    Consuta e relatorio

    Mensagem  good guy em Qua 15 Jan 2014, 22:03

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

      Data/hora atual: Seg 23 Abr 2018, 04:07