Exportar txt de uma consulta

Bom dia.

Consegui essa orientação com JPaulo, algum tempo atrás.
Mas não estou conseguindo funcionar, pois trava totalmente o sistema.
Com certeza não estou conseguindo realizar.
Tenho uma consulta que preciso gerar txt.
Mas quando uso simplesmente ela como recordset, diz que está faltando parâmetro.

Public Sub Grava_Txt(ByVal Caminho As String)
Dim N As Integer
Dim rst As Recordset
N = FreeFile

Set rst = CurrentDb.OpenRecordset("AaTexte")
Open Caminho For Output As #N

Do While Not rst.EOF
Print #N, "rst!Produto"

rst.MoveNext
Loop
Set rst = Nothing
Close #N

End Sub

Nesse Modelo acima, aparece uma msg dizendo que falta um parâmentro no rst.



Nesse modelo abaixo, que é uma sugestão também do JPaulo, trava o sistema e o Bloco de Notas que está sendo feito a gravação.

Private Sub Enviar_Click()
Dim strPath As String
Dim intFile As Integer
Dim strLine As String
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
On Error Resume Next
strPath = "C:\Engedi\NFProduto\Produto.txt"
If Len(strPath) = 0 Then Exit Sub
intFile = FreeFile
Open strPath For Append Access Write Lock Read Write As #intFile
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("AaTexte") 'É uma consulta!
While Not rst.EOF
Print #intFile, (rst!Produto)
rst.MoveNext
Wend
On Error Resume Next
If Not rst Is Nothing Then
rst.Close
Set rst = Nothing
End If
If Not dbs Is Nothing Then
Set dbs = Nothing
End If
Close #intFile
Exit Sub
End Sub

Se algum dos amigos pouder me ajudar, agradeço.


Abraços.

Ola Aleixo bom dia;

No primeiro o rst!Produto não pode estar dentro de parentesis, tem de funcionar assim;

Public Sub Grava_Txt(ByVal Caminho As String)
Dim N As Integer
Dim rst As Recordset
N = FreeFile

Set rst = CurrentDb.OpenRecordset("AaTexte")
Open Caminho For Output As #N

Do While Not rst.EOF
Print #N, rst!Produto
rst.MoveNext
Loop
Set rst = Nothing
Close #N

End Sub

Private Sub Command0_Click()
Call Grava_Txt("c:\teste.txt")
End Sub


No segundo fiz o teste e não encontrei qualquer problema.

Bom dia, JPaulo.

Mas que coisa, rapaz! No meu BD está travando, como se ficasse jogando milhares de registros. Para se ter uma idéia, gerou um arquivo(que não abre) de 65mbytes.
E quando tento abrir este arquivo, ele trava (o txt), aparece uma ampulheta, e não sai e nada é preenchido.

Neste último, que é o que você acabou de efetuar aquela alteração, aparece mensagem de ausência de parametro.

Abraços.

Amigo Aleixo, vou-lhe enviar o exemplo que fiz o teste, veja se funciona ae.

Eu recriei todo o caminho das suas pastas.

http://dl.dropbox.com/u/771097/Aleixo.mdb

Obrigado por sua atenção.

Mas realmente, continua dando falta de parâmetro.

Agora testar seu exemplo, e ver onde estou errando.

Abraços.

Olá, JPaulo!

Não tem diferenças aparentes.

Será que é porque o campo que estou tentando imprimir em txt é uma concatenado de vários outros campos (por isso eu usar a consulta)?

Acabei de testar de novo e trava tudo.

No seu exemplo, acontece tudo normal.

Abraços.

Não sei o que será não, mas confirme as suas Referências no VBA e tente mudar o nome do txt
strPath = "C:\Engedi\NFProduto\Produto.txt"; que está igual ao Recordset.

Concatenei os dois campos na consulta e funfa na mesma;

Resultado: Trim([Produto]) & "-" & Trim([PNome])

Private Sub Command0_Click()
Dim strPath As String
Dim intFile As Integer
Dim strLine As String
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
On Error Resume Next
strPath = "C:\Engedi\NFProduto\Produto.txt"
If Len(strPath) = 0 Then Exit Sub
intFile = FreeFile
Open strPath For Append Access Write Lock Read Write As #intFile
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("AaTexte") 'É uma consulta!
While Not rst.EOF
Print #intFile, (rst!Resultado)
rst.MoveNext
Wend
On Error Resume Next
If Not rst Is Nothing Then
rst.Close
Set rst = Nothing
End If
If Not dbs Is Nothing Then
Set dbs = Nothing
End If
Close #intFile
Exit Sub
End Sub

Obrigado, JPaulo.

Agora vou quebrar a cabeça. Já pude observar que não é o código, mas algo que está atrapalhando.

Obrigado pela paciência.



Abraços.

Precisando estamos ae.

Olá, JPaulo!

Acredito que achei o erro.

Quando faço o procedimento, com o critério da consulta já nela, perfeito (funciona bem).
Mas quando coloco para pegar o critério no formulário(Forms!AAProduto!Nr)
Gera todo aquele transtorno. Tentei colocar o critério através de uma consulta em VBA, mas o resultado foi o mesmo.

Uma vez, aprendi contigo que posso chamar um Form ou Report em Modo design e alterar a Source. Mas em consulta não sei fazer isso.

O que você me orienta?

Abraços.

Tem razão Aleixo, com critério fica pendurado, retire todos os criterios da consulta, e filtre no código;

Teste assim, aqui deu certo;

Private Sub Command0_Click()
Dim strPath As String
Dim intFile As Integer
Dim strLine As String
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
On Error Resume Next
strPath = "C:\Engedi\NFProduto\Produto.txt"
If Len(strPath) = 0 Then Exit Sub
intFile = FreeFile
Open strPath For Append Access Write Lock Read Write As #intFile
Set dbs = CurrentDb
Set rst = CurrentDb.OpenRecordset("Select * from AaTexte Where Produto='" & Me.Produto & "'")

While Not rst.EOF
Print #intFile, (rst!Produto)
rst.MoveNext
Wend

On Error Resume Next
If Not rst Is Nothing Then
rst.Close
Set rst = Nothing
End If
If Not dbs Is Nothing Then
Set dbs = Nothing
End If
Close #intFile
Exit Sub
End Sub

http://dl.dropbox.com/u/771097/Aleixo_II.mdb

Maravilha.

Vou efetuar o texte.
Você viu que dor de cabeça que dá um errinho desses?
Não sou muito de pular carnaval, mas te desejo um bom descanso e divertimento.

Até lá.

Abraços.