K
Klatuu
First question.
Using Access 2003 in 2000 format Windows XP
Attempting to use OpenArgs in OpenReport method
Debug shows correct string prior to OpenReport
In Open event of Report Debug shows Me.OpenArgs is Null
Do I have to convert to 2003 Format?
Second Question.
I have 6 Group Levels. I am using Me.GroupLevel(n).ControlSource =
to try to set group levels. It is not working. Occasionally, it does, but
not consistently. I construct a delimited string so I can use the Split
function to put it into an array. The array is correct. The assignments
look correct in debug, but when I run the report, it is not correct.
Code:
Private Sub Report_Open(Cancel As Integer)
Dim varGroupOrder As Variant
Dim lngLevel As Long
On Error GoTo Report_Open_Error
'Set Group Levels
varrGroupOrder = Split(Me.OpenArgs, "|")
For lngLevel = 0 To UBound(varrGroupOrder) - 1
Me.GroupLevel(lngLevel).ControlSource = varGroupOrder(lngLevel)
Next lngLevel
Report_Open_Exit:
On Error Resume Next
Exit Sub
Report_Open_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & _
") in procedure Report_Open of VBA Document
Report_rptBPOProductOffering"
GoTo Report_Open_Exit
End Sub
Using Access 2003 in 2000 format Windows XP
Attempting to use OpenArgs in OpenReport method
Debug shows correct string prior to OpenReport
In Open event of Report Debug shows Me.OpenArgs is Null
Do I have to convert to 2003 Format?
Second Question.
I have 6 Group Levels. I am using Me.GroupLevel(n).ControlSource =
to try to set group levels. It is not working. Occasionally, it does, but
not consistently. I construct a delimited string so I can use the Split
function to put it into an array. The array is correct. The assignments
look correct in debug, but when I run the report, it is not correct.
Code:
Private Sub Report_Open(Cancel As Integer)
Dim varGroupOrder As Variant
Dim lngLevel As Long
On Error GoTo Report_Open_Error
'Set Group Levels
varrGroupOrder = Split(Me.OpenArgs, "|")
For lngLevel = 0 To UBound(varrGroupOrder) - 1
Me.GroupLevel(lngLevel).ControlSource = varGroupOrder(lngLevel)
Next lngLevel
Report_Open_Exit:
On Error Resume Next
Exit Sub
Report_Open_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & _
") in procedure Report_Open of VBA Document
Report_rptBPOProductOffering"
GoTo Report_Open_Exit
End Sub