open args 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

 

[Stefan Hoffmann]

hi,

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

The object browser lists OpenArgs as:

Property OpenArgs As Variant

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

Just use your Boolean value directly:

DoCmd.OpenForm "frmFixtureCatalogueCostHistory", _
acNormal, , _
"[Manufacturer] = '" & Me.Manufacturer & "' " & _
"AND [CatalogNumber] = '" & Me.CatalogNo & "'", _
, , False


btw, what do you like to achive with the extra Chr(34) here

Chr(34) & strFooterVisible & Chr(34)

?


mfG
--> stefan <--