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

    [Resolvido]Ajuda com Loop

    Compartilhe
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 10/04/2014

    [Resolvido]Ajuda com Loop

    Mensagem  biligo em Qua Jan 11, 2017 8:01 am

    Boas galera,
    Infelizmente não sei nem como explicar minha duvida, então se alguém puder me ajudar e mostrar onde estou errando agradeceria.

    Fiz um processo semelhante mas utilizando apenas 3 tabelas agora no caso chegou a 5 tabelas mas o procedimento que utilizei não funciona neste caso.
    Segue o que estou tentando criar mas não me gera nada:



    Caso ajude segue link do exemplo: dropbox.com/s/j7l9ldlokl8u6wd/TemplateFechamento.zip?dl=0
    Caso alguém conheça esses métodos e puder ajudar agradeço.
    Anexos
    TemplateFechamento.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (58 Kb) Baixado 3 vez(es)
    avatar
    Alexandre Fim
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Ajuda com Loop

    Mensagem  Alexandre Fim em Qua Jan 11, 2017 1:56 pm

    Olá biligo,

    Fiz uma analise do teu sistema e percebi que vc quer gerar um fechamento informando a caixa e gerar um relatorio no Word.
    Não há necessidade de criar o relatorio no Word, e sim no próprio Access.
    1 - Criar uma consulta com os dados necessários
    2 - Criar um relatorio, tendo como fonte de dados, a consulta desenvolvida.

    Espero ter ajudado.

    Att,
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 10/04/2014

    Re: [Resolvido]Ajuda com Loop

    Mensagem  biligo em Qua Jan 11, 2017 3:54 pm

    Boas Alexandre,
    Grato pela analise. Infelizmente será necessário sim ou se me mostrar uma forma melhor pois a criação de relatório contem um ponto negativo que o Word supri que é o espaço em um campo. Posso incluir os dados que quiser no word que não me mostrara dezenas de # ou quaisquer outros símbolos ou se eu colocar apenas um carácter em um relatório do access me deixará um espaço enorme. São inume-as as negatividades na questão. A parte que postei é apenas uma para simplificar para que possam me ajudar.

    Ainda em busca da solução...
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 10/04/2014

    Re: [Resolvido]Ajuda com Loop

    Mensagem  biligo em Ter Jan 24, 2017 6:43 am

    Boas galera, resolvida a questão.

    Código:
    Dim rsCnsMtBoy As Recordset
        Dim Nome, Diaria, TxFinal, DiMax, Total As String
       

    Set rsCnsMtBoy = CurrentDb.OpenRecordset("SELECT * FROM cnsEntregador WHERE IdCaixa = " & Me.IdCaixa & "")
       

    Do While Not rsCnsMtBoy.EOF

        If Nome = "" Then
            Nome = rsCnsMtBoy!Name
            Diaria = "40,00"
            TxFinal = "R$ " & Format(Nz(DSum("TxEntrega", "cnsEntregador", "[IdCaixa] = " & Me.IdCaixa & " And [Name] = '" & rsCnsMtBoy!Name & "'"), "0"), "#,##0.00")
            DiMax = Nz(DSum("DistanciaMAX", "cnsEntregador", "[IdCaixa] = " & Me.IdCaixa & " And [Name] = '" & rsCnsMtBoy!Name & "'"), "0") & " Km"
            Total = "R$ " & Format(Diaria + Nz(DSum("TxEntrega", "cnsEntregador", "[IdCaixa] = " & Me.IdCaixa & " And [Name] = '" & rsCnsMtBoy!Name & "'"), "0"), "#,##0.00")
        Else
       
            Nome = Nome & vbCrLf & rsCnsMtBoy!Name
            Diaria = Diaria & vbCrLf & "40,00"
            TxFinal = TxFinal & vbCrLf & "R$ " & Format(Nz(DSum("TxEntrega", "cnsEntregador", "[IdCaixa] = " & Me.IdCaixa & " And [Name] = '" & rsCnsMtBoy!Name & "'"), "0"), "#,##0.00")
            DiMax = DiMax & vbCrLf & Nz(DSum("DistanciaMAX", "cnsEntregador", "[IdCaixa] = " & Me.IdCaixa & " And [Name] = '" & rsCnsMtBoy!Name & "'"), "0") & " Km"
            Total = Total & vbCrLf & "R$ " & Format(40 + Nz(DSum("TxEntrega", "cnsEntregador", "[IdCaixa] = " & Me.IdCaixa & " And [Name] = '" & rsCnsMtBoy!Name & "'"), "0"), "#,##0.00")
           
        End If
       
        rsCnsMtBoy.MoveNext
    Loop


            .ActiveDocument.Bookmarks("A36").Select
            .Selection.Text = Nome

            .ActiveDocument.Bookmarks("A37").Select
            .Selection.Text = Diaria
           
            .ActiveDocument.Bookmarks("A38").Select
            .Selection.Text = TxFinal
           
            .ActiveDocument.Bookmarks("A39").Select
            .Selection.Text = DiMax
           
            .ActiveDocument.Bookmarks("A40").Select
            .Selection.Text = Total

      Data/hora atual: Dom Set 24, 2017 1:16 pm