Private Sub Form_Open(Cancel As Integer)
On Error GoTo form_open_Err:
strsql = "SELECT Daten.id , Daten.kunde as Kunde , Daten.KundenNr, format(Vertragsnummern.VertragsNr,""0"") as VertragNr, Daten.Vertragsinhalt from Daten LEFT JOIN Vertragsnummern ON Daten.ID = Vertragsnummern.ID WHERE kunde like '*" & Form_Datenerfassung!suchkrit & "*' OR (nz(KundenNR,'')) like '*" & Form_Datenerfassung!suchkrit & "*'" & _
" OR (nz(SAMKundenNr,'')) like '*" & Form_Datenerfassung!suchkrit & "*' OR (nz(Vertragsnummern.VertragsNR,'')) like '*" & Form_Datenerfassung!suchkrit & "*'" & _
" OR (nz(AngebotNR,'')) like '*" & Form_Datenerfassung!suchkrit & "*' OR (nz(AuftragNR,'')) like '*" & Form_Datenerfassung!suchkrit & "*'" & _
" OR (nz(Vertragsinhalt,'')) like '*" & Form_Datenerfassung!suchkrit & "*' OR (nz(EingepflegtAm,'')) like '*" & Form_Datenerfassung!suchkrit & "*'" & _
" OR (nz(NachfrageOriginalBeiWem,'')) like '*" & Form_Datenerfassung!suchkrit & "*' OR (nz(AntwortOriginalAm,'')) like '*" & Form_Datenerfassung!suchkrit & "*'" & _
" OR (nz(Beginn,'')) like '*" & Form_Datenerfassung!suchkrit & "*' OR (nz(Ende,'')) like '*" & Form_Datenerfassung!suchkrit & "*'" & _
" OR (nz(Vertragsart,'')) like '*" & Form_Datenerfassung!suchkrit & "*' OR (nz([Verlängerung],'')) like '*" & Form_Datenerfassung!suchkrit & "*'" & _
" OR (nz([KündDatum],'')) like '*" & Form_Datenerfassung!suchkrit & "*' OR (nz([KündFrist],'')) like '*" & Form_Datenerfassung!suchkrit & "*'" & _
" OR (nz(Division,'')) like '*" & Form_Datenerfassung!suchkrit & "*'" & _
" OR (nz(Profitcenter,'')) like '*" & Form_Datenerfassung!suchkrit & "*' OR (nz(AM,'')) like '*" & Form_Datenerfassung!suchkrit & "*'" & _
" OR (nz(Nachfrage1Dat,'')) like '*" & Form_Datenerfassung!suchkrit & "*' OR (nz(Nachfrage1BeiWem,'')) like '*" & Form_Datenerfassung!suchkrit & "*'" & _
" OR (nz(Anwort1Am,'')) like '*" & Form_Datenerfassung!suchkrit & "*' OR (nz(Nachfrage2Dat,'')) like '*" & Form_Datenerfassung!suchkrit & "*'" & _
" OR (nz(Nachfrage2BeiWem,'')) like '*" & Form_Datenerfassung!suchkrit & "*' OR (nz(Anwort2Am,'')) like '*" & Form_Datenerfassung!suchkrit & "*'" & _
" OR (nz(Nachfrage3Dat,'')) like '*" & Form_Datenerfassung!suchkrit & "*' OR (nz(Nachfrage3BeiWem,'')) like '*" & Form_Datenerfassung!suchkrit & "*'" & _
" OR (nz(Anwort3Am,'')) like '*" & Form_Datenerfassung!suchkrit & "*' OR (nz(ZurErfassungAm,'')) like '*" & Form_Datenerfassung!suchkrit & "*'" & _
" OR (nz(VonErfassungAm,'')) like '*" & Form_Datenerfassung!suchkrit & "*' OR (nz(ZumScannen,'')) like '*" & Form_Datenerfassung!suchkrit & "*'" & _
" OR (nz(GescanntAm,'')) like '*" & Form_Datenerfassung!suchkrit & "*' OR (nz(AblageFileNetAm,'')) like '*" & Form_Datenerfassung!suchkrit & "*'" & _
" OR (nz(AblageOriginalAm,'')) like '*" & Form_Datenerfassung!suchkrit & "*'" & _
" OR (nz(AngelegtVon,'')) like '*" & Form_Datenerfassung!suchkrit & "*'" & _
" OR (nz(ZurErfassungBereit,'')) like '*" & Form_Datenerfassung!suchkrit & "*'" & _
" OR (nz(AblageOriginalAm,'')) like '*" & Form_Datenerfassung!suchkrit & "*'" & _
" OR (nz(BestellNr,'')) like '*" & Form_Datenerfassung!suchkrit & "*'" & _
" ORDER BY Kunde"
Me!Listbox1.RowSource = strsql
Me!Listbox1.ColumnCount = 5
Me!Listbox1.ColumnWidths = "0;3000;1000;1000;3000"
Me!Listbox1.SetFocus
SendKeys "{DOWN}"
Debug.Print "O:"; Me!Listbox1.ListCount
If Me!Listbox1.ListCount = 0 Then
MsgBox "Es wurden keine entsprechenden Datensätze gefunden."
DoCmd.Close A_FORM, "SYSSUCHE"
End If
Exit Sub
form_open_Err:
MsgBox "Folgender Fehler trat auf: " & Error$
Resume Next
End Sub