Private Sub Befehl12_Click()
Dim fnum As Long
Dim rs As DAO.Recordset, fld As DAO.Field
Dim strInh As String
Dim strRs As String
Dim i As Byte, n As Byte
 
'-------------------------------------------------------
' Hier (xxxxxx) muss der Recordset (also die Abfrage mit den beiden Kriterien 
' festgelegt werden. Nur wie ???
 
Set rs = xxxxxx.RecordsetClone
 
'-------------------------------------------------------
n = rs.Fields.Count
fnum = FreeFile()
Open "C:\export.txt" For Output As #fnum
For i = 0 To n - 1
If i = 0 Then
      strInh = rs.Fields(0).Name
    Else
      strInh = strInh & ";" & rs.Fields(i).Name
    End If
  Next
  Print #fnum, strInh
  Do While Not rs.EOF
    For i = 0 To n - 1
      strRs = CStr(Nz(rs(i), ""))
      Select Case strRs
        Case ""
          strRs = " "
        Case "Falsch"
          strRs = "0"
        Case "Wahr"
          strRs = "-1"
        Case Else
      End Select
      If i = 0 Then
        strInh = strRs
      Else
        strInh = strInh & ";" & strRs
      End If
    Next
    Print #fnum, strInh
    rs.MoveNext
  Loop
  Close #fnum
  rs.Close
  Set rs = Nothing
 
Shell "winword C:\Vorlage.doc"
 
End Sub