Hallo zusammen,
ich habe ein Suchformular. Von dem aus spring ich in ein weiteres Formular mit folgendem VBA-Code:
’ Prüfen, ob Datensätze vorhanden
If kriterium „“ Then
Set DB = CurrentDb()
If Me.txtMaterial „“ Then
Set rs = DB.OpenRecordset(„Abfr_Vrg“, dbOpenSnapshot)
Else
Set rs = DB.OpenRecordset(„Abfr_Auswertung_Technologie“, dbOpenSnapshot)
End If
rs.MoveFirst
rs.FindFirst kriterium
If rs.NoMatch = True Then
Beep
MsgBox „Für Ihre Auswahl konnten keine Daten gefunden werden !“, vbOKOnly + vbExclamation, „Fehler“
Exit Sub
End If
Set rs = Nothing
Set DB = Nothing
End If
If klausel = „“ Then
klausel = „Keine Filterkriterien vorgegeben !“
End If
’ Formluar schließen und gewünschtes Formular öffnen
'DoCmd.Close acForm, „For_Suchen“, acSaveNo
If Me.txtMaterial „“ Then
DoCmd.OpenForm „For_Auswertung_Material“, acNormal, kriterium
Else
DoCmd.OpenReport „Auswertung_Technologe“, acViewPreview, , kriterium
End If
´
Das klappt meistens auch. Aber bei dieser Datenbank hab ich Probleme. Der Filter wird in dem folgenden Formular einfach nciht beachtet, sondern es werden alle Datensätze angezeigt. Woran kann das liegen? Die Einstellungen für diese Funktion sind meiner Meinung nach richtig.
Wäre toll, wenn mir jemand helfen könnte.
Viele Grüße von Beate