Data checking in a report or function instead of an event on a form?

F

Fred Boer

Hello!

On one of my forms, I have a listbox which lists reports. I have different
reports for books in different formats. For example, if the record is a
Talking Book, you must run a special "Talking Book" report, not a regular
report. A few days ago, I created code that would prevent the inappropriate
printing of reports (This code runs in the AfterUpdate event of the listbox,
and it worked correctly. (Code reproduced below). I was happy. :)

Today, my library helper showed me a problem. In addition to the listbox,
users can use the form menu bar to run reports. I had forgotten this. The
menu items run functions; functions which do not have the ability to
determine the appropriate label type. (Sample function reproduced below). I
have little experience with reports, particularly with coding report events.
Is it possible to do the same kind of thing using a report event as I've
done using the Listbox event? I suppose I could use the OpenReport event,
but how could I examine the data in the record to determine the appropriate
report type? Or is there a way to do it within the function rather than the
form or report?

Thanks!
Fred Boer


List Box code:


Private Sub lstPrint_AfterUpdate()
On Error GoTo ErrorHandler

Select Case Me.lstPrint
Case 1
Select Case Me.cboMediaFormat
Case 3, 4, 7, 8
msgbox "This report is not appropriate for this type of media.
Please choose one of the talking book reports.", vbOKOnly + vbInformation,
"W. Ross Macdonald School Library "
Case Else
Call fncPrintBarcodeAndSpine
End Select
Case 2
Select Case Me.cboMediaFormat
Case 3, 4, 7, 8
msgbox "This report is not appropriate for this type of media.
Please choose one of the talking book reports.", vbOKOnly + vbInformation,
"W. Ross Macdonald School Library "
Case Else
Call fncPrintBarcodeOnly
End Select
Case 3
Select Case Me.cboMediaFormat
Case 3, 4, 7, 8
msgbox "This report is not appropriate for this type of media.
Please choose one of the talking book reports.", vbOKOnly + vbInformation,
"W. Ross Macdonald School Library "
Case Else
Call fncPrintSpineOnly
End Select
Case 4
Select Case Me.cboMediaFormat
Case 1, 2, 5, 6, 9, 10, 11, 12
msgbox "This report is not appropriate for this type of media.
Please choose one of the standard reports.", vbOKOnly + vbInformation, "W.
Ross Macdonald School Library "
Case Else
Call fncPrintTalkingBookBarcodeOnly
End Select
Case 5
Select Case Me.cboMediaFormat
Case 1, 2, 5, 6, 9, 10, 11, 12
msgbox "This report is not appropriate for this type of media.
Please choose one of the standard reports.", vbOKOnly + vbInformation, "W.
Ross Macdonald School Library "
Case Else
Call fncPrintTalkingBookSpineOnly
End Select
Case 6
Select Case Me.cboMediaFormat
Case 3, 4, 7, 8
msgbox "This report is not appropriate for this type of media.",
vbOKOnly + vbInformation, "W. Ross Macdonald School Library "
Case Else
Call fncPrintTitleAuthor
End Select
End Select

ExitPoint:
Exit Sub


ErrorHandler:
fncWRMSErrMsg Err.Number, Err.Description
Resume ExitPoint
End Sub


Print Report function:

Public Function fncPrintSpineOnly()

On Error GoTo ErrorHandler

DoCmd.OpenReport "Lbl_DymoSpine", acViewNormal, , "[Book_ID] = " &
Forms!Frm_LibraryDataEdit!txtBook_ID


ExitPoint:
Exit Function

ErrorHandler:
If Err.Number <> 2501 Then
fncWRMSErrMsg Err.Number, Err.Description
End If
Resume ExitPoint

End Function
 
F

Fred Boer

Please disregard the above. I was making this *way* harder than it needed to
be: the code would run just fine in the function -all I had to do was change
the "Me.cboMediaformat" to "Forms!Frm_LibraryDataEdit.cboMediaFormat".

