How to Pass Option Group info to OpenArgs in OpenForm method?

  • Thread starter Thread starter dohernan
  • Start date Start date
D

dohernan

I have a form in access 2003 with a button that opens up another form in
Datasheet view. Before people view the spreadsheet, I want them to choose
how they wish to sort it.
I did an Options Group with 3 choices.

I don't know how to feed these options to the opening Form/Spreadsheet...
"Pass the value selected in the option group to the new form in the OpenArgs
argument of the OpenForm method."

Help please? Thanks.

Klatuu was kind enough to say-
In the Load event of the datasheet form, set the form's Order By property
using the value received in the option group.

If Not IsNull(Me.OpenArgs) Then
Select Case Me.OpenArgs
Case 1
Me.OrderBy = "[Last name], [First name], [date received]"
Case 2
Me.OrderBy = "[date received].[Last name], [First name]"
Case 3
Me.OrderBy = "[date completed].[Last name], [First name]"
End Select
End If


+++++
My current Opening button-
+++++


Private Sub Command53_Click()

End Sub
Private Sub CommandSpreadsheetOpen_Click()
On Error GoTo Err_CommandSpreadsheetOpen_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Personnel2009Spreadsheet"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_CommandSpreadsheetOpen_Click:
Exit Sub

Err_CommandSpreadsheetOpen_Click:
MsgBox Err.Description
Resume Exit_CommandSpreadsheetOpen_Click

End Sub
 
Thanks everyone, I got it to work in Datasheet view like this-

Private Sub CommandViewSpreadsheet_Click()
On Error GoTo Err_CommandViewSpreadsheet_Click

Dim stDocName As String
Dim i As Integer
i = Me.SpreadsheetOptionGroup

stDocName = "Personnel2009Spreadsheet"
DoCmd.OpenForm stDocName, acFormDS, , , , , i

Exit_CommandViewSpreadsheet_Click:
Exit Sub

Err_CommandViewSpreadsheet_Click:
MsgBox Err.Description
Resume Exit_CommandViewSpreadsheet_Click

End Sub
 
Back
Top