PDA

Vollständige Version anzeigen : Passwort über eigenes Formular ändern!


Frogger
16.02.2001, 17:08
Hallo zusammen!
Meine DB ist eine durch das Sicherheitsystem geschützte Frontend Backend Db die in einem Netzwerk verwendet wird! Die richtige Workgroup rufe ich über Startparameter auf!
Nun zu meinem Problem.

Ich möchte gerne das jeder User sein eigenes Passwort über ein Formular ändern kann!

Altes PWD *******
Neues PWD *******


Aber irgendwie komme ich mit der in der Online-Hilfe beschriebenen Art nicht zurecht!


Bin für jede Hilfe dankbar!

Bernhard

Frogger 2
17.02.2001, 20:32
So leute ich habs geschaft!

Mein Formular zum Passwortändern funktioniert endlich!

Hier der Code falls es jemanden ähnliche Probleme hat!

Dim wrkDefault As Workspace
Dim strPassword As String
Dim aktuser As Object
Dim Anwender

Private Sub bnt_pwdaendern_Click()
Anwender = CurrentUser
Me!newpwd.SetFocus
If Me!newpwd.Text = "" Then
MsgBox ("Neues Passwort eingeben")
Me!newpwd.SetFocus
Exit Sub
End If

' Standardarbeitsbereich abrufen.
Set wrkDefault = DBEngine.Workspaces(0)
With wrkDefault
Set aktuser = .Users(Anwender)

' Benutzer zur Eingabe des neuen Kennworts
' auffordern. Falls die Eingabe zu lang ist,
' Aufforderung wiederholen

Do While True
strPassword = [newpwd]
Select Case Len(strPassword)
Case 1 To 14
On Error GoTo ErrorHandler
aktuser.NewPassword [oldpwd], strPassword
MsgBox "Kennwort wurde geändert!"
Exit Do
Case Is > 14
Me!newpwd.Value = ""
MsgBox "Kennwort zu lang!"
Case 0
Exit Sub
End Select
Loop
End With

Me!newpwd.Value = ""
Me!oldpwd.Value = ""
Me!oldpwd.SetFocus

Exit Sub

ErrorHandler: MsgBox ("Falsches Passwort")
Me!oldpwd.SetFocus
Exit Sub
End Sub

Private Sub Form_Load()
Anwender = CurrentUser
Me!newpwd.Value = ""
Me!oldpwd.Value = ""
Me!oldpwd.SetFocus
End Sub

cu Bernhard

bbachmann
05.09.2001, 13:55
Kann ich bestimmt gut gebrauchen.

Hab allerdings noch gar keine Ahnung von der Materie.

Besten Dank bis hier

Burkhard