title image


Smiley Hab ich erst doch glatt übersehen ...
... wenn die Funktion in einem normalen Modul steht, dann sollte sie natürlich Public und nicht Private sein ...







Public Function Validierung(frm As Form) As Boolean

  If IsNull(frm!Druckdatum) Then

    MsgBox "Bitte geben Sie das Druckdatum ein.", _

      vbOKOnly + vbExclamation, "Fehlende Eingabe"

    frm!Druckdatum.SetFocus

    Exit Function

  End If

  If IsNull(frm!MaschNr) Then

    MsgBox "Bitte geben Sie die Maschinennummer ein.", _

      vbOKOnly + vbExclamation, "Fehlende Eingabe"

    frm!MaschNr.SetFocus

    Exit Function

  End If

  Validierung = True

End Function





Code eingefügt mit Syntaxhighlighter 4.0





Da es sich allerdings wohl um eine speziell auf das Formular zugeschnittene Funktion handelt (Überprüfung von zwei Textfeldern, die es wohl mit dem Namen vmtl. nur in dem Formular gibt), würde ich den ganzen Code im Klassenmodul des Formulars hinterlegen ...







Option Compare Database

Option Explicit



Private Sub cmb_OK_Click()

  If Validierung() = True Then

    DoCmd.Close acForm, "AuftrAbschlussPopUp", acSaveNo

  End If

End Sub



Private Sub Form_BeforeUpdate(Cancel As Integer)

   If Validierung() = False Then

    Cancel = True

  End If

End Sub



Private Function Validierung() As Boolean

  If IsNull(Me!DruckDatum) Then

    MsgBox "Bitte geben Sie das Druckdatum ein.", _

      vbOKOnly + vbExclamation, "Fehlende Eingabe"

    Me!DruckDatum.SetFocus

    Exit Function

  End If

  If IsNull(Me!MaschNr) Then

    MsgBox "Bitte geben Sie die Maschinennummer ein.", _

      vbOKOnly + vbExclamation, "Fehlende Eingabe"

    Me!MaschNr.SetFocus

    Exit Function

  End If

  Validierung = True

End Function





Code eingefügt mit Syntaxhighlighter 4.0







Gruss
scotty

I´m an admin. If you see me laughing, you should better have a backup.
Einen Fehler machen und ihn nicht korrigieren - das erst heisst wirklich einen Fehler machen.
Konfuzius


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: