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


    Soma de campos de Subformulário - Todos Tópicos do Forum já testados

    avatar
    felipamurim
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 02/05/2019

    Soma de campos de Subformulário - Todos Tópicos do Forum já testados Empty Soma de campos de Subformulário - Todos Tópicos do Forum já testados

    Mensagem  felipamurim em 3/5/2019, 02:29

    Boa noite, estou com um problema em um formulário, especificamente em conseguir somar os valores de 5 sub formulários contidos neste formulário,
    já tentei usando Nz() IIF() VarType() e até agora nada.

    Queria achar uma maneira de somar esses campos no rodapé do meu form principal, no formato dos campos utilizei o formato #,###"KG" (É um sistema de calculo de arraçoamento para peixes, por padrão uso esse formato em quase todo db.)

    Em todos os subforms tenho um campo "Trato Total" com o formato #,###"KG", esse que quero a soma no form principal:

    - Já criei campos de soma no rodapé dos subforms(FormTrato1 e FormTrato2) usando =Soma(Nz([Trato Total];0)) - Este está funcionando perfeitamente

    - Porém no campo "Total Diário de Ração" no Form principal sempre dar #Erro! #Nome! ou #Tamanho!

    Soma de campos de Subformulário - Todos Tópicos do Forum já testados Arrazo10


    Utilizo uma combobox "Tanque" e um Controle de Guias "guias" com os Tanques (Tanque1,Tanque2...etc) e utilizei duas private subs para assim que alterar o campo da combobox alterar a guia e vice-versa.

    -Acrescimo: Quando alguma expressão aparentemente vai funcionar ele retorna o erro no VBA: "Este Recordset não pode ser atualizado", quando tento mudar de guia, ou valor da combobox.

    Private Sub guias_Change()
    Forms!FRM_Arraçoamento!Tanque = Me.guias.Value 'faz com que ao clicar na guia o valor da combobox mude
    Me.Form.Refresh

    End Sub

    Private Sub Tanque_Change()
    Forms!FRM_Arraçoamento!guias = Me.Tanque.Column(0) 'faz com que ao mudar o valor da combobox a guia mude
    Me.Form.Refresh
    End Sub

    - Estou enviando uma cópia do DB, caso alguém queira dar uma olhada o formulário se chama "FRM_Arraçoamento"

    Desde já grato a quem ajudar, sou ainda leigo no Access mas já acompanho a algum tempo o Forum,já procurei bastante sobre este problemas, mas sem solução, então por isso resolvi criar um tópico.
    Anexos
    Soma de campos de Subformulário - Todos Tópicos do Forum já testados AttachmentPiscicultura Tuby.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.6 Mb) Baixado 8 vez(es)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Soma de campos de Subformulário - Todos Tópicos do Forum já testados Empty Re: Soma de campos de Subformulário - Todos Tópicos do Forum já testados

    Mensagem  Silvio em 3/5/2019, 17:46

    Olá, boa tarde.

    O campo Trato total é um campo calculado, oriundo da tabela.
    Bom fica aqui umas dicas...

    1- criar uma caixa de texto desvinculada em cada formulário, onde a fonte de registro será a caixade texto frmtrato1....frmtrato2 respectivamente.
    2- realizar a soma, referenciando a essa caixa de texto oculta.
    3- seus formulários estão baseados em consultas. Pode até ser, mas não é de bom tom fazer isso. O correto seria a tabela de origem de cada um.

    Faça as mudanças e nos avise.

    Abraços.



    .................................................................................
    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
    felipamurim
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 02/05/2019

    Soma de campos de Subformulário - Todos Tópicos do Forum já testados Empty Re: Soma de campos de Subformulário - Todos Tópicos do Forum já testados

    Mensagem  felipamurim em 4/5/2019, 00:15

    Vou tentar fazer as alterações e dou o retorno aqui.
    avatar
    felipamurim
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 02/05/2019

    Soma de campos de Subformulário - Todos Tópicos do Forum já testados Empty Re: Soma de campos de Subformulário - Todos Tópicos do Forum já testados

    Mensagem  felipamurim em 4/5/2019, 00:52

    Silvio, seguir as dicas que você deu porem ainda continuo com o problema: Laughing

    -Alterei a fonte de dados de consultas para tabelas
    - Criei os campos com fonte de registro nos campos "frmtrato"

    Alguma dica mais ?

    Segue imagem das alterações que fiz:

    Soma de campos de Subformulário - Todos Tópicos do Forum já testados Sem_tz10
    avatar
    AErmel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 27/01/2012

    Soma de campos de Subformulário - Todos Tópicos do Forum já testados Empty Re: Soma de campos de Subformulário - Todos Tópicos do Forum já testados

    Mensagem  AErmel em 4/5/2019, 14:27

    Boas

    O que percebi:
    No formulário principal , você tem uma caixa  de seleção para o tanque, com base em tabela viveiros.
    Quando você altera o tanque, na realidade você esta apenas alterando o numero do tanque na tabela Arraçoamento.
    O numero do tanque é alterado mas continua sempre no primeiro registro da tabela.
    Substitui o campo tanque da tabela por campo não acoplado para aplicar o filtro.
    Veja se o que segue anexo atende.
    Anexos
    Soma de campos de Subformulário - Todos Tópicos do Forum já testados AttachmentPiscicultura Tuby Alterado.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.7 Mb) Baixado 7 vez(es)

    Conteúdo patrocinado

    Soma de campos de Subformulário - Todos Tópicos do Forum já testados Empty Re: Soma de campos de Subformulário - Todos Tópicos do Forum já testados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/8/2019, 19:20