(1)作成>フォームデザイン を選択 (2)ラベル、テキスト、ボタンを配置します 背景緑の項目はラベルです Noのテキストの名前は「txtNo」 得意先名のテキストの名前は「txt得意先名」 得意先名略のテキストの名前は「txt得意先名略」 得意先名担当者のテキストの名前は「txt得意先担当者」 ACCESS VBA更新と登録は1つのフォームで行うので起動時にモードを取得し 更新モードの場合は、キーを取得し(strCode)このキーを元にデータ検索します。 データが取れないということは既に他の人に削除されたデータなので エラーとなり画面は表示されません。 '*************************** ' 画面起動時 '*************************** Private Sub Form_Open(Cancel As Integer) Dim strCode