B
benj
good day! am having a problem everytime i would open the report "repELISA1"
and "repELISA2". Access would hang, then close and send and error report.
This would only happens on the specified reports but not on the other reports.
both reports have subreports with different sources depending on criterias.
Private Sub Report_Open(cancel As Integer)
If [Forms]![FM_multiTEST1]![Frame59] = 4 Then
Me.Barangay.Visible = False
Else
Me.Barangay.Visible = True
End If
'result1
Select Case [Forms]![FM_multiTEST1]![txtSEC1]
Case "ELISA"
result1.SourceObject = "RF_sort5r1_extE"
Case "OTHER"
result1.SourceObject = "RF_sort5r1_extO"
End Select
'result2
Select Case [Forms]![FM_multiTEST1]![txtSEC2]
Case "ELISA"
result2.SourceObject = "RF_sort5r2_extE"
Case "OTHER"
result2.SourceObject = "RF_sort5r2_extO"
End Select
'result3
Select Case [Forms]![FM_multiTEST1]![txtSEC3]
Case "ELISA"
result3.SourceObject = "RF_sort5r3_extE"
Case "OTHER"
result3.SourceObject = "RF_sort5r3_extO"
End Select
'result4
Select Case [Forms]![FM_multiTEST1]![txtSEC4]
Case "ELISA"
result4.SourceObject = "RF_sort5r4_extE"
Case "OTHER"
result4.SourceObject = "RF_sort5r4_extO"
End Select
'result5
Select Case [Forms]![FM_multiTEST1]![txtSEC5]
Case "ELISA"
result5.SourceObject = "RF_sort5r5_extE"
Case "OTHER"
result5.SourceObject = "RF_sort5r5_extO"
End Select
End Sub
Thanks in advance!
and "repELISA2". Access would hang, then close and send and error report.
This would only happens on the specified reports but not on the other reports.
both reports have subreports with different sources depending on criterias.
Private Sub Report_Open(cancel As Integer)
If [Forms]![FM_multiTEST1]![Frame59] = 4 Then
Me.Barangay.Visible = False
Else
Me.Barangay.Visible = True
End If
'result1
Select Case [Forms]![FM_multiTEST1]![txtSEC1]
Case "ELISA"
result1.SourceObject = "RF_sort5r1_extE"
Case "OTHER"
result1.SourceObject = "RF_sort5r1_extO"
End Select
'result2
Select Case [Forms]![FM_multiTEST1]![txtSEC2]
Case "ELISA"
result2.SourceObject = "RF_sort5r2_extE"
Case "OTHER"
result2.SourceObject = "RF_sort5r2_extO"
End Select
'result3
Select Case [Forms]![FM_multiTEST1]![txtSEC3]
Case "ELISA"
result3.SourceObject = "RF_sort5r3_extE"
Case "OTHER"
result3.SourceObject = "RF_sort5r3_extO"
End Select
'result4
Select Case [Forms]![FM_multiTEST1]![txtSEC4]
Case "ELISA"
result4.SourceObject = "RF_sort5r4_extE"
Case "OTHER"
result4.SourceObject = "RF_sort5r4_extO"
End Select
'result5
Select Case [Forms]![FM_multiTEST1]![txtSEC5]
Case "ELISA"
result5.SourceObject = "RF_sort5r5_extE"
Case "OTHER"
result5.SourceObject = "RF_sort5r5_extO"
End Select
End Sub
Thanks in advance!