レポートの並べ替え指定

フォームにコンボボックスとレポートをプレビューするボタンを配置し、コンボの値が「1」のときは、「番号順」コンボの値が「2」のときは「項目」のアイウエオ順でレポートを開きます。

レポートを開くときのイベントプロシージャに Private Sub Report_Open(Cancel As Integer) On Error Resume Next If Forms!フォーム1.コンボ1 = 1 Then Me.OrderBy = "[番号]" Me.OrderByOn = True ElseIf Forms!フォーム1.コンボ1 = 2 Then Me.OrderBy = "[項目]" Me.OrderByOn = True Else Exit Sub End If End Sub と記述しています。