Hi alle miteinander!
Ich möchte bei einer Zeiterfassungsdatenbank über ein Login-Form Username und Password aus einer Tabelle "Logindata" mit einem ADODB Recordset checken und danach ein anderes Form öffnen je nachdem ob der Login erfolgreich war oder nicht. Ich habe leider noch nicht viel Erfahrung im VBA. Ich habe einerseits ein Class Module gemacht, in welchem ich das Recordset erstellt habe:
Public Function dbOpenRecordset(oConn As ADODB.Connection, _
ByVal sSQL As String, _
Optional ByVal CursorType As ADODB.CursorTypeEnum = adOpenDynamic, _
Optional ByVal LockType As ADODB.LockTypeEnum = adLockOptimistic, _
Optional ByVal CursorLocation As ADODB.CursorLocationEnum = adUseClient) _
As ADODB.Recordset
Set dbOpenRecordset = New ADODB.Recordset
With dbOpenRecordset
.CursorLocation = CursorLocation
.Open sSQL, oConn, CursorType, LockType
End With
End Function
_________________________________
Bei Knopfdruck auf einen "Loginbutton" im Form "Login-Window" soll dann dieses Recordset geöffnet und mit den Daten welche in die Textboxen "Username" und "Password" eingegeben werden, checken. Hier der Code dazu.
Private Sub Loginbutton_Click(Username As String, Password As String)
Dim oRs As ADODB.Recordset
Set oRs = dbOpenRecordset(oConn, "Select Username, Password From Logindata")
If Me!Username = oRs.Recordset.Fields("Username").Value And Me!Password = oRs.Recordset.Fields("Password").Value Then
DoCmd.OpenForm "Registration"
Else
DoCmd.OpenForm "Registration_Failed"
End If
End Sub
_____________________________
Ich erhalte leider jedoch immer folgende Fehlermeldung:
"Procedure declaration does not match description of event or procedure having the same name"
Ich weiß leider nicht, was dies bedeutet. Ich hoffe ihr könnt mir helfen.
mfg Sketch
|