0

さまざまな人が毎日記入する必要のあるアクセスフォームがあります。

それはウェブサイトへの変更を文書化することであり、私は現在、さまざまなセクションに修正、元に戻す、または変更なしのいずれであるかを示すコンボボックスボックスを設定しています.

これらのセクションを強調表示するように条件付き書式を設定しましたが、ユーザーが「変更なし」を選択した場合にそのフィールドのデータが前のレコードからコピーされるように、それを機能させようとしています。

コンボボックスの AfterUpdate コードでこれを設定しましたが、何も起こらず、エラーも発生しません...誰か助けてもらえますか?

Private Sub COMBOBOX1_AfterUpdate()
If Me.COMBOBOX1 = 3 Then
Me.[FIELD_TO_CHANGE] = DLookup("[FIELD_TO_CHANGE]", "tb_TABLE", "[ID]=Forms![form_FORM]![ID]-1")
End If
End Sub

(3 はコンボボックスの NO CHANGE の値であり、FIELD_TO_CHANGE、tb_TABLE、および form_FORM はさまざまな要素の名前です)

ありがとう！

4

1 に答える 1

0

まず、コントロール COMBOBOX1 を定義し、[プロパティ] ウィンドウに入力して定義する必要があります。

COMBOBOX1.AfterUpdate = "[Event Procedure]"

Private Sub COMBOBOX1_AfterUpdate() が考慮されます。エラーが発生し、ポップアップが表示される場合があります。

次に、次のようにイベント ハンドラーを変更して開始します。

Private Sub COMBOBOX1_AfterUpdate()
  If Me.COMBOBOX1 = 3 Then
    Me.[FIELD_TO_CHANGE] = DLookup("[FIELD_TO_CHANGE]", "tb_TABLE", "[ID]=" & (Me.[ID] - 1))
  End If
End Sub

フォームが機能する前に、多くのエラーを修正する必要があります...

于 2013-10-30T19:18:24.027 に答える