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에 .value를 변경 말했듯이 나는 &으로 +를 대체

• 다음 (0). 찾으려는 열이 처음이 아닌 경우 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