Hi All,
Is it possible to change the code below from IF statements to CASE statements? I'm seriously stuck with how to go about this!!!
In summary, the code is triggered from the after update event of my form's checkbox 'Check25970'. I have a field called 'OrderID' on my form & if the number in the field 'OrderID' is between a particular number (say for example between 45001 AND 47500), then a PDF version of report 'rptInvoice' is produced & automatically stored in a specific folder on my C: drive (i.e C:\45000-47501).
If Me.Check25970 = True AND (Me.OrderID >=45001 AND Me.OrderID <=47500) Then
Me.Check25976 = False
blRet = ConvertReportToPDF("rptInvoice", vbNullString, "C:\45001-47500\" & Me.OrderID & "CI" & ".pdf", False, False, 0, "", "", 0, 0)
DoCmd.OpenReport stDocName, acPreview
Else
If Me.Check25970 = True AND (Me.OrderID >=47501 AND Me.OrderID <=50000) Then
Me.Check25976 = False
blRet = ConvertReportToPDF("rptInvoice", vbNullString, "C:\47500-50000\" & Me.OrderID & "CI" & ".pdf", False, False, 0, "", "", 0, 0)
DoCmd.OpenReport stDocName, acPreview
Else
If Me.Check25970 = True AND (Me.OrderID >=50001 AND Me.OrderID <=52500) Then
Me.Check25976 = False
blRet = ConvertReportToPDF("rptInvoice", vbNullString, "C:\50001-52500\" & Me.OrderID & "CI" & ".pdf", False, False, 0, "", "", 0, 0)
DoCmd.OpenReport stDocName, acPreview
Else
If Me.Check25970 = True AND (Me.OrderID >=52501 AND Me.OrderID <=55000) Then
Me.Check25976 = False
blRet = ConvertReportToPDF("rptInvoice", vbNullString, "C:\52501-55000\" & Me.OrderID & "CI" & ".pdf", False, False, 0, "", "", 0, 0)
DoCmd.OpenReport stDocName, acPreview
End If
End If
End If
End If
Is it possible to change the code below from IF statements to CASE statements? I'm seriously stuck with how to go about this!!!
In summary, the code is triggered from the after update event of my form's checkbox 'Check25970'. I have a field called 'OrderID' on my form & if the number in the field 'OrderID' is between a particular number (say for example between 45001 AND 47500), then a PDF version of report 'rptInvoice' is produced & automatically stored in a specific folder on my C: drive (i.e C:\45000-47501).
If Me.Check25970 = True AND (Me.OrderID >=45001 AND Me.OrderID <=47500) Then
Me.Check25976 = False
blRet = ConvertReportToPDF("rptInvoice", vbNullString, "C:\45001-47500\" & Me.OrderID & "CI" & ".pdf", False, False, 0, "", "", 0, 0)
DoCmd.OpenReport stDocName, acPreview
Else
If Me.Check25970 = True AND (Me.OrderID >=47501 AND Me.OrderID <=50000) Then
Me.Check25976 = False
blRet = ConvertReportToPDF("rptInvoice", vbNullString, "C:\47500-50000\" & Me.OrderID & "CI" & ".pdf", False, False, 0, "", "", 0, 0)
DoCmd.OpenReport stDocName, acPreview
Else
If Me.Check25970 = True AND (Me.OrderID >=50001 AND Me.OrderID <=52500) Then
Me.Check25976 = False
blRet = ConvertReportToPDF("rptInvoice", vbNullString, "C:\50001-52500\" & Me.OrderID & "CI" & ".pdf", False, False, 0, "", "", 0, 0)
DoCmd.OpenReport stDocName, acPreview
Else
If Me.Check25970 = True AND (Me.OrderID >=52501 AND Me.OrderID <=55000) Then
Me.Check25976 = False
blRet = ConvertReportToPDF("rptInvoice", vbNullString, "C:\52501-55000\" & Me.OrderID & "CI" & ".pdf", False, False, 0, "", "", 0, 0)
DoCmd.OpenReport stDocName, acPreview
End If
End If
End If
End If