Prüfung ob angewandter Formularfilter Datensätze enthält

02/02/2009 - 13:20 von Marion Hildebrandt | Report spam
Hallo NG,
ich möchte gern eine Prüfung per VBA erstellen, ob angewendete Filter
Datensàtze enthalten oder nicht und wenn keine Datensàtze vorhanden sind,
eine Fehlermeldung anzeigen.
Für das Formular Rechnungsausgang werden die Datensàtze der Rechnungen nach
dem Jahr des Rechnungsdatums wie folgt gefiltert:

Private Sub cboJahr_AfterUpdate()
FormFilterYear "PADokumentdatum", Me.cboJahr,
Forms!frmRechnungsausgang!frmRechnungsausgang1.Form
End Sub

FormFilterYear ist eine Funktion, hinterlegt in dem Modul Dienstprogramme
wie folgt:

Public Sub FormFilterYear(ByRef Fieldname As String, ByRef Jahr As String,
ByRef F As Form)
On Error GoTo Err_FormFilterYear
F.Filter = "Year(" & Fieldname & ") =" & Jahr
F.FilterOn = True
Exit_FormFilterYear:
Exit Sub
Err_FormFilterYear:
MsgBox Err.Description
Resume Exit_FormFilterYear
End Sub

Wo genau, wird eigentlich bei meinem Beispiel festgestellt , ob der Filter
Datensàtze enthàlt oder nicht? Vielleicht kann ich ja schon von der Public
Sub aus dem Modul Dienstprogramme einen entsprechenden Rückgabewert erhalten.
Es wàre prima, wenn mir jemand auf die Sprünge helfen könnte.

Viele Grüße aus Hamburg
Marion
 

Lesen sie die antworten

#1 Karl Donaubauer
02/02/2009 - 13:35 | Warnen spam
Marion Hildebrandt wrote:
ich möchte gern eine Prüfung per VBA erstellen, ob angewendete Filter
Datensàtze enthalten oder nicht und wenn keine Datensàtze vorhanden
sind, eine Fehlermeldung anzeigen.
Für das Formular Rechnungsausgang werden die Datensàtze der
Rechnungen nach dem Jahr des Rechnungsdatums wie folgt gefiltert:

Private Sub cboJahr_AfterUpdate()
FormFilterYear "PADokumentdatum", Me.cboJahr,
Forms!frmRechnungsausgang!frmRechnungsausgang1.Form
End Sub

FormFilterYear ist eine Funktion, hinterlegt in dem Modul
Dienstprogramme wie folgt:

Public Sub FormFilterYear(ByRef Fieldname As String, ByRef Jahr As
String, ByRef F As Form)
On Error GoTo Err_FormFilterYear
F.Filter = "Year(" & Fieldname & ") =" & Jahr
F.FilterOn = True



If F.RecordSetClone.RecordCount = 0 Then
Msgbox "Keine Daten"
End If

Exit_FormFilterYear:
Exit Sub
Err_FormFilterYear:
MsgBox Err.Description
Resume Exit_FormFilterYear
End Sub

Wo genau, wird eigentlich bei meinem Beispiel festgestellt , ob der
Filter Datensàtze enthàlt oder nicht? Vielleicht kann ich ja schon
von der Public Sub aus dem Modul Dienstprogramme einen entsprechenden
Rückgabewert erhalten.
...



s.o.

HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com
die 1. .NET-Entwickler-Konferenz für Accessler: www.donkarl.com?nek

Ähnliche fragen