GroupLevel Problem

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
 

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

Top