当执行查询后没有一条记录符合查询条件时的代码错误在哪？

zhuerw

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

将你的数据库放上来好吗,实在是看不清,

zhuerw

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

文件下载

binbow_z

已下载,搞好了给你放上来

binbow_z

还有一个问题，当text2或text3获得焦点时，你的选项按钮组没有改变文件下载

zhuerw

十分谢谢。但
1、使用日期控件后，不会使日期控件产生的日期值与表中的日期值相符。
2、开始日期大于结束日期时不提示
文件下载

binbow_z

我再改改

binbow_z

建议：在写代码之前先查查控件的引用，帮助中有，你的控件让我的感觉是喝了一斤二锅头文件下载

zhuerw

太谢谢了。搞了我几个月，查帮助，查例子，也没有找到。可能是我太笨了。

binbow_z

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

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