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


3 participantes

    [Resolvido]Controle de Fundos/Ações sql para Editar registro na tabela.

    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 27/05/2016

    [Resolvido]Controle de Fundos/Ações sql para Editar registro na tabela. Empty [Resolvido]Controle de Fundos/Ações sql para Editar registro na tabela.

    Mensagem  Helden 9/1/2022, 05:16

    Bom dia pessoal, estou tentando acrescentar controle de fundos de investimento ao meu sistema pessoal de controle das contas.
    coloquei os registros de compra e venda em uma só tabela, tblInvest
    Só tem um formulario frmInvestControl

    Nos campos de vendas do frmInvestControl coloquei o botao btGravarVendas com o código abaixo para editar uma linha da tabela que registra compra mas trava no DB.Execute (sql)
    obs:  cboCodigo é o codigo do fundo/açoes. Alguns campos txt do formulario sao calculados para ediçao dos registros de compra e venda .
    Alguma dica para correção? sou meio noob em sql. Obrigado!!


    Private Sub btGravarVenda_Click()
    SQL = "UPDATE tblInvest set Codigo = '" & Me.cboCodigo & "',Me.DataVenda = '" & Me.txtDataVenda & "',Me.PrecoMedio = '" & Me.txtPrecoMedio & "',Me.QuantidadeVenda = '" & Me.txtQuantidadeVenda & "',Me.TotalComprado = '" & Me.txtTotalComprado & "',Me.ValorUnitarioVenda = '" & Me.txtValorUnitarioVenda & "',Me.ValorTotalVendido = '" & Me.txtValorTotalVendido & "',Me.TotalTaxas = '" & Me.txtTotalTaxas & "',Me.ResultadoPosVenda = '" & Me.txtREsultado & "',Me.ResultadoPorcVenda = '" & Me.txtPorcVenda & " WHERE IDMovimentacoes = " & varIDMovimentacoes & ""

    DB.Execute (SQL)

    MsgBox ("Edição realizada"), vbInformation + vbOKOnly, "Aviso"

    End Sub

    "drive.google.com/file/d/1bsnDYkiJ8hXPV1J7qjV65LrQGBFp_kFT/view?usp=sharing"

    Tentei esse codigo tambem ele até da a mensage  "" edição realizada"" mas nao grava na tabela campos calculados no formulario para edição, o registro fica em branco na tabela.
    Coloquei consulta como variavel global

    Private Sub btGravarVenda_Click()
    Dim ComandoSQL As String
    Dim id As Integer

    ' coloquei essa caixa com ID
    id = txtID                    

    ComandoSQL = "select * from tblInvest where IDMovimentacoes like '" & id & "'"

    Set Banco = CurrentDb

    Set Consulta = Banco.OpenRecordset(ComandoSQL)

    Consulta.Edit
    Consulta("Codigo") = Me.cboCodigo.Column(0)
    Consulta("DataVenda") = Me.txtDataVenda
    Consulta("PrecoMedio") = Me.txtPrecoMedio
    Consulta("QuantidadeVenda") = Me.txtQuantidadeVenda
    consulta("Quantidade") = Me.txtQuantidade
    Consulta("QuantidadeFinal") = Me.txtQuantidadeFinal
    .
    .
    .

    Consulta.Update

    MsgBox ("Edição realizada"), vbInformation + vbOKOnly, "Aviso"

    End Sub


    Coloquei mais uma caixa de texto txtQuantidadeFinal com campo calculado =txtQuantidade-txtQuantidadeVenda
    Funciona bem, se alguem desejar dar uma dica para melhora aguardo, obrigado!!!
    só que para atualizar a tabela tem que preencher a TxtQuantidade (não busca na tabela para o calculo0
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 14/02/2011

    [Resolvido]Controle de Fundos/Ações sql para Editar registro na tabela. Empty re:Controle de Fundos/Ações sql para Editar registro na tabela.

    Mensagem  daniloreiis 10/1/2022, 11:57

    Bom dia meu amigo!

    Gostaria de ajudar, mas tentei fazer o download do arquivo não está compartilhado.

    Att


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3449
    Registrado : 13/12/2016

    [Resolvido]Controle de Fundos/Ações sql para Editar registro na tabela. Empty Re: [Resolvido]Controle de Fundos/Ações sql para Editar registro na tabela.

    Mensagem  Alexandre Fim 10/1/2022, 14:11

    Olá Helden,

    Vc está usando o "Me" para os campos da tabela.
    Deve ser utilizado somente para os campos do form.

    É isso


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Controle de Fundos/Ações sql para Editar registro na tabela. Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 27/05/2016

    [Resolvido]Controle de Fundos/Ações sql para Editar registro na tabela. Empty Re: [Resolvido]Controle de Fundos/Ações sql para Editar registro na tabela.

    Mensagem  Helden 11/1/2022, 04:48

    Verdade Alexandre, obrigado pelo retorno, resolvido com o segundo código, mas vou testar com as modificacoes do ""Me"" tambem.
    Danilo Tentei no dropbox


    https://www.dropbox.com/s/k6kdfbm0zmodm3g/Banco%20de%20dados61.accdb?dl=0

    com o segundo codigo
    https://www.dropbox.com/s/gkwfztm4ykiiutt/Banco%20de%20dados7.accdb?dl=0
    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 27/05/2016

    [Resolvido]Controle de Fundos/Ações sql para Editar registro na tabela. Empty Re: [Resolvido]Controle de Fundos/Ações sql para Editar registro na tabela.

    Mensagem  Helden 12/1/2022, 02:32

    Obrigado!!

    Conteúdo patrocinado


    [Resolvido]Controle de Fundos/Ações sql para Editar registro na tabela. Empty Re: [Resolvido]Controle de Fundos/Ações sql para Editar registro na tabela.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/10/2024, 21:30