DelUserDB
Function sDeleteAUser (strName As String) Dim ws As WorkSpace Set ws = dbengine.workspaces(0) ws.Users.Delete strName ws.Users.Refresh End Function
Function sDeleteAUser (strName As String)
Dim ws As WorkSpace
Set ws = dbengine.workspaces(0)
ws.Users.Delete strName
ws.Users.Refresh
End Function
(deluserdb.html)- by Paolo Puglisi - Modifica del 25/3/2019