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