How to set AllowAddition properties in form

[Hardik Patel]

hi guys I am new in access. And i have problem like..
I have login form with two users and another form Laptops
and i want to set AllowAddtion property "yes" for one user and "no" for other user. How can i do that.

Here is my login form code

If Me.txtPassword.Value = DLookup("password", "tblUsers", "[UserName]='" & Me.txtUserName.Value & "'") Then
    If Me.txtUserName = "admin" Then
 
    isValid = True
    myRibbon.InvalidateControl "tabAdmin"
    End If
 
    If Me.txtUserName = "guest" Then
    isValid = True
 
    End If
 
    DoCmd.Close acForm, "LoginForm", acSaveNo
    DoCmd.OpenForm "Welcome"
 
Else
 
MsgBox "Password Invalid. Please try again", vbOKOnly, "Invalid Entry!"
Me.txtPassword.SetFocus
End If

[NeoPa]

Welcome to Bytes!

DoCmd.OpenForm() has a parameter (OpenArgs) to allow passing of information to the newly-opened form. Use this to pass a string to indicate to the form whether it should be True or False.

In the Form_Open() procedure look at this value and set the .AllowAdditions property depending on what you find there.

[Hardik Patel]

hi Neopan,
Thanks For reply but actually i am started access before just 1 month so i don,t know actually how to use that so can please write code for me.

Thanks,
Hardik Patel

[NeoPa]

We don't write code for people Hardik. We don't even allow people to ask for that (check the rules of the site). What I will do though is post some example code that will help you to write your own code.

Private Sub Form_Open(Cancel As Integer)
    Dim strAllowAdds As String
 
    strAllowAdds = Nz(Me.OpenArgs, "")
    Me.AllowAdditions = (UCase(strAllowAdds) = "YES")
End Sub

Your code may use other names but the concept would be fundamentally the same.