Office: (Office 2010) Login Formular

Anne Berg · 24. März 2013

Dann könnte der Code zu deinem Login-Formular folgendermaßen aussehen: Code:

Private Sub Login_Click()
Dim lngBenutzerID As Long
lngBenutzerID = Nz(DLookup("UserID", "02_tab_user", "Username = '" & Me!User _
& "' AND Passwort = '" & Me!Pass & "'"), 0)
If lngBenutzerID = 0 Then
MsgBox "Benutzername und/oder " & "Kennwort sind falsch."
Me!Pass.SetFocus
Else
MsgBox "Anmeldung erfolgreich!"
pubUser = lngBenutzerID
pubStufe = DLookup("Stufe", "02_tab_user", "UserID=" & lngBenutzerID)
DoCmd.OpenForm "Start"
DoCmd.Close acForm, Me.Name
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

CptChaos · 24. März 2013

Da mir das ganze "weiterreichen" von Informationen nicht gefällt habe ich mal eine Beispielklasse erstellt, welche konkret in der BeispielDB von Dir funktioniert:

Neue Klasse clsUserObject: Code:

Option Compare Database
Option Explicit

'===================================================================================
' CONSTANTS
'===================================================================================
Private Const USERTBL As String = "02_Tab_User"

'===================================================================================
' PROPERTIES
'===================================================================================
Private m_UserRS As DAO.Recordset
Private m_UserID As Long
Private m_Username As String
Private m_Passwort As String
Private m_Stufe As String

Public Property Get UserID() As Long
UserID = m_UserID
End Property
Public Property Let UserID(ByVal UserID As Long)
m_UserID = UserID
End Property

Public Property Get Username() As String
Username = m_Username
End Property
Public Property Let Username(ByVal Username As String)
m_Username = Username
End Property

Public Property Get Passwort() As String
Passwort = m_Passwort
End Property
Public Property Let Passwort(ByVal Passwort As String)
m_Passwort = Passwort
End Property

Public Property Get Stufe() As String
Stufe = m_Stufe
End Property

Public Property Let Stufe(ByVal Stufe As String)
m_Stufe = Stufe
End Property

'===================================================================================
' CONSTRUCTOR/DESTRUCTOR
'===================================================================================
Private Sub Class_Initialize()
Set m_UserRS = CurrentDb.OpenRecordset(USERTBL, dbOpenDynaset, dbReadOnly)
End Sub

Private Sub Class_Terminate()
Set m_UserRS = Nothing
End Sub

'===================================================================================
' METHODS
'===================================================================================
Public Sub InitFromUserID(ByVal UserID As Long)
m_UserID = UserID
InitUserObject
End Sub

Private Sub InitUserObject()
With m_UserRS
.FindFirst "UserID=" & m_UserID
m_Username = .Fields("Username")
m_Passwort = .Fields("Passwort")
m_Stufe = .Fields("Stufe")
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beispielaufruf in einem allgemeinen Modul: Code:

Option Compare Database
Option Explicit

Private m_CurrentUserObject As clsUserObject

Public Property Get CurrentUserObject() As clsUserObject
If m_CurrentUserObject Is Nothing Then
Set m_CurrentUserObject = New clsUserObject
End If
Set CurrentUserObject = m_CurrentUserObject

End Property

Public Sub testUO()

CurrentUserObject.InitFromUserID 3

Debug.Print CurrentUserObject.Passwort, CurrentUserObject.Stufe, CurrentUserObject.Username

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Klasse könntest Du, wie im Beispielaufruf, beim Start Deiner DB bzw. bei Auswahl des Users instanzieren und dann im weiteren Programmlauf per CurrentUserObject auf die einzelnen Properties zugreifen.

Fragen? Fragen!

SAHAR · 25. März 2013

ich danke euch vielmals!! und hoffe ihr habt ja geduld mit mir

@CptChaos das ist cool von dir, aber sobald i ein Ereignis zum LogIn-Button schreibe --> Fehler!?

@anne das ist ja was suche, aber was soll in der Start-frm einstelle? da der Username und Stufe von der Login-frm nicht übernommen worden!?

Viele Grüße

CptChaos · 25. März 2013

von SAHAR

ein Ereignis zum LogIn-Button schreibe --> Fehler!?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Welche? Was hast Du wo und wie implementiert?

SAHAR · 25. März 2013

ups!!!
habe ich da doch einen Fehler gemacht *eek.gif*
plus dein Code:
Code:

