VBA/ACCESS EASY：查询表中的是/否字段

Question

查找允许查找是/否字段=否的vba代码的查询语法。

Set rsStepCalendar = db.OpenRecordset("Select * from tblStepCalendar" & _ 
              "Where (groupNr like '*" & txtGroupNum.Value & "*')" & _ 
              "AND (CanceledContact = 0)", dbOpenDynaset) 

Answer 1

如果你的SQL语句是准确的，下面的代码应该可以工作。

Dim strSQL AS String 
Dim db AS DAO.Database 
Dim rsStepCalendar AS DAO.Recordset 

strSQL = "SELECT" & VbCrLf & _ 
     " S.*" & VbCrLf & _ 
     "FROM tblStepCalendar S" & VbCrLf & _ 
     "WHERE S.groupNr LIKE '*" & txtGroupNum.Value & "*'" & VbCrLf & _ 
     "AND S.CanceledContact = 0" 

Set db = CurrentDB 
Set rsStepCalendar = db.OpenRecordset(strSQL, dbOpenDynaset)