Programming an Edit/Delete Button on Switchboard

[murk]

When programming such a button in it's properties, event, on click, what is the exact formula to do this. I need to see all spaces, parenthesis etc. The following was one I was given but the 2nd last line didn't work. Help.

Private Sub OpenFormButton_Click()

Dim stDocName As String
Dim stLinkCriteria As String
Dim stPolicy as Variant

stDocName="frmNameofForm"
stPolicy=InputBox "Enter Policy Number?"
stLinkCriteria="stPolicy="&Me![PolicyNumber]
DoCmd.OpenForm stDocName,,,stLinkCriteria

End Sub

Thanks a bunch!!

Jennifer

 

[VBslammer]

Should probably be this:

stLinkCriteria= "[PolicyNumber]=" & stPolicy

If the [PolicyNumber] is actually a string then add single quotes:

stLinkCriteria= "[PolicyNumber]= ' " & stPolicy & " ' "

VBSlammer

Unemployed in Houston, Texas