MS Access 2013 Dlookup字符串條件問題

Question

看來這個問題應該有一個相當簡單的解決方案。 嘗試為ID運行dlookup時，使用RequestNum字符串時返回空值。 RequestNum只是一個自動編號。 RequestNum確實會寫入自己打開的彈出表單。 另外，如果我用字段中的實際數字替換RequestNum，則會得到所需的返回結果。 我可以在網上找到的唯一幫助是，盡管我顯然是這樣做的，但大多數人並沒有使用'" & stringhere & "' 。 有任何想法嗎？ 如果需要，我很樂意提供其他詳細信息。 提前致謝！

Private Sub lst_AdminDate1_DblClick(Cancel As Integer)
    Dim IDx As String
    Dim RequestNum As String
    DoCmd.OpenForm "Administrative_LeaveCalendar_Detail"
    RequestNum = Me.lst_AdminDate1.Column(2)
    IDx = DLookup("[ID]", "TimeOffCalendar", "[RequestNumber] = '" & RequestNum & "'")
    [Forms]![Administrative_LeaveCalendar_Detail]![txtAdminDateDetail_RN] = RequestNum
    [Forms]![Administrative_LeaveCalendar_Detail]![txtAdminDateDetail_ID] = IDx
    End Sub

Answer 1

可能會使您感到困惑的是，即使值是一個數字，並且應該按原樣使用，列表框也總是返回字符串。 同樣，DLookup可能返回Null 。

因此，如果[RequestNumber]是一個Long（應該是）：

Private Sub lst_AdminDate1_DblClick(Cancel As Integer)

    Dim IDx As Variant
    Dim RequestNum As String

    DoCmd.OpenForm "Administrative_LeaveCalendar_Detail"
    RequestNum = Me.lst_AdminDate1.Column(2)
    IDx = DLookup("[ID]", "TimeOffCalendar", "[RequestNumber] = " & RequestNum & "")
    [Forms]![Administrative_LeaveCalendar_Detail]![txtAdminDateDetail_RN] = RequestNum
    [Forms]![Administrative_LeaveCalendar_Detail]![txtAdminDateDetail_ID] = IDx

End Sub