[Resolvido]Como transformar o código access em um código vba

Olá, eu gostara de saber se alguém pode me ajudar a transformar esse código abaixo em um codigo vba.. não sei muito de vba e eu realmente preciso modificar isso ..  
atualmente ele está em um campo texto na fonte de controle do mesmo e o objetivo dele é somar uma coluna de totais de cada tabela e no final multiplicar pelo "Custo" que é um campo de outra tabela mas que se encontra no formulário atual. O "Cod_DadosGerais" é o código que vai definir qual registro será resgatado para a soma, então, se o formulário atual está no "Cod_DadosGerais=1" então a soma da tabela pessoal deve ser todas que estiver no código DadosGerais=1, por exemplo.


=((DSoma("Total";"pessoal";"[pessoal]![Cod_DadosGerais]=[Tributacao]![Cod_DadosGerais]"))+
(DSoma("TotGeral_HoraAd";"ConsultaPessoal HoraAd";"[ConsultaPessoal HoraAd]![Cod_DadosGerais]=[Tributacao]![Cod_DadosGerais]"))+(DSoma("BeneficioTotGeral";"ConsultaBeneficiosTotais";"[ConsultaBeneficiosTotais]![Cod_DadosGerais]=[Tributacao]![Cod_DadosGerais]"))+(DSoma("Total_Contrato";"Equipamentos";"[Equipamentos]![Cod_DadosGerais]=[Tributacao]![Cod_DadosGerais]"))+
(DSoma("contrato_material";"Material";"[Material]![Cod_dadosGerais]=[Tributacao]![Cod_DadosGerais]"))+
(DSoma("Contrato_OutrosC";"OutrosCustos";"[OutrosCustos]![Cod_DadosGerais]=[Tributacao]![Cod_DadosGerais]"))+
(DSoma("Total_SMS";"CadastrodeSMS";"[pessoal]![Cod_DadosGerais]=[Tributacao]![Cod_DadosGerais]"))+
(DSoma("contrato_sub";"Subcontratacao";"[Subcontratacao]![cod_DadosGerais]=[Tributacao]![Cod_DadosGerais]"))+
(DSoma("TotalContatro";"Veiculos";"[Veiculos]![Cod_dadosGerais]=[Tributacao]![Cod_DadosGerais]"))+
(DSoma("Contrato_Viagens";"Viagens e Estadias";"[Viagens e Estadias]![Cod_DadosGerais]=[Tributacao]![Cod_DadosGerais]")))*[Custo]

Tem como postar um exemplo do seu banco de dados.

Não tem como eu colocar o banco porque ele é muito grande mas esse código está direto na fonte de controle dos campos não associados






se não isso não ajudar eu tento fazer um modelo mais ou menos de como é

eu queria saber como somar uma coluna de cada tabela e depois multiplicar por um campo desse formulário no código VBA, não sei como fazer pra indicar de qual tabela puxar e como fazer a condição do Cod_DadosGerais ser igual ao Cod_DadosGerais do formulário atual.. se você conseguir me passar pelo menos uma formula de como fazer isso acho que consigo fazer

queria fazer o código vba pois as vezes eu abro o formulário e as contas não aparecem.. acho que essa seria a forma de resolver

Boa tarde

Poste só esse formulário e a tabela ou consulta que o alimenta.

Pitaco.

Pesquise no fórum ou na internet como se cria um módulo no Access, após o módulo criado, cole o código abaixo. O código é uma função que faz a soma nas tabelas.

Código:

Public Function fncSomaTudo(lngCodDadosGerais As Long)

    Dim varValor
    
    varValor = 0
    varValor = varValor + Nz(DSum("Total", "pessoal", "[Cod_DadosGerais]=" & codDadosGerais), 0)
    varValor = varValor + Nz(DSum("TotGeral_HoraAd", "[ConsultaPessoal HoraAd]", "[Cod_DadosGerais]=" & codDadosGerais), 0)
    varValor = varValor + Nz(DSum("BeneficioTotGeral", "ConsultaBeneficiosTotais", "[Cod_DadosGerais]=" & codDadosGerais), 0)
    varValor = varValor + Nz(DSum("Total_Contrato", "Equipamentos", "[Cod_DadosGerais]=" & codDadosGerais), 0)
    varValor = varValor + Nz(DSum("contrato_material", "Material", "[Cod_dadosGerais]=" & codDadosGerais), 0)
    varValor = varValor + Nz(DSum("Contrato_OutrosC", "OutrosCustos", "[Cod_DadosGerais]=" & codDadosGerais), 0)
    varValor = varValor + Nz(DSum("Total_SMS", "CadastrodeSMS", "[Cod_DadosGerais]=" & codDadosGerais), 0)
    varValor = varValor + Nz(DSum("contrato_sub", "Subcontratacao", "[cod_DadosGerais]=" & codDadosGerais), 0)
    varValor = varValor + Nz(DSum("TotalContatro", "Veiculos", "[Cod_dadosGerais]=" & codDadosGerais), 0)
    varValor = varValor + Nz(DSum("Contrato_Viagens", "[Viagens e Estadias]", "[Cod_DadosGerais]=" & codDadosGerais), 0)
    
    fncSomaTudo = varValor

End Function

Com a função criada, na fonte do controle no formulário use a instrução abaixo

Código:

=fncSomaTudo(Nz([Tributacao]![Cod_DadosGerais], 0)) * Nz([Custo], 0)

Esse é o formulário e todas as tabelas que alimentam ele

oi, DamascenoJr., obrigada pela resposta! o seu código parece exatamente o que eu preciso mas não consegui fazer a segunda parte, tenho que colocar o segundo código na fonte de registro do campo não associado? pq ele dá um erro, fala q tem uma virgula a mais ou algo faltando, acho q deve ser algum erro de digitação ou algo do tipo. Eu mandei o formulário logo acima, vc consegue ver o que está errado?

consegui arrumar o código, erá só colocar ; onde tinha vírgulas.. mas não funcionou.. apareceu NOME? no campo.

as vezes os valores não aparecem mas tem q clicar na combobox onde está escrito pesquisa e deixar no código 1. Preciso mudar as contas de todos os campos do formulário, com exceção dos campos de vem das tabelas, mas o campo que tem q ter esse código específico é onde está escrito "Custo Financeiro Capital de Giro:/".

Na função, troque
Public Function fncSomaTudo(lngCodDadosGerais As Long)

por
Public Function fncSomaTudo(CodDadosGerais As Long)

e na fonte do controle no formulário fica o seguinte comando

Código:

=fncSomaTudo(Nz([Cod_DadosGerais];0))*Nz([Custo];0)

Funcionou!!! Muito Obrigada