Correct Button Syntax

[kelann]

Hi, all!

Access is not liking my code, but it's not beign specific.

Private Sub Command120_Click()
DoCmd.OpenReport "GetOrgInfoRep", acViewPreview, , , (OrganizationsT.OrgEnvironmental = -1 And Me.CircleYPEnvironmental = "l") Or (OrganizationsT.OrgHealthcare = -1 And Me.CircleYPHealthcare = "l") Or (OrganizationsT.OrgYouthMentorship = -1 And Me.CircleYPYouthMentorship = "l") 
End Sub

I'm comparing wanting to get the Report (GetOrgInfoRep), which is called from a button on a different report (EngageSelectedYPRep) but only for organizations where the OrgField (a checkbox) (from the OrganizationsT) is checked AND a similarly-named text field on this form has the value of "l" (which, in Wingdings, makes a circle).

Thanks for any thoughts on correcting my language!

--ak

[pbaldy]

I think you have it in the wrong position, and it has to be a string argument. Try:

DoCmd.OpenReport "GetOrgInfoRep", acViewPreview, , "(OrganizationsT.OrgEnvironmental = -1 And Me.CircleYPEnvironmental = 'l') Or (OrganizationsT.OrgHealthcare = -1 And Me.CircleYPHealthcare = 'l') Or (OrganizationsT.OrgYouthMentorship = -1 And Me.CircleYPYouthMentorship = 'l')"

[kelann]

Thank you!

I've put it in there, and it's definitely progress: No errors!

However, it's not recognizing my "Me" fields -- I get the little popup asking for the values for each one.

These "Me" fields are all set up following this pattern:

Control Source: =IIf([YPArtsCulture]=-1,"l","")
Other: CircleYPArtsCulture

So I was using Me.CircleYPArtsCulture to represent it -- is that incorrect?

These exist on the report with the button (that you have helped fix the code for above), but they do not exist on the report that the button opens. I want it to open the report only for the organizations that meet one of the comparison criteria. I tried moving the Me fields out of the header, but it didn't help.

With thanks!

[kelann]

I should add that if I put in values, it pulls correctly -- I just can't get it to pull the values from the current "Me" report.

[pbaldy]

Sorry, I missed that. In that position, I'd expect a field name, not a reference.

[June7]

The Me qualifier alias works only in VBA, not in queries nor in ControlSource property.

[kelann]

Okay! Progress!

I've done some reworking of the fields, and I've got it working like this:

DoCmd.OpenReport "GetOrgInfoRep", acViewPreview, , "OrgArtsCultureC = '" & Reports!EngageSelectedYPRep!YPArtsCultureC & "'"

Can you please tell me how would I add an additional one to it with an "OR" connection?

Something like

DoCmd.OpenReport "GetOrgInfoRep", acViewPreview, , "OrgArtsCultureC = '" & Reports!EngageSelectedYPRep!YPArtsCultureC & "'" Or "OrgBusinessC = '" & Reports!EngageSelectedYPRep!YPBusinessC & "'"

When I do it like the above, I get a type mismatch -- I double-checked all the calculated fields, and the "Result Type" is Text for each.

Thank you, thank you, thank you -- I cannot believe that I am seeing a light at the end of this looooooooooooooon tunnel!!

--ak

[pbaldy]

You've made a common mistake. Take out the quotes in red:


DoCmd.OpenReport "GetOrgInfoRep", acViewPreview, , "OrgArtsCultureC = '" & Reports!EngageSelectedYPRep!YPArtsCultureC & "'" Or "OrgBusinessC = '" & Reports!EngageSelectedYPRep!YPBusinessC & "'"

[kelann]

Thank you so much, everyone!

Based upon your help, with lots of reworking -- it's very different from how it started -- it's working completely!!!

I can't tell you how much I appreciate all of your help.

[pbaldy]

Happy to help.