在ACCESS代碼中寫查詢語句不能運行

ruizhang

我在ACCESS的代碼中寫了一個簡單的查詢語句，如下：sql=“select * from test ”  DoCmd.RunSQL sql
不能運行。
然后我寫sql=“select * into test2 from test ”  DoCmd.RunSQL sql 就能運行成功。
為什么查詢語句不能運行呢？
本人做了一個窗體，想在代碼中寫查詢語句，在查詢語句中有日期變量，想直接從窗體的單元格中直接讀取變量。
但是代碼又不能運行查詢語句，請大家支招。謝謝！

roych

RunSQL只針對操作查詢。應(yīng)該新建一個查詢，然后通過指定SQL來修改：

1. Function GetSQL()
   
2. Dim Swhr As String, ssql As String
   
3. Swhr = "True"
   
4. '條件1
   
5. If Not IsNull(Me.Emp_ID) Then
   
6.     Swhr = Swhr & " And Emp_ID like '*" & Me.Emp_ID & "*'"
   
7. End If
   
8. '條件2
   
9. '可增加條件3、條件4……條件N。
   
10. If Not IsNull(Me.C_Name) Then
    
11.     Swhr = Swhr & " And C_Name like '*" & Me.C_Name & "*'"
    
12. End If
    
13. '日期條件
    
14. ssql = Swhr & " And ResignDate Between #" & Me.SDate & "# And #" & Me.EDate & "#"
    
15. '獲取SQL語句。
    
16. GetSQL = "select * from Tbl_Employ_Resign Where " & Right(ssql, Len(ssql) - 9)
    
17. End Function
    
18. '****************************************************************************************************
    
19. '更新查詢的SQL語句，并更新子窗體的源對象。
    
20. '在按鈕單擊事件或者窗體加載事件上直接調(diào)用即可。
    
21. '如：
    
22. 'Private Sub CmdQuery_Click()
    
23. 'OpenQry
    
24. 'End Sub
    
25. '*****************************************************************************************************
    
26. Sub OpenQry()
    
27. '子窗體查詢?yōu)橐呀�立的查詢�?br />
28. CurrentDb.QueryDefs("子窗體查詢").SQL = GetSQL()
    
29. Me.子窗體.SourceObject = "子窗體查詢"
    
30. End Sub
    

復(fù)制代碼

top_sf

DoCmd不能用來執(zhí)行返回結(jié)果集吧