Disabling a Subform

[txteacher]

In Access 2000, I am creating a form that can be accessed by everyone in the company. The subform though I only want the admin to access to it. I was wondering if there was a way to disable the subform until the admin enters his/her user id. If this is possible can anyone help with an example of the code or point me in the right direction? Thanks

 

[ZmrAbdulla]

Something like this?

Private Sub cmdEnableSubForm_Click()
    Dim strUserName, strPassword As String
    strUserName = Me.txtUserName
    strPassword = Me.txtPassword
    If strUserName = "Administrator" And strPassword = "adminpassword" Then
        Me.frmSubForm.Enabled = True
    Else
        Me.frmSubForm.Enabled = False
    End If
End Sub

'=================================================
Private Sub Form_Open(Cancel As Integer)
Me.frmSubForm.Enabled = False
End Sub

________________________________________________________
Zameer Abdulla
Help to find Missing people
Sharp acids corrode their own containers.

 

[txteacher]

That worked like a charm.

Thanks