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

    Exportar 2 tabelas relacionadas filtradas pela consulta em "txt" largura fixa

    avatar
    marxlf
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 31/03/2011

    Exportar 2 tabelas relacionadas filtradas pela consulta em "txt" largura fixa Empty Exportar 2 tabelas relacionadas filtradas pela consulta em "txt" largura fixa

    Mensagem  marxlf 9/7/2012, 22:17

    Boa Noite a todos!

    Mais uma vez venho solicita a ajuda de vocês. O problema é o seguinte:
    Possuo duas tabela relacionadas "tbClientes" e "tbBoletos". Tabelas estas, que estão relacionadas através do campo "codCliente".

    Bom foi solicitado a mim, que o sistema gera-se uma arquivo de cobrança dos boletos que se encontram em atraso, arquivo que será importado por um outro sistema da assessoria de cobrança da empresa especializada. A assessoria me enviou um arquivo-modelo de como as cobranças devem ser enviadas (em arquivo ttxt).

    A dúvida é:
    Como de proceder para que os campos da tabela cliente saiam todos um do lado do outro na mesma linha e abaixo relaciona os boletos que estão em atraso através da consulta que o filtra entre datas. Ex de layout:

    CodCliente: 12 Cliente: Fulado de Tal CPF: 12345678910 Endereço: Rua dos bobos

    Boleta Valor Vencimento Data de Pagto Valor Pago
    123 R$ 50,00 10/01/2012
    456 R$ 50,00 10/02/2012
    789 R$ 50,00 10/03/2012

    CodCliente: 12 Cliente: Beltrano da Silva CPF: 98765432100 Endereço: Rua dos Testes
    Boleta Valor Vencimento Data de Pagto Valor Pago
    963 R$ 50,00 30/01/2012
    852 R$ 50,00 28/02/2012
    741 R$ 50,00 30/03/2012


    Pessoal agradeço deste já quem possa me ajudar.
    Abraços
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Exportar 2 tabelas relacionadas filtradas pela consulta em "txt" largura fixa Empty Re: Exportar 2 tabelas relacionadas filtradas pela consulta em "txt" largura fixa

    Mensagem  criquio 9/7/2012, 22:27

    Use dois Recordsets para filtrar as duas tabelas. Algo como:

    Dim rs1 As Recordset, rs2 As Recordset

    Set rs1 = CurrentDb.OpenRecordset("NomeTabela1")

    Do While Not rs1.EOF
    Set rs2 = CurrentDb.OpenRecordset("SELECT * FROM NomeTabela2 WHERE NomeCampoDaID=" & rs1!NomeCampoDaID & "")

    Blá blá blá

    rs1.MoveNext
    Loop

    rs1.Close
    Set rs1 = Nothing

    rs2.Close
    Set rs2 = Nothing


    No rs2, serão selecionados os registros referentes à cada registro do rs1. No Loop serão feitas a seleção e exportação de cada um.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    marxlf
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 31/03/2011

    Exportar 2 tabelas relacionadas filtradas pela consulta em "txt" largura fixa Empty Re: Exportar 2 tabelas relacionadas filtradas pela consulta em "txt" largura fixa

    Mensagem  marxlf 9/7/2012, 22:30

    Opa Criquio muito obrigado mesmo pela sua resposta. Mas, não querendo abusar da sua resposta. Teria como vc ser mais claro. É porque sou iniciante em Access e VBA.

    Desde já agradeço.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Exportar 2 tabelas relacionadas filtradas pela consulta em "txt" largura fixa Empty Re: Exportar 2 tabelas relacionadas filtradas pela consulta em "txt" largura fixa

    Mensagem  criquio 9/7/2012, 22:44

    Como está tentando exportar?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    marxlf
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 31/03/2011

    Exportar 2 tabelas relacionadas filtradas pela consulta em "txt" largura fixa Empty Re: Exportar 2 tabelas relacionadas filtradas pela consulta em "txt" largura fixa

    Mensagem  marxlf 9/7/2012, 22:59

    Então, pensei fazer da seguinte forma: fazer uma consulta com as duas tabelas. No campo "Valor_Pago" coloco o critério "É Nulo" (Sem aspas) e no campo "Data_Vencimento" o critério seria
    Criaria um formulário em que haveria dois campos:

    Data Inicial
    Data Final

    e um botão "Gerar Cobrança" com o evento:

    On Error Resume Next

    Dim stDocName As String

    stDocName = "Consulta_Gerar_Cobranca"

    'Check values are entered into Date From and Date To text boxes
    'if so run report or cancel request

    If Len(Me.DataInicial & vbNullString) = 0 Or Len(Me.DataFinal & vbNullString) = 0 Then
    MsgBox "Por Favor, introduza as datas.", _
    vbInformation, "Atenção!"

    Exit Sub
    Else

    End If

    Bom para exportar as tabelas pensei em fazer da seguinte forma:
    Exportar tabela para txt largura Fixa:


    1 - Cliquei na consulta "Consulta_Gerar_Cobranca" com o botão direito do mouse e em Exportar.

    2 - Seleciono o arquivo txt que vc vai fazer a exportação.

    5 - Irá abrir outra caixa de dialogo, onde seleciono largura fixa, e em seguida clico em avançado.

    6 - Abrirá outra caixa de dialogo com uma Tabela Informações do Campo, onde terá nome do campo, iniciar e largura.

    7 - Preenchi o nome dos campos, O n° da posição onde inicia e a largura do mesmo.

    8 - Após todos especificados, clique no botão Salvar Como. Abrirá uma caixa onde coloco o nome da especificação.

    9 - E por fim código VBA do botão "Gerar Cobrança" com o código

    DoCmd.TransferText acExportFixed, "Cobranca", "Consulta_Gerar_Cobranca", "C:\CaminhoCompleto\NomedoArquivoTexto.txt"
    End Sub

    O grande problema é o design o arquivo. Preciso que todos os dados pessoais do cliente fique em apenas uma linha e os boletos formatados com os seus devidos dados em forma de coluna, conforme o exemplo acima. Há possibilidade?
    avatar
    marxlf
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 31/03/2011

    Exportar 2 tabelas relacionadas filtradas pela consulta em "txt" largura fixa Empty Re: Exportar 2 tabelas relacionadas filtradas pela consulta em "txt" largura fixa

    Mensagem  marxlf 10/7/2012, 19:14

    E aí pessoal alguém que possa me ajudar...

    Conteúdo patrocinado


    Exportar 2 tabelas relacionadas filtradas pela consulta em "txt" largura fixa Empty Re: Exportar 2 tabelas relacionadas filtradas pela consulta em "txt" largura fixa

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 20:54