与查询记录值匹配的组合框值

Question

组合框值如何与查询中的列值相匹配。 提供组合框记录源是表

我想这个代码，但它似乎没有任何工作的帮助表示赞赏

Private Sub open_button() 
    If Me.CboName.Value = "Query!Query_test!Column(0)" then 

    Docmd.OpenForm FormName:="Customer" 
    End if 
End Sub 

Answer 1

你会通过查询需要循环，检查每个记录对组合框值：

Dim rs As DAO.Recordset 

Set rs = CurrentDb.OpenRecordset("Query_test", dbOpenSnapshot) 'Open Query as Snapshot 

rs.MoveFirst 

Do Until rs.EOF 'loop through the query 

    If rs.Fields(0).Value = Me.CboName.Value Then 'if column 0 matches Combobox 

     'do something and exit loop 
     DoCmd.OpenForm FormName:="Customer" 
     Exit Do 
    End If 

    rs.MoveNext 'next record 
Loop 

'cleanup 
rs.Close 
Set rs = Nothing