ACCESSのフォームの質問です。

フォームをデザインビューで開き、 コンボボックスの上で右クリックして、 プロパティを選択します。 すると、コンボボックスのプロパティシート が表示されます。 シートの下の方に更新後処理という項目が あります。その右端の欄外のところをクリック するとビルダの選択というフォームが表示 されます。その中のコードビルダを選択して OKをクリックするとフォームのコード表が 表示され、 Private Sub コンボ1_AfterUpdate() End Sub のようなコードが表示されます。 そこで、#1で示した、 Private Sub コンボ1_AfterUpdate() If Me!コンボ1.Value = "OK" Then Me!結果 = "完了" End If If Me!コンボ1.Value = "NG" Then Me!結果 = "未完了" End If If Me!コンボ1.Value = "Reset" Then Me!結果 = "" End If End Sub の中の、 If Me!コンボ1.Value = "OK" Then Me!結果 = "完了" End If If Me!コンボ1.Value = "NG" Then Me!結果 = "未完了" End If If Me!コンボ1.Value = "Reset" Then Me!結果 = "" End If を Private Sub コンボ1_AfterUpdate() End Sub の中に貼り付けてください。このとき、 コンボ1というのは仮につけた名前なので Private Sub コンボ1_AfterUpdate() のところに表示されているコンボ1と 同じ名前に、すべて統一してください。 書き終わったらAccessの左上にある黒い 上書き保存のボタンをクリックして 保存し、コード表を閉じます。 全てを保存して閉じ、フォームを 開いて確認してみてください。