Limit Access to Specific Form

[DeLaMartre]

Is there a relatively simple way (being simple-minded...) to limit access to a particular form for which there is a button on the switchboard? I want to make one of the forms accessible only to the manager of the department.

Could a password be assigned to a button/form?

Any help would be greatly appreciated.

Thanks very much,

Bob in California

 

[mdmilner]

If it's on the computer or part of the operating system, you can use it.
For me, internally, I could go after our internal network login userid - which would restrict use of the forum to the specific computer(s) that the Manager has logged into.

Anything could get a password though.
Create a small form that is triggered by the button in question that does one thing, prompt for and process a password via a textbox. If correct, it closes and opens the next form.

There are other options. Others might be easier/better.

Mike

 

[DeLaMartre]

Thanks for the very creative, brilliant tip, Mike! This is absolutely Perfect!!

Your time is very much appreciated.

Best Regards,

Bob in California

 

[mdmilner]

And I wasn't even done talking too - just wait til I get warmed up!
Here is an example of how to access a network login name.

Mike

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
    strUserName = String$(254, 0)
    lngLen = 255
    lngX = apiGetUserName(strUserName, lngLen)
    If (lngX > 0) Then
        fOSUserName = Left$(strUserName, lngLen - 1)
    Else
        fOSUserName = vbNullString
    End If
    'MsgBox fOSUserName
End Function

 

[DeLaMartre]

Oooooooooooooooh, Really Good Stuff!

You da Man!

Thanks again,

-Bob in California

 

[kevinnichols78]

I know this is an old post, but I'm curious....Why not just use something like this:


Sub getUserName()

MsgBox Mid(Environ(33), 10)

End Sub