|
Private Sub cmb選択_AfterUpdate()
' -----------------------------------------------------
' 表示書き換えのちらつき防止
' -----------------------------------------------------
Me.Section(0).Visible = False
If Not IsNull(Me.cmb選択.Value) Then
Me.Undo
Me.FilterOn = False
Me.Filter = "分類 = " & Ss(Me.cmb選択.Value)
Me.FilterOn = True
End If
Me.Section(0).Visible = True
End Sub
Private Sub Form_Load()
Me.cmb選択.Value = "メイン"
cmb選択_AfterUpdate
End Sub
Private Sub 実行_Click()
If Me.実行フォーム.Value <> "" Then
If Left(Me.実行フォーム.Value, 3) = "PR_" Then
DoCmd.OpenReport Me.実行フォーム.Value, acViewPreview
End If
If Left(Me.実行フォーム.Value, 2) = "F_" Then
DoCmd.OpenForm Me.実行フォーム.Value
End If
End If
End Sub
| |