title image


Smiley Re: Login Funktion -> MitarbeiterID in Tabelle Login?
Dann halt:

Tabelle tbl_log mit user(Text) und anzahl(Zahl)

txuser = das Usertextfeld in deinem Anmeldeform



Beim klicken auf dein Anmelde-Button(bt_anmelden)



Private Sub bt_anmelden_Click()

'Hier dein Passwort überprüfen...

If DSum("[anzahl]", "tbl_log") > 4 Then 'Anzahl der User üperprüfen

MsgBox "Useranzahl erreicht"

DoCmd.Quit

Exit Sub

End If

If DCount("*", "tbl_log", "user = " & Me!txUser) = 0 Then 'Überprüfen ob user schon angemeldet ist

CurrentDb.Execute ("INSERT INTO tbl_log (user, anzahl) VALUES ('" & Me!txUser & "',1);") 'Wenn nein, Datensatz hinzu

Else

CurrentDb.Execute ("UPDATE tbl_log SET anzahl = anzahl + 1 Where user = '" & Me!txUser & "';") ' Wenn ja, Anzahl + 1

End If

End Sub

Beim schliessen der Datenbank und somit schliessen des Forms



Private Sub Form_Close()

If DLookup("[anzahl]", "tbl_log", "user = " & Me!txUser) = 1 Then 'Überprüfen ob User mehr als 1 x angemldet

CurrentDb.Execute ("DELETE * FROM tbl_log WHERE user = '" & Me!txUser & "';") 'Bei 1 x Lösche DS

Else

CurrentDb.Execute ("UPDATE tbl_log SET anzahl = anzahl - 1 WHERE user = '" & Me!txUser & "';") 'Bei größer 1 anzahl - 1

End If

End Sub




Ch. Bielmeier
aus Ludwigsburg
-MSAccess97/2000
-HTML/CSS
-C++
-PHP
-MySQL
-JS (Anfänger)
-VB6.0
-Visual Studio Express 2005 (Anfänger)


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: