[求助]如何修改代码使之可以实现查询3-1到3-15期间的客户

jextang

我有一数据库，字段“投保人生日”里放置格式为“1990-03-15”的日期；

我在窗体里设置了2个空的文本框分别为：“生日开始”和“生日截止”，通过在这2个空的文本框里输入相应的日期即可在子窗体里显示出符合条件的客户生日字段，我写的代码如下：

    If Not IsNull(Me.生日开始) Then
        strWhere = strWhere & "([投保人生日] >= #" & Format(Me.生日开始, "yyyy-mm-dd") & "#) AND "
    End If
    If Not IsNull(Me.生日截止) Then
        strWhere = strWhere & "([投保人生日] <= #" & Format(Me.生日截止, "yyyy-mm-dd") & "#) AND "
    End If

（1）可以成功实现通过输入完整年月日的查询，例如1980-3-1到1980-3-15期间段的客户；

（2）但是现在我想忽略年份而只想查询月日期间段的数据，例如我想查询3-1到3-15的客户，请问如何修改代码？

谢谢！ 

[此贴子已经被作者于2007-3-10 17:59:38编辑过]

jextang

我在这里提问的次数很多，可是发现access里远没有excel里的大师们热情！

是不是现在接触access的人比较少啊？

jextang

是没人来看呢？还是不懂修改啊？

zhengjialon

用FORMAT函数把你的日期都格式化成MM-DD的格式再进行筛选既可.

sgrshh29

大致如此修改即可：

If Not IsNull(Me.生日开始) Then
   strWhere = strWhere & "Format(投保人生日, 'mm-dd')" & ">='" & Me.生日开始 & "' AND "
End If
If Not IsNull(Me.生日截止) Then
   strWhere = strWhere & "Format(投保人生日, 'mm-dd')" & "<='" & Me.生日截止 & "' AND "
End If

这时，二个条件文本框输入形式为“mm-dd",不要输成"3-15","10-3"，要"03-15","10-03".

jextang

太感谢sgrshh29了，小弟还有一事相问：请问如何编写批量删除数据的代码？

也就是说我只要选择需要批量导入的数据，就能以保单号为匹配批量删除掉原有数据库里对应保单号的数据！