Option Explicit
 
Private daoDB36 As Database
Private rs As DAO.Recordset
 
Private Sub List1_DblClick()
With adress_entry
    .Show
    .txt_adress_ID.Text = Text1.Text
    .showtime.Enabled = True
    .dmx_address_edit.Visible = True
    .txt_count_adress_entry.Text = "2"
End With
Unload Me
End Sub
 
Private Sub Timer_which_search_Timer()
Timer_which_search.Enabled = False
        Select Case txt_search_wich.Text
            Case "address"
                Call Suchen_Address_de
        End Select
End Sub
 
Private Sub txt_suchkriterien_KeyPress(KeyAscii As Integer)
          If KeyAscii = 13 Then
            KeyAscii = 0
           Call cmd_suchen_Click
            Exit Sub
        End If
        If KeyAscii = 27 Then
            Unload suchen
            Exit Sub
        End If
  End Sub
 
 
Private Sub cmd_suchen_Click()
lbl_error_suchen.Visible = False
List1.Clear
If Not cb_suchen_nach.Text = "" Then
    'Call Prz_searching
    Call Prz_Suchkriterien
        Else
            lbl_error_suchen.Visible = True
            cb_suchen_nach.SetFocus
                frm_resultat.Visible = False
                Me.Height = 3540
                frm_resultat.Top = 2520
                frm_resultat.Left = 120
                cmd_beenden.Top = 2640
                cmd_beenden.Left = 3480
                cmd_suchen.Top = 2640
                cmd_suchen.Left = 240
                Image2.Top = 3120
                Image2.Left = 0
                Call Form_Activate
 
        End If
Exit Sub
End Sub
 
Sub Prz_Suchkriterien()
If Not txt_suchkriterien.Text = "" Then
    Call Prz_searching
        Else
            lbl_error_suchen.Visible = True
            txt_suchkriterien.SetFocus
                frm_resultat.Visible = False
                Me.Height = 3540
                frm_resultat.Top = 2520
                frm_resultat.Left = 120
                cmd_beenden.Top = 2640
                cmd_beenden.Left = 3480
                cmd_suchen.Top = 2640
                cmd_suchen.Left = 240
                Image2.Top = 3120
                Image2.Left = 0
                Label4.Caption = "Kein Treffer"
                Call Form_Activate
 
        End If
    'Exit Sub
End Sub
 
Sub Prz_searching()
On Error Resume Next
'Start der Abfrage
Dim queryquery As String
Dim Sel As String
Dim Cbo As String
Dim Tex As String
Sel = "SELECT * FROM dates WHERE "
Cbo = cb_suchen_nach.Text
Tex = txt_suchkriterien.Text
 
'Wichtig ist der Operator "LIKE"
'weil mit " = " nur übereinstimmende Einträge
'gefunden werden.
queryquery = Sel & _
Cbo & " LIKE " & "'*" & Tex & "*'"
 
 
Dim sPath As String
On Error Resume Next
sPath = midi.sKeyNames17.Text
Set daoDB36 = DBEngine(0).OpenDatabase(sPath)
'Abfrage ist der gesamte SQL-String! _
sonst werden alle Datensätze gefunden !
 
Set rs = daoDB36.OpenRecordset(queryquery)
Frame1.Visible = True
        Select Case txt_search_wich.Text
            Case "address"
                Call prz_output_address
        End Select
End Sub
 
Sub prz_output_address()
Dim mid
Dim mName1
Dim mName2
Dim mZeile
Dim mLocal
 
        List1.Clear
        frm_resultat.Visible = False
        Me.Height = 3540
        frm_resultat.Top = 2520
        frm_resultat.Left = 120
        cmd_beenden.Top = 2640
        cmd_beenden.Left = 3480
        cmd_suchen.Top = 2640
        cmd_suchen.Left = 240
        Image2.Top = 3120
        Image2.Left = 0
        Call suchen_result_de
        Call Form_Activate
        Frame1.Visible = False
 
rs.MoveFirst
Do While Not rs.EOF
mName1 = rs!firstname
mName2 = rs!Name
mid = rs!Id
mLocal = rs!Local
    mZeile = "" & mid
    mZeile = mZeile & Space(8 - Len(mid)) & mName1
    mZeile = mZeile & Space(13 - Len(mName1)) & mName2
    mZeile = mZeile & Space(13 - Len(mName2)) & mLocal
 
    List1.AddItem mZeile
    rs.MoveNext
                frm_resultat.Visible = True
                Me.Height = 6662
                frm_resultat.Top = 2520
                frm_resultat.Left = 120
                cmd_beenden.Top = 5760
                cmd_beenden.Left = 3480
                cmd_suchen.Top = 5760
                cmd_suchen.Left = 120
                Image2.Top = 6240
                Image2.Left = 0
                Call suchen_result_de
                Frame1.Visible = False
                Call Form_Activate
 
Loop
End Sub