コマンドボタン
フォーム上部のコマンドボタンでどのフォームからも使えるFunctionプロシージャです。
acc05
フォームを閉じる
先頭・前・次・最後のレコードへ移動
新規レコード
フィルター解除
ACCESS 終了 
Function Close_Form()
''アクティブなフォームを閉じる
On Error Resume Next
    DoCmd.Close
End Function

Function First_Record()
''先頭レコードへ
On Error Resume Next    
    DoCmd.GoToRecord , , acFirst
End Function

Function Previous_Record()
''前レコードへ
On Error Resume Next    
    DoCmd.GoToRecord , , acPrevious
End Function

Function Next_Record()
''次レコードへ
On Error Resume Next
    DoCmd.GoToRecord , , acNext
End Function

Function Last_Record()
''最後レコードへ
On Error Resume Next
    DoCmd.GoToRecord , , acLast
End Function

Function FNew_Record()
''新規レコード        2003/4/25
On Error Resume Next
    DoCmd.GoToRecord , , acNewRec
    DoCmd.GoToControl "Code"
End Function

Function Clear_Filter()
''フィルタの解除
On Error Resume Next
    Screen.ActiveForm.FilterOn = False
    Screen.ActiveForm.OrderByOn = False
    DoCmd.GoToControl "Code"
End Function

Function ShowFilterButton()
''フィルタ適用時、解除ボタンを表示
On Error Resume Next
    Screen.ActiveForm![解除].Visible = Screen.ActiveForm.FilterOn
End Function

Function ACCESS終了()
''ACCESS 終了
    Application.Quit acQuitSaveAll   
End Function

Function QuitAccess()
''ACCESS 終了  保存確認のダイアログ ボックスを表示
    Application.Quit acQuitPrompt
End Function
top