如何基于“表1”上的“字段值”和“字段名称”在MS Access“表2”中查找值

Question

I've 2 Tables, as shown in the attached example I want to retrieve the data from table 2 based on two records, "size" as 1st field value & "category" as a field name. In Excel, it is easy by using Vlookup & match functions, but I want it In Access. As an example: From Table 1 at 3rd record , "size"=3 & "category"=D, then "item 3" value shall be retrieved from Table 2 with two conditions: "Size" = 3 & field name ="D" ie "30". Thank you.

Example ; Actual Data

Answer 1

I think it may require some tuning on the code to be faster.

Function MatchColumn(row As Single, column As String) As Single
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim rs As DAO.Recordset
Dim fld As DAO.Field
Dim Pos As Integer ' coulmn position
Set db = CurrentDb
Set tdf = db.TableDefs("Table 2")
Set rs = tdf.OpenRecordset

For Each fld In tdf.Fields
 If fld.Name <> column Then Else Exit For
Next
Pos = fld.OrdinalPosition

If Not (rs.EOF And rs.BOF) Then
 Do While Not rs.Fields(0).Value = row
 rs.MoveNext
Loop
MatchColumn = rs.Fields(Pos).Value

rs.Close
Set rs = Nothing
Set qdf = Nothing
Set db = Nothing
End If
End Function