Disabling and Enabling Form buttons

[owuraku]

I have a table with a field called DEPT_ACCESS. I also have a form called FRMACCESS with 3 buttons called DEPT_1, DEPT_2 and DEPT_3. I want to write a code such that when a user from whose DEPT_ACCESS is 1 opens the FRMACCESS, only the button called DEPT_1 should be enabled. Similarly, user whose DEPT_ACCESS is 2 should have only button called DEPT_2 enabled. The same criterion holds for user with DEPT_ACCESS 3. The name of the table is called TBLADMIN.

[aprpillai]

If you have implemented Microsoft Access Security then you can get the name of the Form's current user name with the Function CurrentUser. But you must be able to identify a particular user with the department and accordingly you can enable or disable Buttons.

if currentuser = "xyz" and [Deptt]="DEPART_1" then
   me![DEPART_1].enabled = true
end if

try the following link for Microsoft Access Security implementation
http://www.msaccesstips.com/2006/11/...security.shtml

[NeoPa]

How does the code know which department the user is in?

I assume TBLADMIN must enable you to translate a user name into a department (although you don't say so in the question), but how do you propose to determine who the user is in the first place? It's possible of course, but the problem is there are a number of ways it COULD be done. How are YOU planning to do it?

[Annalyzer]

Here's a function I found when I needed to know which user was currently logged in.

Public Function CNames(UserOrComputer As Byte) As String
    'UserorComputer; 1=User, anything else = computer
    Dim NBuffer As String
    Dim Buffsize As Long
    Dim wOK As Long
 
    Buffsize = 256
    NBuffer = Space$(Buffsize)
 
    If UserOrComputer = 1 Then
        wOK = api_GetUserName(NBuffer, Buffsize)
         CNames = Trim$(NBuffer)
    Else
        wOK = api_GetComputerName(NBuffer, Buffsize)
        CNames = Trim$(NBuffer)
    End If
End Function

It's working great for me. I hope you find it useful as well. Wish I could give credit where credit was due, but I can't remember where I found this.