【求助】菜鸟遇到查询按钮的问题

yangruihao

要实现图片上的效果。供应商那个combo 实现拼音查询，这个我自己弄好了。主要是那个“查询”按钮，我写了一个下午的代码都搞不定。在论坛上找了一些代码去改也不行。老是不停的错误错误错误。

本人新手一个，access的初学者，继续各位大虾的帮助啊。跪求帮助。

鱼儿游游

以下代码已测试通过，供楼主参考。

1. Private Sub Command21_Click()
   
2.     Dim strSQL   As String
   
3.     Dim intYear  As Integer
   
4.     Dim intMonth As Integer
   
5.     '年、月
   
6.     intYear = Val(Trim(Nz(Me.Combo13.Column(0), "")))
   
7.     intMonth = Val(Trim(Nz(Me.Combo19.Value, "")))
   
8.     '生成SQL语句
   
9.     strSQL = "SELECT * FROM 表1"
   
10.     strSQL = strSQL & " WHERE  供应商 like '*" & Trim(Nz(Me.Combo0.Value, "")) & "*' "
    
11.     If intYear > 0 Then strSQL = strSQL & " AND Val(DatePart('yyyy',[日期]))=" & intYear
    
12.     If intMonth > 0 Then strSQL = strSQL & " AND Val(DatePart('m',[日期]))=" & intMonth
    
13.     '设置子窗体“表1 子窗体”的数据源
    
14.     Me.Controls("表1 子窗体").Form.RecordSource = strSQL
    
15.     Me.Controls("表1 子窗体").Form.Requery
    
16. End Sub
    

复制代码

yangruihao

鱼儿游游 发表于 2012-8-6 18:17
以下代码已测试通过，供楼主参考。

谢谢。。研究了你的代码，帮助很大，谢谢啊。太感谢你了