如果设置日期控件DTPicker1的value属性为空?
我设置时提示value属性不能为空...但实际运用时会有空的日期...那要怎么做?
谢谢

问题解决...我在网上找到了方法..
窗体截入时DTPicker1不显示时间
Private Sub Form_Load()
DTPicker1.Format = dtpCustom
DTPicker1.CustomFormat = " "
End Sub

'用户选择时DTPicker1显示时间
Private Sub DTPicker1_Change()
DTPicker1.Format = dtpLongDate
End Sub

'双击清除DTPicker1中显示的时间
Private Sub DTPicker1_DblClick()
DTPicker1.Format = dtpCustom
DTPicker1.CustomFormat = " "
End Sub

请问务位大侠，错在哪里，多谢！
Private Sub selcmd1_Click()
  Dim str As String
  str = ""
  If Trim(Text1.Text) <> "" Then
    If str = "" Then
      str = "姓名='" + Trim(Text1.Text) + "'"
    Else
      str = str + "and 姓名='" + Trim(Text1.Text) + "'"
    End If
  End If
  If Trim(DataCombo1.Text) <> "" Then
    If str = "" Then
      str = "所属系部='" + Trim(DataCombo1.Text) + "'"
    Else
      str = str + "and 所属系部='" + Trim(DataCombo1.Text) + "'"
    End If
  End If
  If Trim(DataCombo2.Text) <> "" Then
    If str = "" Then
      str = "职称='" + Trim(DataCombo2.Text) + "'"
    Else
      str = str + "and 职称='" + Trim(DataCombo2.Text) + "'"
    End If
  End If
  If Trim(DataCombo3.Text) <> "" Then
    If str = "" Then
      str = "课题级别='" + Trim(DataCombo3.Text) + "'"
    Else
      str = str + "and 课题级别='" + Trim(DataCombo3.Text) + "'"
    End If
  End If
  If Trim(Text2.Text) <> "" Then
      If str = "" Then
        str = "课题题目='" + Trim(Text2.Text) + "'"
      Else
        str = str + "and 课题题目='" + Trim(Text2.Text) + "'"
      End If
  End If
  If Trim(DataCombo3.Text) <> "" Then
    If str = "" Then
      str = "奖励级别='" + Trim(DataCombo3.Text) + "'"
    Else
      str = str + "and 奖励级别='" + Trim(DataCombo3.Text) + "'"
    End If
  End If
  If str <> "" Then
    If DTPicker1.Value = DTPicker2.Value Then
      Adodc1.RecordSource = "select * from jiaoyanjiaogaiketi where " + str
      Adodc1.Refresh
    Else
      Adodc1.RecordSource = "select * from jiaoyanjiaogaiketi where " + str + "and 开题时间 between '" & CDate(DTPicker1.Value) & "'and '" & CDate(DTPicker2.Value) & "'"
      Adodc1.Refresh
    End If
  Else
    Adodc1.RecordSource = "select * from jiaoyanjiaogaiketi"
    Adodc1.Refresh
  End If
  recs = Adodc1.Recordset.RecordCount
  If recs = 0 Then
    MsgBox "没有任何满足条件的记录", vbOKOnly, "信息提示"
  End If
  Call encomm
End Sub