Select Report to Open by CheckBox

This thread has been split from the Getting Rid of #Error thread as it is a separate question.

I'm happy enough to post an answer, but we request that questions are kept to their own threads for manageability.

Assuming you have a form (frmChoose) with a CommandButton (cmdReport) and a CheckBox (chkNight) on it. You want to run one report (rptDay) if chkNight is False and another (rptNight) if it's True.

You would have an OnClick procedure for cmdReport something like the following :

Clearly this is at its simplest, but it should give you the idea of how to go about things.

Good luck :)

Quote: Originally Posted by NeoPa Assuming you have a form (frmChoose) with a CommandButton (cmdReport) and a CheckBox (chkNight) on it. You want to run one report (rptDay) if chkNight is False and another (rptNight) if it's True. You would have an OnClick procedure for cmdReport something like the following : Code: ( text ) Private Sub cmdReport_Click()   Dim strReport As String     strReport = IIf(Me.chkNight, "rptNight", "rptDay")   Call DoCmd.OpenReport(strReport, acViewPreview) End Sub Clearly this is at its simplest, but it should give you the idea of how to go about things. Good luck :)

Neopa,

How do I cobine your code for the Checkbox with the the code that already exist their(code below). I would like your code to change however to only send data to rptNight only if the box is checked and it does nothing when it is unchecked. How do we go about doing this? You can change the coding below to reflect this if you want.


David

My original code would then look like :

Let me know if you need help changing your code to reflect this.

Quote: Originally Posted by NeoPa My original code would then look like : Code: ( text ) Private Sub cmdReport_Click()   If Me.chkNight Then Call DoCmd.OpenReport("rptNight", acViewPreview) End Sub Let me know if you need help changing your code to reflect this.

Neopa,

Yes I do need help. I am not sure where to put your code at in the previous coding I sent out.

David

I can't put any code in as you haven't shared the name of your CheckBox control?

With this, and assuming all else is equal and you want the report only to run when the value of the CheckBox is True, I can redo your code in the way you want.

The control name of the Checkbox is "CCClass". I just want to put clarity to the coding. When the box is checked I do want the report only to run when the value of the Checkbox is True but also I want only the input that was entered for the present day (the control name of the date is "CertPrintDate") and not previous days in conjunction with the text above to where it will work. Is that all you need.

David

I think it does - and congratulations on reaching full-member status :)

I was thinking of using the same logic for the filtering as you already had.

I will try to get back to this sometime this evening for you.

Try this (I'm off home now for the evening so if there are any problems or questions they'll probably have to wait until tomorrow) :

I included the date selection as well as the previous selections you already had (from post #4).

Let me know how you get on with this.

Quote: Originally Posted by NeoPa I included the date selection as well as the previous selections you already had (from post #4). Let me know how you get on with this.

Neopa,

I installed the coding but now instead of coming up with all recordson the report now it comes up with no records. I wasnt sure what the date is suppose to do. Actually I am confused on that because my form has three different dates one for start date of class, one for end date of class and one for date of certificate printing. I am going to assume that the date is based off of the computer not the form.

David

Quote: Originally Posted by David Davis Neopa, I installed the coding but now instead of coming up with all recordson the report now it comes up with no records. I wasnt sure what the date is suppose to do. Actually I am confused on that because my form has three different dates one for start date of class, one for end date of class and one for date of certificate printing. I am going to assume that the date is based off of the computer not the form. David

Neopa,

I corrected some coding that was previously there prior to me using yours and now a window pops up and says

Extra) in query expression
and
and
and



What do you think could be the problem?


David

Your [CertSerialNum] line has no comparison value in it. This explains your error message.

As to your logic, that's another matter. Can you post the whole module just for reference, then I can look through it for precise answers.

Quote: Originally Posted by NeoPa Your [CertSerialNum] line has no comparison value in it. This explains your error message. As to your logic, that's another matter. Can you post the whole module just for reference, then I can look through it for precise answers.

NeoPa,

Here is the whole module



David

Right, it would seem that there are some discrepancies between the code posted and the results you claim in the error message posted in post #13. Whatever lngLastValueEntered is set to, the ([CertSerialNum] > n) part must resolve to a valid number as far as I can see with your posted code (See lines #83 through #89).

Also, the date shown doesn't match the format specified in line #90 (which doesn't match the format shown in my post #10 either). Your formatting should work, but only because Access does some non-standard things to cover all bases.

I assume this is your most recent code, so what error messages (as accurately as possible please) do you get when running this code. When we've cleared all the reported error messages and compiled the project, then we can look at the logic producing what we need.

Often the process miraculously starts to work once the syntax etc errors are sorted out.

NeoPa,

I inserted the number after the CertSerialNum and when cmd button is executed it says invalid use of Null. (I didn't quite understand about the date. I know I change it's format in your original coding to reflect what is in the form)

David

Quote: Originally Posted by David Davis NeoPa, I inserted the number after the CertSerialNum and when cmd button is executed it says invalid use of Null. (I didn't quite understand about the date. I know I change it's format in your original coding to reflect what is in the form) David

I'm sorry David, you need to be a lot more precise than this. I can't even guess what you're trying to say about what you did and got. Remember I stressed the info must be clear (I can't see it directly you see - I only have what you tell me to go on).

The parenthesised stuff (surrounded by () characters) I get. You should not really be thinking along those lines as the code is prepared for processing as SQL - not how it looks on a form.

The date is actually stored as a real number. SQL doesn't care about that when dealing with date literals. It has its own rules (See Literal DateTimes and Their Delimiters (#)).

Quote: Originally Posted by NeoPa I'm sorry David, you need to be a lot more precise than this. I can't even guess what you're trying to say about what you did and got. Remember I stressed the info must be clear (I can't see it directly you see - I only have what you tell me to go on). The parenthesised stuff (surrounded by () characters) I get. You should not really be thinking along those lines as the code is prepared for processing as SQL - not how it looks on a form. The date is actually stored as a real number. SQL doesn't care about that when dealing with date literals. It has its own rules (See Literal DateTimes and Their Delimiters (#)).

Sorry about that NeoPa,

On line 85 I change its coding to:


Next I executed line 74 and its coding (I did this from a command button on a [Form] in form view which is labeled PCCCertificates which is also linked to line 74 and it's coding).

Once line 74 and it's coding was complete with it's execution, a msgbox popped up and sayed "Invalid use of Null".

I acknowledged it by pressing OK and the msg box went away
and that is it.

David

Can you add the following line to your code after line #90 and let me know what it shows when run.