Office中国论坛/Access中国论坛

标题: 当执行查询后没有一条记录符合查询条件时的代码错误在哪？ [打印本页]

作者: zhuerw 时间: 2002-7-7 07:45
标题: 当执行查询后没有一条记录符合查询条件时的代码错误在哪？
Private Sub Cmd查找_Click()

Dim strSQL, Rst As String
strSQL = "SELECT tblsw.* FROM tblsw"

      If ([text内容]) <> " " Then
            Rst = "处理结果 like '*" & text内容 & "*'"
            strSQL = strSQL & " WHERE " & Rst
            Form.RecordSource = strSQL
            If Forms!frm查询!处理结果 = "  " Then
               MsgBox "没有找到"
               Me.text内容.SetFocus
            End If
      Else
         MsgBox "你要先输入查询关键字"
         Me.text内容.SetFocus
      End If
End Sub

作者: binbow_z 时间: 2002-7-7 08:04
将你的数据库放上来好吗,实在是看不清,

作者: zhuerw 时间: 2002-7-7 16:50
标题: binbow_z版主，现传上程序

以下是引用binbow_z在2002-7-7 0:03:39的发言：
将你的数据库放上来好吗,实在是看不清,

文件下载

作者: binbow_z 时间: 2002-7-8 04:03
已下载,搞好了给你放上来

作者: binbow_z 时间: 2002-7-8 04:56
标题: 你要的东东
还有一个问题，当text2或text3获得焦点时，你的选项按钮组没有改变文件下载

作者: zhuerw 时间: 2002-7-8 06:21
标题: binbow_z版主，使用了日期控件后出现的问题
十分谢谢。但
1、使用日期控件后，不会使日期控件产生的日期值与表中的日期值相符。
2、开始日期大于结束日期时不提示
文件下载

作者: binbow_z 时间: 2002-7-8 06:54
我再改改

作者: binbow_z 时间: 2002-7-9 07:35
标题: 再改
建议：在写代码之前先查查控件的引用，帮助中有，你的控件让我的感觉是喝了一斤二锅头文件下载

作者: zhuerw 时间: 2002-7-9 16:01
太谢谢了。搞了我几个月，查帮助，查例子，也没有找到。可能是我太笨了。

作者: binbow_z 时间: 2002-7-10 05:59
谁都是这样过来的，我建议你最好学一下有关窗体．子窗体，报表，控件的引用，你的代码在控件引用有很大的问题，说句实在话，刚看的时候，总以为那是个变量

不过，你的代码整体还是很不错的，你是不是学过别的语言

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)