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]Imprimir o registro atual de um form em um arquivo txt

    avatar
    NarcisoRN
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 26/07/2011

    [Resolvido]Imprimir o registro atual de um form em um arquivo txt Empty Imprimir o registro atual de um form em um arquivo txt

    Mensagem  NarcisoRN 23/6/2013, 02:18

    Pessoal,

    Eu havia postado no fórum de módulos uma mensagem solicitando ajuda para imprimir um registro em um arquivo txt. Acabei esquecendo de comentar, que preciso imprimir apenas o registro atual que está sendo visualizado no meu formulário, para o arquivo txt. O código é o que se encontra abaixo, mas ele só descarrega para o txt, o primeiro registro da minha tabela e eu quero somente o registro atual, aquele que está sendo visualizado. Alguem poderia me ajudar?

    Private Sub Comando39_Click()

    Dim N As Integer, rst As Recordset, cArq As String

    cArq = "C:\Users\Marcos\Desktop\Blog\arq.txt"
    N = FreeFile
    Set rst = CurrentDb.OpenRecordset("SELECT * FROM Acervo")

    Open cArq For Output As #N
            Print #N, "TÍTULO ORIGINAL: " & rst![titulo Original]
            Print #N, "TÍTULO BRASIL: " & rst![Titulo Brasil]
            Print #N, "ANO DE PRODUÇÃO: " & rst![Ano Producao]
            Print #N, "DIREÇÃO: " & rst![Direcao]
            Print #N, "PRODUÇÃO: " & rst![Producao]
            Print #N, "GÊNERO: " & rst![Genero]
            Print #N, "AUDIO: " & rst![Audio]
            Print #N, "QUALIDADE: " & rst![Qualidade]
            Print #N, "TAMANHO: " & rst![Tamanho]
            Print #N, "SINOPSE: " & rst![Sinopse]
            Print #N, "ELENCO: " & rst![Sinopse]
               
           
    Close #N
    Set rst = Nothing

    End Sub
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir o registro atual de um form em um arquivo txt Empty Re: [Resolvido]Imprimir o registro atual de um form em um arquivo txt

    Mensagem  criquio 23/6/2013, 13:13

    ... ("SELECT * FROM Acervo WHERE Código=" & Me.Código & "")


    .................................................................................
    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
    NarcisoRN
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 26/07/2011

    [Resolvido]Imprimir o registro atual de um form em um arquivo txt Empty Re: [Resolvido]Imprimir o registro atual de um form em um arquivo txt

    Mensagem  NarcisoRN 23/6/2013, 13:24

    Olá Criquio.

    Obrigado mais uma vez pela dica.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir o registro atual de um form em um arquivo txt Empty Re: [Resolvido]Imprimir o registro atual de um form em um arquivo txt

    Mensagem  criquio 23/6/2013, 13:41

    O fórum agradece o retorno.


    .................................................................................
    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.


    Conteúdo patrocinado


    [Resolvido]Imprimir o registro atual de um form em um arquivo txt Empty Re: [Resolvido]Imprimir o registro atual de um form em um arquivo txt

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 26/4/2024, 20:32