title image


Smiley Re: Vorlage für Anmeldeformular?
Ins Startformular halt deine 3 Felder aufnehmen, und dann:



Private Versuche as Long, CloseMe as Boolean



Private Sub Button_Click()

Versuche = Versuche +1

If Versuche > 3 then

MsgBox "Adieu, das wars..."

Application.Quit

else

If Isnull(Me!Nachname) then

MsgBox "Nachname fehlt!"

Me!Nachname.Setfocus

elseIf Isnull(Me!Vorname) then

MsgBox "Vorname fehlt!"

Me!Vorname.Setfocus

elseIf Isnull(Me!Mitarbeiternummer) then

MsgBox "Mitarbeiternummer fehlt!"

Me!Mitarbeiternummer.Setfocus

elseIf Isnull(DLookup("Mitarbeiternummer","tblMitarbeiter", _

"Nachname='" & Me!Nachname & "' AND " & _

"Vorname='" & Me!Vorname & "' AND " & _

"Mitarbeiternummer=" & Me!Mitarbeiternummer)) then

MsgBox "Mitarbeiter nicht gefunden!"

Me!Nachname.Setfocus

else

CloseMe = True

Docmd.openform "frmWasauchimmer"

Docmd.Close acForm, Me.Name

end if

end if

end sub



Private Sub Form_Unload(Cancel As integer)

Cancel = Not CloseMe

' oder auch:

' If Not CloseMe then Application.Quit

End sub





Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: