Do.Cmd.OpenForm with Where clause

[moneypennie21]

HI,



I have a contact details form and on it I have placed an edit button which I only want to be accessed by those who have the admin password. so when clicked on i want it to ask for password and then when entered correctly open the edit contact details form in edit mode for the current record selected in the contact details form. I have tried various bits of code and have the password element working fine but I can either open the edit record form on the first record alphabetically or a blank edit contact form. this is the code I have currently which when the correct password is entered opens a blank edit contact form - Any assistance would be appreciated

Private Sub edit_button_Click()
Dim strPasswd


strPasswd = InputBox("Enter Password", "Restricted Form")


If strPasswd = "" Or strPasswd = Empty Then
MsgBox "No Input Provided", vbInformation, "Required Data"
Exit Sub
End If


If strPasswd = "Sunshine" Then
DoCmd.OpenForm "edit_contact_form", , , "[Forms]![contact_details_form]" = "Me.Full_Name", acFormEdit
Else
MsgBox "Sorry you do not have access to this form", -vbOKOnly, "Important Information"
Exit Sub
End If


End Sub

[ranman256]

the where clause refers to a field in the current form , the table/query field , ( not a path)

DoCmd.OpenForm "edit_contact_form", , , "[state]='" & me.txtState & "'"

[moneypennie21]

Sorry, am quite new to Access VBA, does this mean I can't do what I am trying to do?

[moneypennie21]

I think I have resolved this using the OpenArgs - code as follows seems to work and opens the edit form at the correct record in edit mode which is what I wanted:

DoCmd.OpenForm "edit_contact_form", , , , acFormEdit, , "full_name"

[aytee111]

A WHERE clause is the same as is used in a query but without the word WHERE. Create a query and add a criteria, then go to SQL view and copy the criteria just as it is, that will give you the correct syntax.

[moneypennie21]

HI aytee111 trhanks but I think I have solved it with the OpenArgs clause as it si working exactly how I want it to now.