title image


Smiley Ereignisprozeduren!
Private Try As Long, OK As BooleanPrivate Const MaxTries = 3Private Sub Form_Load() Try = 0 OK = FalseEnd SubPrivate Sub Form_Close() If Not OK Then DoCmd.QuitEnd SubPrivate Sub Kennwort_AfterUpdate() Try = Try + 1 If Try > MaxTries Then MsgBox "Zu viele Fehleingaben!", vbExclamation DoCmd.Quit End If If Me!Kennwort = "xyzzy" Then OK = True DoCmd.Close acForm, Me.Name Else MsgBox "Kennwort falsch - noch ein Versuch!", vbExclamation Me!Kennwort = "" End IfEnd SubReinhard


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: