フォームフィルター＆ソート＆リフレッシュ＆行保管

投稿日時: 投稿者: 
Private Sub Form_Load()
	
	'表示にフィルターをかける
	Me.Filter = “xxx=" & ZZZ
	Me.FilterOn = True
		
	'SORT指定
	Me.OrderBy = “ORDER_NUMBER ASC"
	Me.OrderByOn = True
	
End Sub

'編集中の行を保管する
Sub SAVE_CURRENT_RECORD()
	DoCmd.RunCommand acCmdSaveRecord
End Sub

'画面をリフレッシュ
Private Sub BTN_refresh_Click()
	Me.Requery
End Sub