[acces] wachtwoord wijzigen

[weppe]

In de database die ik gemaakt hebben zitten een aantal accounts voor gebruikers. De gebruikers lezen deze database vanaf een runtime versie van acces. In deze runtime versie zit geen mogelijkheid om het paswoord te veranderen. Dus als er een gebruiker een ander paswoord wil hebben moet hij eerst op een pc inloggen waar wel de volledige versie van acces is geïnstalleerd.

Is er een mogelijkheid om via een zelf gemaakt formulier dit paswoord te veranderen zodat de gebruikers het ook vanuit de runtime versie kunnen wijzigen?

[weppe]

niemand?

[weppe]

Weet er nou echt niemand hier of dat mogelijk is?

[weppe]

Dat valt me tegen..

[Dido]

Welk password heb je het precies over?
Een PW op de database kun je wijzigen via de ChangePassword en Newpassword methods in VB, zitten in de DAO 3.6 library.
http://www.tek-tips.com/g...ev3/32/pid/709/qid/320356

Een PW dat gewoon ergens in een tabel staat kun je gewoon wijzigen op de normale manier via VB lijkt me?

[Verwijderd]

Heb je hier wat aan: (Uit de Access help)

code:

Sub NewPasswordX()

    Dim wrkDefault As Workspace
    Dim usrNew As User
    Dim grpNew As Group
    Dim grpMember As Group
    Dim strPassword As String

    ' Get default workspace.
    Set wrkDefault = DBEngine.Workspaces(0)

    With wrkDefault

        ' Create and append new user.
        Set usrNew = .CreateUser("Pat Smith", _
            "abc123DEF456", "Password1")
        .Users.Append usrNew

        ' Create and append new group.
        Set grpNew = .CreateGroup("Accounting", _
            "UVW987xyz654")

.Groups.Append grpNew

        ' Make the new user a member of the new group.
        Set grpMember = usrNew.CreateGroup("Accounting")
        usrNew.Groups.Append grpMember

        ' Ask user for new password. If input is too long, ask 
        ' again.
        Do While True
            strPassword = InputBox("Enter new password:")
            Select Case Len(strPassword)
                Case 1 To 14
                    usrNew.NewPassword "Password1", strPassword
                    MsgBox "Password changed!"

Exit Do
                Case Is > 14
                    MsgBox "Password too long!"
                Case 0
                    Exit Do
            End Select
        Loop

        ' Delete new User and Group objects because this
        ' is only a demonstration.
        .Users.Delete "Pat Smith"
        .Groups.Delete "Accounting"

    End With

End Sub