OpenArgs error

[Mark J Kubicki]

I'm sure the error is obvious... but I'm just not finding it; would someone
take a 2nd look for me?

this is to pass a string to the form_open (below) instructing it to either
make a formfooter visible or not...

strFooterVisible = "false"
DoCmd.OpenForm "frmFixtureCatalogueCostHistory", acNormal, , _
"[Manufacturer] = '" & Me.Manufacturer & "' AND [CatalogNumber] = '"
& Me.CatalogNo & "'", , , _
Chr(34) & strFooterVisible & Chr(34)


Private Sub Form_open()
Me.FormFooter.Visible = (Me.OpenArgs)
End Sub

thanks in advance,
mark

 

[strive4peace]

Hi Mark,

OpenArgs is a string expression... perhaps you could try

cBool(Me.OpenArgs)

or something like this:

Me.FormFooter.Visible = iif(nz(Me.OpenArgs,"") <> "False", true, false)



Warm Regards,
Crystal
*
have an awesome day
*
MVP Access
Remote Programming and Training
strive4peace2006 at yahoo.com
*