Primeiro tenha em mãos o manual fornecido pelo banco
com o layout do arquivo e com todas regras (campos obrigatórios ...).
Quando for colocar as informações no arquivo, certfique-se
sempre de prencher com zeros ou espaços em branco todos os campos
caso a informação do banco de dados seja menor que o tamanho do campo
no arquivo(exemplo: valor (tamanho no arquivo 14, 2 decimais), valor no bd = 1200,50
-> se for para prencher com zeros ficaria assim: 00000000120050)
Dim vgdb As Database
Private Sub Command1_Click()
Dim rst As Recordset
Set rst = vgdb.OpenRecordset("SELECT Tabela_Compra_Venda.Produto, Tabela_Compra_Venda.[Data da compra], Tabela_Compra_Venda.[Data da venda] From Tabela_Compra_Venda ORDER BY Tabela_Compra_Venda.Produto;")
If rst.RecordCount > 0 Then
rst.MoveMin
Open "C:Documentos_AndréTempLote01.txt" For Output As #1
Do While Not rst.EOF
Print #1, "01" & String(5 - Len(rst!Produto), "0") & rst!Produto
rst.MoveNext
Loop
Close #1
End If
If Not rst Is Nothing Then
rst.Close
Set rst = Nothing
End If
MsgBox "Ok"
End Sub
Private Sub Form_Load()
Set vgdb = OpenDatabase("C:Documentos_AndréTempBancoDeDados.mdb")
End Sub
