关于查询窗体的条件筛选问题

麦老师：有个安置房信息查询主子窗体，主窗体有8个组合框和文本框，可以按各字段输入查询条件进行筛选，子窗体是筛选结果，7个条件都设置好了，最后一个不会做了，特请教，就是在”是否安置“的组合框内选择输入”已安置“和”未安置“，”已安置“表示”拆迁户编号为非空值“，”未安置“表示拆迁户编号为空值”，具体语句如下，如何添加这个条件查询的语句？

Private Sub Command18_Click()
On Error GoTo Err_Command18_Click

    Dim strWhere As String  '定义条件字符串
   
    strWhere = "" '设定初始值－空字符串
     
    '判断【小区名称】条件是否有输入的值
    If Not IsNull(Me.小区名称) Then
        '有输入
        strWhere = strWhere & "([小区名称] like '" & Me.小区名称 & "') AND "
    End If

     '判断【幢号】条件是否有输入的值
    If Not IsNull(Me.幢号) Then
        '有输入
        strWhere = strWhere & "([幢号] like '" & Me.幢号 & "') AND "
    End If
   
     '判断【门牌号】条件是否有输入的值
    If Not IsNull(Me.门牌号) Then
        '有输入
        strWhere = strWhere & "([门牌号] like '" & Me.门牌号 & "') AND "
    End If
   
     '判断【室号】条件是否有输入的值
    If Not IsNull(Me.室号) Then
        '有输入
        strWhere = strWhere & "([室号] like '" & Me.室号 & "') AND "
    End If
   
     '判断【套型档次】条件是否有输入的值
    If Not IsNull(Me.套型档次) Then
        '有输入
        strWhere = strWhere & "([套型档次] like '" & Me.套型档次 & "') AND "
    End If

    '判断【村名】条件是否有输入的值
    If Not IsNull(Me.村名) Then
        '有输入
        strWhere = strWhere & "([村名] like '" & Me.村名 & "') AND "
    End If

    '判断【拆迁户编号】条件是否有输入的值
    If Not IsNull(Me.拆迁户编号) Then
        '有输入
        strWhere = strWhere & "([拆迁户编号] like '" & Me.拆迁户编号 & "') AND "
    End If
   
     '判断【拆迁户姓名】条件是否有输入的值
    If Not IsNull(Me.拆迁户姓名) Then
        '有输入
        strWhere = strWhere & "([拆迁户姓名] like '*" & Me.拆迁户姓名 & "*') AND "
    End If
      
     '如果输入了条件，那么strWhere的最后肯定有" AND "，这是我们不需要的，
    '要用LEFT函数截掉这5个字符。
    If Len(strWhere) > 0 Then
        '有输入条件
        strWhere = Left(strWhere, Len(strWhere) - 5)
    End If
  
        '先在立即窗口显示一下strWhere的值，代码调试完成后可以取消下一句
    Debug.Print strWhere
   
    '让子窗体应用窗体查询
    Me.安置房信息查询子窗体.Form.Filter = strWhere
    Me.安置房信息查询子窗体.Form.FilterOn = True
 

Exit_Command18_Click:
    Exit Sub

Err_Command18_Click:
    MsgBox Err.Description
    Resume Exit_Command18_Click
   
End Sub