Article ID: 149219
Article Last Modified on 1/26/2005
Form: ChangePassword
-----------------------
Caption: ChangePassword
Textbox:
Name: OldPwd
ControlSource:
Textbox:
Name: NewPwd
ControlSource:
Command button:
Name: Button0
Caption: My Button
OnClick: [Event Procedure]
Set the Onclick property to the following [Event Procedure]
Private Sub Command0_Click()
Dim ws as Workspace
Set ws = DBEngine.Workspaces(0)
ws.Users(CurrentUser()).NewPassword [OldPwd], [NewPwd]
ws.Close
End Sub
Old: ""
New: abc
Keywords: kberrmsg kbprb kbusage KB149219