Option Compare Database
 
Private Sub Befehl52_Click()
DoCmd.Close
End Sub
 
Private Sub btnOK_Click()
 
    Dim rs As DAO.Recordset
    Dim db As DAO.Database
    Dim sQry As String
 
        Set db = Application.CurrentDb
 
'            If Me.optVertreter.Enabled = True Then
'
'                sQry = "SELECT" & _
  "Vertreternummer,Name,Vorname,Telefonnummer,Titel FROM ADM where" & _
  "Vertreternummer = " & Me.txtSuchen
'                Set rs = db.OpenRecordset(sQry)
'
'            End If
'
'            If Me.OptName = Ture Then
'
'                sQry = "SELECT" & _
  "Vertreternummer,Name,Vorname,Telefonnummer,Titel FROM ADM where Name = " & _
  Me.txtSuchen
'                Set rs = db.OpenRecordset(sQry)
'
'            End If
'
'
'            If Me.OptVorname = True Then
'
'                sQry = "SELECT" & _
  "Vertreternummer,Name,Vorname,Telefonnummer,Titel FROM ADM where Vorname = " _
  & Me.txtSuchen
'                Set rs = db.OpenRecordset(sQry)
'
'            End If
 
 
        stDocName = "Fehler"
        DoCmd.OpenForm stDocName ' Formular öffnen
        Forms!Fehler.txtVertreternummer.Value = "Vertreternummer"
 
End Sub