Fred (

P.S. I'm going for a little walk now...;)


Fred Boer said:
Hello!

On one of my forms, I have a listbox which lists reports. I have different
reports for books in different formats. For example, if the record is a
Talking Book, you must run a special "Talking Book" report, not a regular
report. A few days ago, I created code that would prevent the
inappropriate printing of reports (This code runs in the AfterUpdate event
of the listbox, and it worked correctly. (Code reproduced below). I was
happy. :)

Today, my library helper showed me a problem. In addition to the listbox,
users can use the form menu bar to run reports. I had forgotten this. The
menu items run functions; functions which do not have the ability to
determine the appropriate label type. (Sample function reproduced below).
I have little experience with reports, particularly with coding report
events. Is it possible to do the same kind of thing using a report event
as I've done using the Listbox event? I suppose I could use the OpenReport
event, but how could I examine the data in the record to determine the
appropriate report type? Or is there a way to do it within the function
rather than the form or report?

Thanks!
Fred Boer


List Box code:


Private Sub lstPrint_AfterUpdate()
On Error GoTo ErrorHandler

Select Case Me.lstPrint
Case 1
Select Case Me.cboMediaFormat
Case 3, 4, 7, 8
msgbox "This report is not appropriate for this type of media.
Please choose one of the talking book reports.", vbOKOnly + vbInformation,
"W. Ross Macdonald School Library "
Case Else
Call fncPrintBarcodeAndSpine
End Select
Case 2
Select Case Me.cboMediaFormat
Case 3, 4, 7, 8
msgbox "This report is not appropriate for this type of media.
Please choose one of the talking book reports.", vbOKOnly + vbInformation,
"W. Ross Macdonald School Library "
Case Else
Call fncPrintBarcodeOnly
End Select
Case 3
Select Case Me.cboMediaFormat
Case 3, 4, 7, 8
msgbox "This report is not appropriate for this type of media.
Please choose one of the talking book reports.", vbOKOnly + vbInformation,
"W. Ross Macdonald School Library "
Case Else
Call fncPrintSpineOnly
End Select
Case 4
Select Case Me.cboMediaFormat
Case 1, 2, 5, 6, 9, 10, 11, 12
msgbox "This report is not appropriate for this type of media.
Please choose one of the standard reports.", vbOKOnly + vbInformation, "W.
Ross Macdonald School Library "
Case Else
Call fncPrintTalkingBookBarcodeOnly
End Select
Case 5
Select Case Me.cboMediaFormat
Case 1, 2, 5, 6, 9, 10, 11, 12
msgbox "This report is not appropriate for this type of media.
Please choose one of the standard reports.", vbOKOnly + vbInformation, "W.
Ross Macdonald School Library "
Case Else
Call fncPrintTalkingBookSpineOnly
End Select
Case 6
Select Case Me.cboMediaFormat
Case 3, 4, 7, 8
msgbox "This report is not appropriate for this type of
media.", vbOKOnly + vbInformation, "W. Ross Macdonald School Library "
Case Else
Call fncPrintTitleAuthor
End Select
End Select

ExitPoint:
Exit Sub


ErrorHandler:
fncWRMSErrMsg Err.Number, Err.Description
Resume ExitPoint
End Sub


Print Report function:

Public Function fncPrintSpineOnly()

On Error GoTo ErrorHandler

DoCmd.OpenReport "Lbl_DymoSpine", acViewNormal, , "[Book_ID] = " &
Forms!Frm_LibraryDataEdit!txtBook_ID


ExitPoint:
Exit Function

ErrorHandler:
If Err.Number <> 2501 Then
fncWRMSErrMsg Err.Number, Err.Description
End If
Resume ExitPoint

End Function
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Do "In(1,3,5, 8)" in If/Then structure? 2
on close event of a report 4
how to do this bit of code better? 2
Help with WHERE filter on opening report from dialog 4
How do I call a function from the On Print event of a Sub Report 4
Cnacel on No Data 4
Add an "ALL" option to a Combo Box 0
Checking for Null with Code 2

Top