初めてのアクセス。知ってますか・・・。

マイクロソフトエクセルのまとめ記事はこちら

「新規」ボタンのコードを記入しました。



【構文】

DoCmd.GotoRecord [,DataObjectType] [,ObjectName] [,AcRecord] [,Offset]

・DoCmd・・・DoCmdオブジェクト（省略できません）

・GotoRecord・・・レコードの移動コマンド（省略できません）

・DataObjectType・・・対象となるオブジェクトを指定します。

　acActiveDataObject・・・アクティブオブジェクト（規定値）

　acDataForm・・・フォーム

　acDataFunction・・・関数

　acDataQuery・・・クエリ

　acDataTable・・・テーブル

・ObjectName・・・対象となるオブジェクトの名前を指定します

・AcRecord・・・移動の種類を指定します

　acNext・・・次のレコード

　acPrevious・・・前のレコード

　acFirst・・・先頭のレコード

　acLast・・・最後のレコード

　acGoto・・・指定したレコード

　acNewRec・・・新規レコード

・Offset・・・移動量を指定します

今回は「DoCmd.GoToRecord acDataForm, "F_相手先一覧",

acNewRec」と入力して新規レコードに移動しています。

同じようにして「F_担当者一覧」・「F_販売品一覧」・「F_販売履歴」の新規ボタンにVBAを設定しましょう。



「F_販売履歴」の「相手先」「担当者」「販売品」「期間」のボタンはいずれも

「クエリ」を開くボタンなので、一回挑戦してみてください。


とりあえず下記のVBAで動作します。