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


2 participantes

    [Resolvido]Ajuda com Loop

    biligo
    biligo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com Loop Empty [Resolvido]Ajuda com Loop

    Mensagem  biligo 11/1/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
    [Resolvido]Ajuda com Loop AttachmentTemplateFechamento.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (58 Kb) Baixado 12 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com Loop Empty Re: [Resolvido]Ajuda com Loop

    Mensagem  Alexandre Fim 11/1/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,
    biligo
    biligo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com Loop Empty Re: [Resolvido]Ajuda com Loop

    Mensagem  biligo 11/1/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...
    biligo
    biligo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com Loop Empty Re: [Resolvido]Ajuda com Loop

    Mensagem  biligo 24/1/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

    Conteúdo patrocinado


    [Resolvido]Ajuda com Loop Empty Re: [Resolvido]Ajuda com Loop

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 01:30