VBA訪問獲得行來源找到查找此值

Question

VBA小白（因爲這哀悼），

在MS Access我寫了一個測試功能，找到一些你在傳遞條件的備案基地的價值。

該函數似乎工作正常，除非在我正在搜索的列中查找的情況下。

基本上它可能會返回「19」，19對應於其他一些表值。

似乎列的RowSource是什麼後，所以我可以做第二次查詢來找到真正的價值。

有人可以指出我在尋找RowSource的正確方向，假設我知道列名，然後利用它找到值Im後？

編輯：看來，我不是解釋我自己清楚，這是什麼，我試圖讓編程

Answer 1

試試這個 - 我想，我終於明白，爲什麼你正在尋找的行來源 - 抱歉，我沒有「搞定」它在第一。您試圖拉取的字段是描述表中的外鍵。

該函數應該作爲所有這些字段的一般解決方案（假設RowSource總是首先有主鍵，其次是描述）。如果沒有RowSource，它將只提取該字段的值。

它基於您的原始代碼，而不是由@ron提出的更改，但它應該設置您正確的方向。另外，使用＆符號（&）在VBA中將字符串連接在一起，以避免類似這樣的情況： abc = "1" + 1，其中abc現在等於2，而不是「11」，正如您期望的那樣，如果兩個項目都是字符串。

Public Function lookUpColumnValue(Database As Database, column As String, table As String, lookUpColumn As String, lookUpValue As String) As String 

    Dim sql As String 
    Dim recordSet As DAO.recordSet 
    Dim result As String 

    lookUpColumnValue = "" 'Return a blank string if no result 

    On Error Resume Next 

    sql = "SELECT [" & table & "].[" & column & "] FROM [" & table & "] WHERE [" & table & "].[" & lookUpColumn & "] = '" & lookUpValue & "'" 
    Set recordSet = Database.OpenRecordset(sql) 

    If Not recordSet.EOF Then 
     Dim td As DAO.TableDef 

     'this gives your number - say, 19 
     result = recordSet(column) 

     Set td = Database.TableDefs(table) 

     'Get the rowsource 
     Dim p As DAO.Property 
     For Each p In td.Fields(column).Properties 
      If p.Name = "RowSource" Then 
       RowSource = Replace(td.Fields(column).Properties("RowSource"), ";", "") 
       Exit For 
      End If 
     Next 

     If Not RowSource = "" Then 
      Dim rs2 As DAO.recordSet 
      Dim qd As DAO.QueryDef 

      Set qd = Database.CreateQueryDef("", RowSource) 
      Set rs2 = Database.OpenRecordset(RowSource) 

      If rs2.EOF Then Exit Function 

      PKField = rs2.Fields(0).Name 

      rs2.Close 
      qd.Close 

      sql = "SELECT * FROM (" & RowSource & ") WHERE [" & PKField & "]=[KeyField?]" 
      Set qd = Database.CreateQueryDef("", sql) 
      qd.Parameters("KeyField?").Value = result 

      Set rs2 = qd.OpenRecordset() 

      If Not rs2.EOF Then 
       'NOTE: This assumes your RowSource *always* has ID first, description 2nd. This should usually be the case. 
       lookUpColumnValue = rs2.Fields(1) 
      End If 
     Else 
      'Return the field value if there is no RowSource 
      lookUpColumnValue = recordSet.Fields(column) 
     End If 
    End If 

End Function 

Answer 2

如果我正確理解你的問題的照片，我想使用參數查詢將解決您的問題。使用參數是很好的做法，因爲它們將執行隱式數據類型轉換，並且還可以防止注入攻擊。

請注意，在下面的函數中，我將lookupValue更改爲Variant類型，它允許您將任何類型的值傳遞給該函數。

Public Function lookUpColumnValue(_ 
    database As DAO.database, _ 
    column As String, _ 
    table As String, _ 
    lookUpColumn As String, _ 
    lookUpValue As Variant) As String 

    Dim sql As String 
    Dim recordSet As DAO.recordSet 
    Dim result As String 
    Dim qd As QueryDef 
    Set qd = database.CreateQueryDef("") 
    sql = "SELECT [" + table + "].[" + column + "] FROM [" + table + "] " & _ 
      "WHERE [" + table + "].[" + lookUpColumn + "] = [parm1];" 
    qd.sql = sql 
    qd.Parameters![parm1] = lookUpValue 
    Set recordSet = qd.OpenRecordset() 

    result = recordSet(column) 

編輯

lookUpColumnValue = DLookup("Space Use Description", "Space Use Codes", result) 


End Function