MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 11 Jan 2017, 08:01

    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 : 134
    Registrado : 13/12/2016

    Re: [Resolvido]Ajuda com Loop

    Mensagem  Alexandre Fim em Qua 11 Jan 2017, 13:56

    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 11 Jan 2017, 15:54

    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 24 Jan 2017, 06:43

    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: Qui 25 Maio 2017, 11:38