Microsoft Access 掲示板

Microsoft Access 掲示板

With CodeContextObject　の　IF　の使い方でエラーになります。 / 1

7 コメント
views
4 フォロー
1
hatena 2019/09/25 (水) 21:28:20

回答の前に、

Private Sub 月割_AfterUpdate()

 With CodeContextObject
        .月割金額 = DLookup("[金額]", "Q_金額表", "[Q_金額表]![月]=[月割]")
    End With
  
End Sub

このコードで、正しい結果になってますか。
コンボボックスを参照していないので、コンボボックスとは無関係の値になると思いますが？
一度、確認してみてください。

回答はそれからです。

通報 ...
  • 3
    hiroton 2019/09/26 (木) 08:49:52 25f51@f966d >> 1

    なぜCodeContextObjectを使っているのかわからないってだけでCodeContextObjectはMeと同等なんじゃないですかね
    どこにコードを書いているかがないんでアレですが、まぁ動いてるんだろうなとは思ってます
    4
    hatena 2019/09/26 (木) 11:18:36 >> 3

    私が疑問に思ったのは "[Q_金額表]![月]=[月割]" の部分で、この抽出条件では、コンボボックスの値を反映しないからです。ここに、この条件式を入れる意味はほとんど無意味。
    質問から、コンボボックスで選択した値で抽出したいのだと読めますので。
    Q_金額表 の中でフォーム上のコンボボックスを参照しているのなら正常に動く可能性はあります。

    6
    hiroton 2019/09/26 (木) 11:58:30 4451d@5a529 >> 3

    あぁすみません。そうですね
    なんかボケてたみたいです