DLookup（複数の条件付き）を使用してレコードが存在するかどうかを調べる

Question

私のVBAに関数を作成しようとしていますが、挿入しようとしているレコードが既に存在していても型の不一致が返された場合に、

EventComboが整数 MedalComboはこれがない（または行うことになっている）何列

Private Sub MyCombo_BeforeUpdate(Cancel As Integer) 

If Not IsNull(DLookup("RacerID", "Medals", "RaceID = " + EventCombo.Value _ 
+ " AND Medal = '" + MedalCombo.Value + "'")) Then 
MsgBox "Record Exists" 
End If. 

End Sub 

であるが、誰もが同じレースで同じメダルを持っていないことを確認しています。

私は間違っていますか？

Answer 1

Accessでコンボボックスを使用する場合、.valueが本当に必要なものであることを確認する必要があります。しばしば最初の列が.valueで隠され、ドロップダウンボックスに表示されるのは.valueではありません。コンボボックスを使用して混乱を取り除くときは、.columnsプロパティを使用します。

また、コンボボックスの結果がテキストではなく数値であることを確認するために、val（）関数を使用してコンボボックスデータを数値に変換しました。それがすでに数字である場合、これは効果がありません。それ以外の場合は、文字列として格納されている数字の場合は数値に変換します。これは厳密には必要ではないかもしれないが、別の可能性のある問題を取り除く。コンボボックスの列に数値に変換できないテキストがある場合は、0を返します。これをコード内でテストできます。私はRemouは

言ったように私は&で+を置き換えビット以下

• でコードをクリーンアップ

  は.columns（0）に.VALUEを変更しました。探している列が最初の列でない場合は、0を適切な値に変更してください。

• value（）function
• 行を削除してください。

---

Private Sub MyCombo_BeforeUpdate(Cancel As Integer) 

    If Not IsNull(DLookup("RacerID", "Medals", "RaceID = " & Val(EventCombo.Columns(0)) & " AND Medal = '" & MedalCombo.Columns(0) & "'")) Then 
     MsgBox "Record Exists" 
    End If 

End Sub