Access2000のVBA

質問

社内で、既に退社した方が作成したDBで在庫管理をしています。
VBAの記述でよくわからない箇所があるので教えていただきたいのです。

フォームに部品情報を入力し、「コピー」というボタンをクリックすると、「部品番号」のみ空白になり、それ以外の項目は新しいレコードにコピーされるようになっています。

この部分のVBAは
Private Sub Copy_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenQuery "qCopy"
Me![PartsCode] = Null

となっていて、２行目、３行目は理解できたのですが、１行目が何を行っているのか不明です。

初歩的な質問で申し訳ありませんが、よろしくご教授ください。

回答No.1

noname#22222

コマンドボタンのウィザードを起動して＜レコードを保存＞を選んだ時に生成されるコードです。

Private Sub コマンド0_Click()
On Error GoTo Err_コマンド0_Click

　　DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_コマンド0_Click:
　　Exit Sub

Err_コマンド0_Click:
　　MsgBox Err.Description
　　Resume Exit_コマンド0_Click

End Sub

ですから、レコードを一旦保存しているようです。

お礼

すばやい回答、ありがとうございました。
助かりました。