Private Sub Login_Click()
Dim lngBenutzerID As Long
lngBenutzerID = Nz(DLookup("UserID", "02_tab_user", "Username = '" & Me!User _
& "' AND Passwort = '" & Me!Pass & "'"), 0)
If lngBenutzerID = 0 Then
MsgBox "Benutzername und/oder " & "Kennwort sind falsch."
Me!Pass.SetFocus
Else
MsgBox "Anmeldung erfolgreich!"
DoCmd.OpenForm "Start"
DoCmd.Close acForm, Me.Name
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ich hab versucht sie auch anzupassen qausi mit m_user usw. aber bringt auch nichts...

Anne Berg · 25. März 2013

da der Username und Stufe von der Login-frm nicht übernommen worden!?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich sagte es doch schon, die Werte speicherst du (bei meiner Version) in globalen Variablen.
Da kannst du auch wieder (direkt oder mittels Function) drauf zugreifen.

PS:
Wenn du von Programmierung nicht viel verstehst, würde ich mich (noch) nicht unbedingt mit Klassen beschäftigen.

CptChaos · 25. März 2013

Die reine Verwendung von m_User hilft hier erstmal nicht.
Das Beispiel sollte nur zeigen, was ebenfalls möglich ist. Klar geht es hier um Klassenprogrammierung; diese ist jedoch hier sehr einfach gehalten und würde m.E. die Probleme lösen.

Für obigen Code würde die Anwenung im ELSE-Zweig so aussehen:
Code:

...
Else
MsgBox "Anmeldung erfolgreich!"
CurrentUserObject.InitFromUserID lngBenutzerID
...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

An allen anderen Stellen in Deinem Code kannst Du dann per CurrentUserObject auf die Instanz und die entsprechenden Werte zugreifen.
Z.B. für die Stufe per CurrentUserObject.Stufe.

Jens2 · 7. Januar 2021

Moin,

von CptChaos

Die reine Verwendung von m_User hilft hier erstmal nicht.
Das Beispiel sollte nur zeigen, was ebenfalls möglich ist. Klar geht es hier um Klassenprogrammierung; diese ist jedoch hier sehr einfach gehalten und würde m.E. die Probleme lösen.

Für obigen Code würde die Anwenung im ELSE-Zweig so aussehen:
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

...
Else
MsgBox "Anmeldung erfolgreich!"
CurrentUserObject.InitFromUserID lngBenutzerID
...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

An allen anderen Stellen in Deinem Code kannst Du dann per CurrentUserObject auf die Instanz und die entsprechenden Werte zugreifen.
Z.B. für die Stufe per CurrentUserObject.Stufe.

Sahar möchte folgendes noch:

[Zitat]
Daher suche ich eine alternative und hoffe auf eure Hilfe!

wenn man sich in Login-frm anmeldet, öffnet sich das start-frm, durch die Berechtigungsstufe möchte die Schlatflächen dann Visible bzw. Unvisible einstellen.
aber wie kriege ich das hin, dass das Start-frm den angemeldeten Username bzw. die Stufe von dem angemeldeten übernimmt.
[/Zitat]

Dann könnte das Script von Anne folgendermaßen ergänzt werden.
On the fly
Beispiel:
If Status = 3 Then
Me.Start-frm.NamedesButton1.Visible=False and
Me.Start-frm.NaemdesButton2.Visible=False
Else
Me.Start-frm.NamedesButton1.Visible=True and
Me.Start-frm.NaemdesButton2.Visible=True
End If

Ich habe im Hotel in der Türkei auf meinem Netbook kein Access installiert, so dass ich die Beispielsdatenbank und ggf. das Script nicht ergänzen kann und selbst ausprobieren kann.
Das geht erst am 31.03.2013 vom heimischen Rechner wieder.
Gruß
Jens

SAHAR · 25. März 2013

Hallo zusammen,

Anne hat recht, bin ein totaler anfänger und daher ist das für mich schon eine stufe zu hoch, aber man kann sich steigern *Smilie Deswegen Danke an euch allen für die nette Hilfe ...

morgen geht es weiter *Smilie

Office: (Office 2010) Login Formular

Login Formular

Login Formular

Login Formular

Login Formular

Login Formular - Similar Threads - Login Formular

Email nicht einrichtbar, login nicht einstellbar

Userform Login Benutzername in Zelle schreiben

Webabfrage (Tabelle) mit Login und Filter möglich?

Login auf Webseite aus VBA mittels Edge

Web-Formular (Login) per VBA ausfüllen

Login Formular

Teams Room Console Login bei Cisco Webex kein Ton