Private Sub cmdSuchen_Click()
Dim Db As Database
Dim Tabelle As Recordset
Dim dbFile As String
Dim SQL As String
Dim sDatumVon As Date
Dim sDatumBis As Date
 
 
dbFile = App.Path + "\datenbank_schischule.mdb"
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
 
' Zeitraum
txtVon.Text = "1.12.2003"
txtBis.Text = "31.12.2003"
 
 
 
' Alle Termine eines bestimmten Zeitraums ermitteln
sDatumVon = CDate(txtVon.Text)
sDatumBis = CDate(txtBis.Text)
 
 
' SQL-Anweisung
SQL = "SELECT tblKUNDENDATEN.vorname, tblKUNDENDATEN.zuname," & _
  "tblKUNDEN_KURSE.datum_kursbeginn, tblKUNDEN_KURSE.fähigkeit," & _
  "tblANGEBOT.beschreibung, tblANGEBOT.tage, [datum_kursbeginn]+[tage]-1 AS" & _
  "datum_kursende FROM tblKUNDENDATEN INNER JOIN (tblANGEBOT INNER JOIN" & _
  "tblKUNDEN_KURSE ON tblANGEBOT.kurs_id = tblKUNDEN_KURSE.kurs_id) ON" & _
  "tblKUNDENDATEN.kunden_id = tblKUNDEN_KURSE.kunden_id WHERE" & _
  "tblKUNDEN_KURSE.datum_kursbeginn BETWEEN #" & _
  Format$(sDatumVon, "m-d-yy") & "# AND #" & _
  Format$(sDatumBis, "m-d-yy") & "#"
 
 
 
 
 
Db.Close
 
Set Db = Nothing
 
End Sub

Private Sub cmdNamen_Click()
 
Dim Antwort, Msg, Titel As String
Msg = "Bitte den gewünschten Kundennamen eingeben"
Titel = "Kundensuche"
 
Do
Antwort = InputBox(Msg, Titel)
Loop Until (Antwort = "") Or (Val(Antwort) = 0)
 
If Antwort = "" Then
Exit Sub
End If
Antwort = "'" + Antwort + "'"
 
SucheNamen.Recordset.FindFirst "Zuname = " & Antwort
 
If SucheNamen.Recordset.NoMatch Then
    Msg = "Es konnte kein Kunde Kunde mit dem entsprechenden Namen gefunden" & _
      "werden!"
    MsgBox Msg, 48, "Kundensuche"
End If
 
 
 
End Sub