Function die Feld überprüft

[peX]

Hallo Accessler,

ich habe ein Formular in dem zwei Felder sind in denen jeweils ein Datum eintragen werden muss (von - bis). In meiner DB sind viele Abfragen enthalten die genau diese Infos benötigen und ich rufe jedesmal die komplette Überprüfung ob die Felder gefüllt sind auf (s.u.).

Ich würde gerne immer nur eine Funktion aufrufen, allerdings weiß ich nicht wie und wo ich das einbinden muss. Könnt Ihr mit da weiterhelfen?

Code [Auswählen] Erweitern


Private Sub Reprot1_Click()
If Nz(Forms!Navigation!Datum_von) = 0 And Nz(Forms!Navigation!Datum_bis) = 0 Then
    MsgBox "Datum von und Datum bis fehlt"
    Forms!Navigation!Datum_von.SetFocus
ElseIf Nz(Forms!Navigation!Datum_von) = 0 Then
    MsgBox "Datum von fehlt"
    Forms!Navigation!Datum_von.SetFocus
ElseIf Nz(Forms!Navigation!Datum_bis) = 0 Then
    MsgBox "Datum bis fehlt"
    Forms!Navigation!Datum_bis.SetFocus
Else
    Call SQL_Report1
End If
End Sub


Danke und Grüße
peX

[DF6GL]

Hallo,


etwa so:

in einem Standardmodul:

Code [Auswählen] Erweitern


Option Compare Database
Option Explicit

Public Function fktCheckDates()    Sub Reprot1_Click()
If Nz(Forms!Navigation!Datum_von,0) = 0 And Nz(Forms!Navigation!Datum_bis,0) = 0 Then
    MsgBox "Datum von und Datum bis fehlt"
    Forms!Navigation!Datum_von.SetFocus
ElseIf Nz(Forms!Navigation!Datum_von,0) = 0 Then
    MsgBox "Datum von fehlt"
    Forms!Navigation!Datum_von.SetFocus
ElseIf Nz(Forms!Navigation!Datum_bis,0) = 0 Then
    MsgBox "Datum bis fehlt"
    Forms!Navigation!Datum_bis.SetFocus
Else
    Call SQL_Report1
End If
End Function

in der/den Ereignisprozedur/en:

Code [Auswählen] Erweitern

Private Sub Reprot1_Click()
fktCheckDates
End Sub

Die Prozedur "SQL_Report1"  muss sich auch in einem Standardmodul als Public deklariert befinden.