[求助]那位好心人帮我改下程序,谢谢!

cenqd

就只有一个表,一个窗体,我想在窗体中输入发货日期,然后点查找,窗体中的数据就跳到该日期的第一笔记录．

文本的数据类型我可以做到这样，但是日期型的数据就出错，提示数据类型不匹配，谁帮我改改好吗？

一点通

请参考一下这些例子

http://www.office-cn.net/forum.php?mod=viewthread&tid=9226

cenqd

这个例子以前我也下过,可能自己太菜,感觉还是和我的情况有点不同,哭.

谁花少许时间帮我改下好吗?谢谢了.

高手是一点就通..我是菜鸟,怎么点怎么不通,请不要见怪.

lanchong

Private Sub find1_Click()
Dim rst As DAO.Recordset
    Set rst = Me.Recordset
    rst.FindFirst "发货日期= #" & Format(Me.Text52, "yyyy-mm-dd") & "#"
    If rst.NoMatch Then MsgBox "记录未找到!"
End Sub

cenqd

以下是引用cenqd在2006-6-30 21:21:00的发言：


这个例子以前我也下过,可能自己太菜,感觉还是和我的情况有点不同,哭.

谁花少许时间帮我改下好吗?谢谢了.

高手是一点就通..我是菜鸟,怎么点怎么不通,请不要见怪.

谢谢你,OK啦....