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


    Campo Calculado na Tabela

    avatar
    ARGONZALE
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 21/05/2015

    Campo Calculado na Tabela Empty Campo Calculado na Tabela

    Mensagem  ARGONZALE em 24/4/2019, 18:05

    Prezados, boa tarde.

    Estou com uma dúvida e preciso de ajuda pois não sei se estou pensando da melhor forma.

    Como faço para lançar o valor calculado de um campo de um determinado formulário para dentro de um campo de outra tabela? Sei que não é a pratica lançar na tabela valores calculados mas neste caso preciso deste valor.

    Por Ex:

    Preciso que a soma total do campo quantidade do subformulário!DetalheVendas seja lançado no campo volumes da Tabela de Vendas.

    Desde já agradeço!!!


    .................................................................................
    Obrigado.

    Att.

    Alexandre Gonzales
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4358
    Registrado : 20/04/2011

    Campo Calculado na Tabela Empty Re: Campo Calculado na Tabela

    Mensagem  Silvio em 24/4/2019, 18:24

    Algo parecido com isso...

       Dim db1 As Database, rs1 As DAO.Recordset
       Set db1 = CurrentDb
       Set rs1 = db1.OpenRecordset("Nome_de_sua_tabela_aqui")
       With rs1
     
       .AddNew
       ' campos que estão na tabela = campos do fomulario
       ![Chave primaria] = Forms!FrmNome_Formulário_Principal!Me.chave primaria
       ![Campo soma Sub Formulário] = Campo soma que está na tabela    
       .Update
       rs.close
      Set rs = Nothing
      Set db = Nothing
       End With


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    ARGONZALE
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 21/05/2015

    Campo Calculado na Tabela Empty Re: Campo Calculado na Tabela

    Mensagem  ARGONZALE em 24/4/2019, 19:25

    Fala Silvio, boa tarde.

    Usei seu recurso mas não inseriu na tabela:

    Private Sub QUANT_AfterUpdate()
    On Error Resume Next
    Dim db1 As Database, rs1 As DAO.Recordset
      Set db1 = CurrentDb
      Set rs1 = db1.OpenRecordset("1 VENDAS") 'Aqui é minha Tabela principal
      With rs1

      .AddNew
      'campos que estão na tabela = campos do fomulário
      [IDvendas] = Forms![FORM_VENDAS 3]!ID_Vendas '[IDvendas] da minha tabela de detalhe
     Forms![FORM_VENDAS 3]!ID_Vendas  'São dados do meu subformulário de detalhe

     [QUANT_TOTAL] = VOLUMES
    '[QUANT_TOTAL] é a soma da quantidade no subformulário de detalhe
    'VOLUMES é o campo da tabela de Vendas que precisa receber o valor do campo calculado.

      .Update
      rs.Close
     Set rs = Nothing
     Set DB = Nothing
      End With
    End Sub[/color]


    .................................................................................
    Obrigado.

    Att.

    Alexandre Gonzales
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 702
    Registrado : 23/01/2018

    Campo Calculado na Tabela Empty Re: Campo Calculado na Tabela

    Mensagem  crysostomo em 24/4/2019, 19:34

    Só uma alerta. A tabela não é apropriada para se fazer cálculos pois fica muito pesada , para carregar cálculos criamos uma consulta para puxar os valores.
    Abçs


    Última edição por crysostomo em 24/4/2019, 19:38, editado 1 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4358
    Registrado : 20/04/2011

    Campo Calculado na Tabela Empty Re: Campo Calculado na Tabela

    Mensagem  Silvio em 24/4/2019, 19:34

    Campos tabela........campos formulário

    VOLUMES..............[QUANT_TOTAL]


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    ARGONZALE
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 21/05/2015

    Campo Calculado na Tabela Empty Re: Campo Calculado na Tabela

    Mensagem  ARGONZALE em 24/4/2019, 19:44

    Prezado crysostomo,

    No campo volumes eu tenho que digitar o valor que aparece no campo somado de quantidade.

    Pensei que ao invés de fazer uma consulta para ter este valor, poderia gerar o calculo em vba.

    Vou analisar melhor esta possibilidade e retornar neste tópico.


    Prezado Silvio,

    Mesmo alterando a ordem dos campos ainda não funfou como preciso.


    Obrigado pelo retorno pessoal.


    .................................................................................
    Obrigado.

    Att.

    Alexandre Gonzales
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4358
    Registrado : 20/04/2011

    Campo Calculado na Tabela Empty Re: Campo Calculado na Tabela

    Mensagem  Silvio em 24/4/2019, 20:00

    Qual é o campo pai e campo filho ?

    Idvendas é a chave primária na tabela principal ? se for o mesmo tem que estar na tabela detalhe como chave estrangeira e é por essa chave que se faz o relacionamento, por isso te perguntei qual era o campo pai e filho.

    Posta teu banco, apenas as entidades envolvidas

    E tenta colocar o código no evento ao sair do campo QUANT




    Private Sub QUANT_AfterUpdate()
    On Error Resume Next
    Dim db1 As Database, rs1 As DAO.Recordset
    Set db1 = CurrentDb
    Set rs1 = db1.OpenRecordset("1_VENDAS") 'Aqui é minha Tabela principal
    With rs1

    .AddNew
    'campos que estão na tabela = campos do fomulário
    [IDvendas] = Forms![FORM_VENDAS 3]!IDVendas ' alterado
    VOLUMES = [QUANT_TOTAL] ' alterado


    .Update
    rs.Close
    Set rs = Nothing
    Set DB = Nothing
    End With
    End Sub


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    ARGONZALE
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 21/05/2015

    Campo Calculado na Tabela Empty Re: Campo Calculado na Tabela

    Mensagem  ARGONZALE em 24/4/2019, 21:35

    Silvio,

    ID_Vendas (campo pai) é a chave primária e IDvendas (campo filho) é a chave estrangeira. No relacionamento está como "um para muitos".

    Assim que conseguir eu posto meu BD.


    .................................................................................
    Obrigado.

    Att.

    Alexandre Gonzales

    Conteúdo patrocinado

    Campo Calculado na Tabela Empty Re: Campo Calculado na Tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 26/5/2019, 14:56