VBA code to Restrict Access to an access form

[AccessHunter]

I am working on an access database wthat has a main form and other multiple forms. The main form has buttons that when clicked will take user to the respective forms. I want to restirct access to couple of forms so that only our admin will have access to it. Is it possible to do that using VB? Please help.

Thanks

[Dököll]

Either VB or VBA should, I reckon you have something working already! Would you like to post it?

Provided your users are hitting a button to get to other forms, you'd need to have perhaps a password block.

I will add to VBA area for an idea, much later, will leave your post here though in VB for a closer look. But here's an excerpt of my code in a current MS Access form where a certain form needs a Password...

I won't post the whole thing, but you'll ge the point:

    Dim strPassword
 
    strPassword = InputBox("Please Enter Passcode", "Data Central Restricted Form")
 
    'Check to see if there is any entry made to input box, or if
    'cancel button is pressed. If no entry made then exit sub.
 
    If strPassword = "" Or strPassword = Empty Then
        MsgBox "No Input Provided; please enter passcode to continue...", vbInformation, "Data Central Required Data"
        Me.Visible = False
        DoCmd.OpenForm "DataData", acNormal
        Exit Sub
 
    End If
 
    'If correct and part of passcode is entered open Passcode form
    'If entire passcode is entered open RestrictedPsswrdForm form
    'If incorrect passcode entered give message and exit sub
 
    If strPassword = "MyPassportPasscode" Then
        DoCmd.OpenForm "Passwords", acNormal 'the form noone should get to
    ElseIf strPassword = "MyPasswordPasscode" Then
 
    'send user elsewhere...
 
 

If this does not do, or you need anything further please stay tuned, and do post what you have thus far, for looks; seems to be a bit quicker for your posts to get real hits:-)

In a bit!