Mercy Mercy
Member
- Local time
- Today, 06:57
- Joined
- Jan 27, 2023
- Messages
- 87
Hello everyone. I have a slight problem. The following code does not fire to print selected records in invoice. It is supposed to filter the selected records and the studentID
I have attached an image to show the selected records.
Thanks in advance
Code:
Private Sub Command48_Click()
Dim sFilter As String
On Error Resume NextDoCmd.CLOSE acReport, "INVOICE"
sFilter = Me.SelectedList & ""If Len(sFilter) <> 0 Then Do While Right$(sFilter, 1) = "," sFilter = Left$(sFilter, Len(sFilter) - 1) Loop Do While Left$(sFilter, 1) = "," sFilter = Mid$(sFilter, 2) Loop DoCmd.OpenReport "INVOICE", acViewPreview, , "StudentID IN (" & sFilter & ")"Else DoCmd.OpenReport "INVOICE", acViewPreviewEnd IfEnd Sub
I have attached an image to show the selected records.
Thanks in advance
Attachments
Last edited: