title image


Smiley habs getestet.....
aber es funktioniert nicht so richtig. Das ist meine Tabelle:





So.

Mein Code bislang, Datenherkunft Formular Tabelle MA:



'MA_user aus Tabelle MA

'MA_pass aus Tabelle MA

'Me!user, Me!pass Textfelder auf Formular



If IsNull(Me!user) Or Me!user = "" Then



ElseIf Me!user Me!MA_user Then



End If



If IsNull(Me!pass) Or Me!pass = "" Then



ElseIf Me!pass Me!MA_pass Then



End If



If Fehler = True Then



Else

DoCmd.Close acForm, "Login"

DoCmd.OpenForm "Start"





Dem Bild kann man entnehmen, dass sich momentan maximal 5 Personen einloggen können. Kann dann in der Tabelle die Zahl erhöhen oder verringern und muss nichts im Code ändern.



Nun soll wie gesagt überprüft werden, ist die maximale Anzahl an Logins erreicht.

Wenn nein -> einloggen und MitarbeiterNr in Tabelle Login schreiben. Bein abmelden wieder löschen.

Falls alle Slots belegt sind, Anmelde Vorgang abbrechen.



Komme da mit deinem Code nicht so klar o_O











geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: