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)