MS-Access: Ausführen von Ereignisprozeduren durch Formularschaltflächen

Option Compare Database
Option Explicit

Private Sub Befehl73_Click()  ' Source.txt Datei mit Zeichnungen einer Bestellung erstellen  

Dim fileName As String
Dim rs As Recordset
Dim db As Database
Dim queryName As String
Dim f As Field
Dim MyValue1 As String

Dim Message, Title, Default, MyValue
Message = "Bitte Bestellnummer eingeben:"    ' Set prompt  
Title = "InputBox"    ' Set title.  
Default = ""    ' Set default  

MyValue1 = InputBox(Message, Title, Default)

queryName = "SELECT DISTINCT dbo_BESTELLUNGPOS.ZEICHNUNG FROM dbo_BESTELLUNGPOS WHERE dbo_BESTELLUNGPOS.BESTELLUNG Like '" & MyValue1 & "'"  
fileName = "c:\Users\slro\!slro\miro\Zeichnungen\Source.txt"  
Set db = CurrentDb
Set rs = db.OpenRecordset(queryName)

Open fileName For Output As #1

'Print #1, "     ";  
'For Each f In rs.Fields  
'Print #1, vbTab & f.Name;  
'Print #1, f.Name;  
'Next f  
'Print #1,  
Do While Not rs.EOF
'Print #1, Format(rs.AbsolutePosition + 1, "00000");  
For Each f In rs.Fields////
'Print #1, vbTab & f.Value;  
Print #1, f.Value;
Next f
Print #1,
rs.MoveNext
Loop

Close #1

End Sub

Private Sub Zeichnungen_Anfrage_Click()

End Sub