title image


Smiley Re: Bei mir klappt es nicht ...
Hi Alex,

versuch es mal so, dies ist das der VBA-Code für das PW-Form, das derm Stat-Form vorgelagert ist.



if not isnull DLookUp("pw_stat","tblPasswort", "pw_stat = " & Me!PW_FELD) then

DoCmd.OpenForm "statistik"

Else

MsgBox ("Falsches Passwort")

End If



alternativ, aber auch noch unschöner:



BeimÖffnen-Ereignis beim Stat_Form:



dim str_PW as string



str_PW = inputbox ("Bitte PW eingeben!!")



if not isnull DLookUp("pw_stat","tblPasswort", "pw_stat = " & str_PW) then

DoCmd.OpenForm "statistik"

Else

MsgBox ("Falsches Passwort")

docmd.close



End If



hier mußt du dann aber noch das Cancel-ereignis der Inputbox unterbringen. (Weiß ich jetzt nicht auswendig)




Gruß

Thorim

333 – HALF BEAST



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: