B
Beth
I would like to be able to use a basic form for deleting user accounts.
The form I have has a field called txtUser where you can put in a username
as a string.
I would like to then have a button that deletes that user.
I created a similar button to create a user, and it works, but the delete
isn't working.
Here is what I have so far.
Can anyone shed some light on what is wrong with this?
Thanks,
Beth
Private Sub cmdDeleteUser_Click()
Dim cat As ADOX.Catalog
Dim usr As ADOX.User
Set cat = New ADOX.Catalog
cat.ActiveConnection = CurrentProject.Connection
With cat
Set usr = New ADOX.User
usr = Me.txtUser
.Users.Delete usr
End With
End Sub
The form I have has a field called txtUser where you can put in a username
as a string.
I would like to then have a button that deletes that user.
I created a similar button to create a user, and it works, but the delete
isn't working.
Here is what I have so far.
Can anyone shed some light on what is wrong with this?
Thanks,
Beth
Private Sub cmdDeleteUser_Click()
Dim cat As ADOX.Catalog
Dim usr As ADOX.User
Set cat = New ADOX.Catalog
cat.ActiveConnection = CurrentProject.Connection
With cat
Set usr = New ADOX.User
usr = Me.txtUser
.Users.Delete usr
End With
End Sub