可以使用DCount函数代替DLookUp函数来解决此问题。
例如,
Dim strCriteria As String strCriteria = "Field1='" & Me.txtField1Value & "' AND Field2='" & Me.txtField2Value & "'"
Dim lngCount As Long lngCount = DCount("*", "TableName", strCriteria)
如果lngCount大于0,则表中存在满足条件的记录。
要返回数据,可以使用一个查询来过滤数据,并在VBA中使用Recordset对象。
例如,
Dim strSQL As String strSQL = "SELECT Field3 FROM TableName WHERE " & strCriteria
Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset(strSQL)
如果记录集中存在数据,则可以使用rst.Fields("Field3")检索第一条记录的"Field3"字段。