Access備忘録

Access

Ver2010

'普通のビューでフォームを開く

function フォームを開く()
on error goto フォームを開く_Err
　docmd.openform "フォーム名", acNormal ,"","",,acnormal

フォームを開く_Exit:
　exit function

フォームを開く_Err:
　 msgbox Error$
　 resume フォームを開く_Exit

function

'最後のレコードに移動する

DoCmd.GoToRecord,,acLast

'最初のレコードに移動する

Docmd.GoToRecord,,acFirst

'カレントレコードの数を表す

カレントレコード　=Me.CurrentRecord

'次のレコードに移動する

DoCmd.GoToRecord,,acNext





'フィルタ



'移動ボタンを非表示にする
1.フォームのプロパティを表示。

2.書式タブorすべてタブを選択。

3.レコードセレクタを「いいえ」に設定。

4.移動ボタンを「いいえ」に設定。