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


    [Resolvidos]Formulário x Referência Cruzada

    avatar
    Convidado
    Convidado


    [Resolvidos]Formulário x Referência Cruzada Empty [Resolvidos]Formulário x Referência Cruzada

    Mensagem  Convidado 26/1/2010, 23:47

    Boa noite a todos,

    Através do código abaixo, tenho dinâmicamente no formulário (que é vinculado a uma consulta Tabela de Referência Cruzada) os dados que preciso (despesas dos últimos 06 meses):

    Private Sub Form_Load()
    Dim rs As DAO.Recordset, I As Integer
    Set rs = Me.RecordsetClone
    With rs
    For I = 0 To .Fields.Count - 1
    Me("Txt" & I).ControlSource = .Fields(I).Name
    Me("Lbl" & I).Caption = .Fields(I).Name
    Me("Txt" & I).Visible = True
    Me("Lbl" & I).Visible = True
    Next I
    End With
    rs.Close 'Libera recursos.
    Set rs = Nothing
    End Sub

    Estou tentando colocar um total para os valores no rodapé do formulário, más não estou conseguindo (conforme imagem abaixo):

    [Resolvidos]Formulário x Referência Cruzada Form1f

    Só consigo o total da soma (usando a função DSoma), más não estou conseguindo o total do título de coluna.

    A consulta é essa:

    TRANSFORM Sum(QryDespesas.ValorDespesa) AS SomaDeValorDespesa
    SELECT QryDespesas.TipoDespesa AS [Tipo de Despesa], Sum(QryDespesas.ValorDespesa) AS Total
    FROM QryDespesas
    GROUP BY QryDespesas.TipoDespesa
    ORDER BY QryDespesas.MesAno
    PIVOT QryDespesas.MesAno;

    Qualquer orientação eu agradeço.

    Nivaldo.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvidos]Formulário x Referência Cruzada Empty Re: [Resolvidos]Formulário x Referência Cruzada

    Mensagem  JPaulo 27/1/2010, 09:34

    Ola Nivaldo bom dia;

    Nessa imagem eu vejo um total de 17.776,35 quando a soma dessa coluna dá 11.941,72

    Alguma coisa não está bem, até porque não é facil efectuar soma de campos calculados, com fórmulas ou até vindos por código.

    Agradeço que se quiser, coloque o seu banco ou parte dele num site publico para vermos e ajudar-mos a solucionar o seu problema.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvidos]Formulário x Referência Cruzada Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvidos]Formulário x Referência Cruzada Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvidos]Formulário x Referência Cruzada Folder_announce_new Instruções SQL como utilizar...
    avatar
    Convidado
    Convidado


    [Resolvidos]Formulário x Referência Cruzada Empty Re: [Resolvidos]Formulário x Referência Cruzada

    Mensagem  Convidado 27/1/2010, 10:15

    Bom dia JPaulo,

    A soma a que você se refere está correta. O formulário é do tipo contínuo e na imagem não aparece todos os valores.

    Segue o link do banco para análise:

    http://www.speedyshare.com/files/20587051/DespesasTeste.rar

    O nome do formulário em questão é o"FormDespSemestre".

    Nivaldo.
    avatar
    Convidado
    Convidado


    [Resolvidos]Formulário x Referência Cruzada Empty Re: [Resolvidos]Formulário x Referência Cruzada

    Mensagem  Convidado 28/1/2010, 11:07

    Bom dia a todos,

    Não sei se é o correto, más resolví meu problema da seguinte forma:

    Fiz uma consulta (baseada na referência cruzada) resumindo os totais.
    Fiz um formulário baseado nessa nova consulta e coloquei ele como subformlário no rodapé do formulário "FormDespSemestre".

    Vou testar fazendo lançamentos com a data do pc alterada e depois retorno.

    NIvaldo.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvidos]Formulário x Referência Cruzada Empty Re: [Resolvidos]Formulário x Referência Cruzada

    Mensagem  JPaulo 28/1/2010, 11:43

    Ola Nivaldo bom dia e desculpe a demora.

    Eu fiz em código, veja se gosta.
    O código é chamado no evento ao carregar do form.

    Public Sub MostraSoma()
    'By JPaulo ©️ MaximoAccess
    'Para Nivaldo

    Dim i As Integer, strTotal, strSoma, strSoma1, strSoma2, strSoma3, strSoma4, strSoma5, strSoma6 As Double

    Me.RecordsetClone.MoveFirst
    strTotal = 0
    strSoma = 0
    strSoma1 = 0
    strSoma2 = 0
    strSoma3 = 0
    strSoma4 = 0
    strSoma5 = 0
    strSoma6 = 0

    For i = 1 To Me.RecordsetClone.RecordCount - 1
    strTotal = strTotal + Nz(Me.RecordsetClone.Fields(1), 0) ' percorre a segunda coluna
    strSoma = strSoma + Nz(Me.RecordsetClone.Fields(2), 0) 'percorre a terceira coluna
    strSoma1 = strSoma1 + Nz(Me.RecordsetClone.Fields(3), 0) 'percorre a quarta coluna
    strSoma2 = strSoma2 + Nz(Me.RecordsetClone.Fields(4), 0) 'percorre a quinta coluna
    strSoma3 = strSoma3 + Nz(Me.RecordsetClone.Fields(5), 0) 'percorre a sexta coluna
    strSoma4 = strSoma4 + Nz(Me.RecordsetClone.Fields(6), 0) 'percorre a setima coluna
    strSoma5 = strSoma5 + Nz(Me.RecordsetClone.Fields(7), 0) 'percorre a oitava coluna
    strSoma6 = strSoma6 + Nz(Me.RecordsetClone.Fields(8 ), 0) 'percorre a nona coluna

    Me.RecordsetClone.MoveNext
    Next
    Texto18.Value = strTotal
    txtA.Value = strSoma
    txtB.Value = strSoma1
    txtC.Value = strSoma2
    txtD.Value = strSoma3
    txtE.Value = strSoma4
    txtF.Value = strSoma5
    txtG.Value = strSoma6

    End Sub

    http://dl.dropbox.com/u/771097/DespesasTeste_II.rar


    Última edição por JPaulo em 29/1/2010, 08:00, editado 1 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvidos]Formulário x Referência Cruzada Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvidos]Formulário x Referência Cruzada Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvidos]Formulário x Referência Cruzada Folder_announce_new Instruções SQL como utilizar...
    avatar
    Convidado
    Convidado


    [Resolvidos]Formulário x Referência Cruzada Empty Re: [Resolvidos]Formulário x Referência Cruzada

    Mensagem  Convidado 28/1/2010, 17:33

    Olá JPaulo,

    Não há do que se desculpar.

    Sua solução caiu como uma luva, perfeito. Minha idéia do subformulário só serve dentro do mês corrente. No mês seguinte, já daria erro.

    Mais uma vez o meu muito obrigado. Não só pela solução do problema, más PRINCIPALMENTE pela sua boa vontade.

    Nivaldo.
    avatar
    Convidado
    Convidado


    [Resolvidos]Formulário x Referência Cruzada Empty Re: [Resolvidos]Formulário x Referência Cruzada

    Mensagem  Convidado 29/1/2010, 00:02

    Boa noite,

    JPaulo, verifiquei a soma e ví que está somando somente até a linha nº 9 de todas as colunas.

    Já tentei no evento AO ABRIR, más continua a mesma soma.

    Vou tentar entender a instrução For ... Next.

    Nivaldo.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvidos]Formulário x Referência Cruzada Empty Re: [Resolvidos]Formulário x Referência Cruzada

    Mensagem  JPaulo 29/1/2010, 09:37

    Bom Dia Nivaldo.

    Tem razão não está a somar até ao final.

    No evento Open como você referiu, não pode ser porque nessa altura ainda o form não está populado, terá mesmo de ser onde está.

    Vou rever o código e depois dou noticias.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvidos]Formulário x Referência Cruzada Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvidos]Formulário x Referência Cruzada Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvidos]Formulário x Referência Cruzada Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvidos]Formulário x Referência Cruzada Empty Re: [Resolvidos]Formulário x Referência Cruzada

    Mensagem  JPaulo 29/1/2010, 17:04

    Ola Nivaldo boa tarde!

    Alterei o código para ficar mais pequeno e usual.

    Nota importante:

    Trantando-se de um formulario continuo, todos os campos têm de estar visiveis, ou seja, o
    formulario não pode estar como estava inicialmente, para se ver os ultimos campos teriamos de puxar a barra lateral.

    Public Sub MostraSoma()
    'By JPaulo ©️ MaximoAccess
    'Para Nivaldo

    Dim yColuna As Integer, xCampo As Long, i As Integer, strSoma() As Double

    Me.RecordsetClone.MoveFirst

    ReDim strSoma(1 To 8 )
    For yColuna = 1 To Me.RecordsetClone.RecordCount
    For xCampo = 1 To 8
    strSoma(xCampo) = strSoma(xCampo) + Nz(Me.RecordsetClone.Fields(xCampo), 0)
    Next
    Me.RecordsetClone.MoveNext
    Next

    For i = 1 To 8
    Me.Controls("txtTotal" & i).Value = strSoma(i)
    Next
    End Sub

    http://dl.dropbox.com/u/771097/DespesasTeste_III.rar

    Bom final de semana


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvidos]Formulário x Referência Cruzada Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvidos]Formulário x Referência Cruzada Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvidos]Formulário x Referência Cruzada Folder_announce_new Instruções SQL como utilizar...
    avatar
    Convidado
    Convidado


    [Resolvidos]Formulário x Referência Cruzada Empty Re: [Resolvidos]Formulário x Referência Cruzada

    Mensagem  Convidado 30/1/2010, 00:00

    Boa noite,

    JPaulo, funcionou beleza. Obrigado mais uma vez.

    Muita paz e saúde.

    Nivaldo.

    Conteúdo patrocinado


    [Resolvidos]Formulário x Referência Cruzada Empty Re: [Resolvidos]Formulário x Referência Cruzada

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 04:35