查询命令按扭加代码后为窗体就打不开－－跪求指点

ai9527

各位老师，小弟先谢谢各位了，我都搞了半月之久了，也没有搞好，我是一个新手，在网上下了个主控模板，然后加了些自己要的内容。在入库表查询窗体中，我写好了查询条件，现在打开入库表窗体后只有那两个命令按扭没有设代码，我写入代码后在设计下运行正常，关了数据库在打开，就不好用了。我请有时间的老师帮我把那入库表窗休中两个按扭的代码写好，关了在打开些数据库也好用就行了，别的不用动。如果是有沈阳市内的老师就留下电话，我请吃饭（人格保证，只为感谢），谢谢老师！！

Henry D. Sy

Dim sWhere As String

Private Sub cmd查询_Click()
    sWhere = ""
    If Not IsNull(Me.工具编号) Then
        sWhere = sWhere & "工具编号 Like '*" & Me.工具编号 & "*' And "
    End If
    If Not IsNull(Me.入库编号) Then
        sWhere = sWhere & "入库编号 Like '*" & Me.入库编号 & "*' And "
    End If
    If Not IsNull(Me.入库开始日期) Then
        sWhere = sWhere & "入库日期>=#" & Me.入库开始日期 & "# And "
    End If
    If Not IsNull(Me.入库结束日期) Then
        sWhere = sWhere & "入库日期<=#" & Me.入库结束日期 & "# And "
    End If
    If Len(sWhere) <> 0 Then
        sWhere = Left(sWhere, Len(sWhere) - 5)
    End If
    Me.入库表_查询_子窗体.Form.Filter = sWhere
    Me.入库表_查询_子窗体.Form.FilterOn = True
End Sub

Henry D. Sy

Private Sub cmd导出表格_Click()    Dim qdf As DAO.QueryDef    Dim sSQL As String    If Len(sWhere) <> 0 Then        sSQL = "SELECT [入库表 查询].* FROM [入库表 查询] Where " & sWhere    Else        sSQL = "SELECT [入库表 查询].* FROM [入库表 查询]"    End If    Set qdf = CurrentDb.QueryDefs("Q")    qdf.SQL = sSQL    qdf.Close    Set qdf = Nothing    DoCmd.OutputTo acOutputQuery, "Q", acFormatIIS, , TrueEnd SubPrivate Sub cmd清除_Click()    Dim ctl As Control    For Each ctl In Me.Controls        If TypeOf ctl Is TextBox Then            ctl = Null        End If    Next    sWhere = ""    Me.入库表_查询_子窗体.Form.FilterOn = FalseEnd Sub

Henry D. Sy

1. Private Sub cmd导出表格_Click()
   
2.     Dim qdf As DAO.QueryDef
   
3.     Dim sSQL As String
   
4.     If Len(sWhere) <> 0 Then
   
5.         sSQL = "SELECT [入库表 查询].* FROM [入库表 查询] Where " & sWhere
   
6.     Else
   
7.         sSQL = "SELECT [入库表 查询].* FROM [入库表 查询]"
   
8.     End If
   
9.     Set qdf = CurrentDb.QueryDefs("Q")
   
10.     qdf.SQL = sSQL
    
11.     qdf.Close
    
12.     Set qdf = Nothing
    
13.     DoCmd.OutputTo acOutputQuery, "Q", acFormatIIS, , True
    
14. End Sub
    
15. 
    
16. Private Sub cmd清除_Click()
    
17.     Dim ctl As Control
    
18.     For Each ctl In Me.Controls
    
19.         If TypeOf ctl Is TextBox Then
    
20.             ctl = Null
    
21.         End If
    
22.     Next
    
23.     sWhere = ""
    
24.     Me.入库表_查询_子窗体.Form.FilterOn = False
    
25. End Sub
    

复制代码

ai9527

谢谢版主！衷心感谢！如果我能帮助的我尽会努力

ai9527

我自己做的找不到模块，做的时候在设计视图或对像视图试验都能通过，就是关了ACCESS，再打开窗体时就提未模块未找到

ai9527

我把这个内ACCESS内容再次传上来，请您有时间帮我搞搞，您帮我做的入库表查存是好用的，我之后又做了两个查询窗体，我把命令上，试验好用，关了在开就不行提示内容如附件中的图：

ai9527

请有时间的老师帮我一下，谢谢！如果能告诉我为什么出现模块未找到也可以，我就可以自己把代码加在里面去了，谢谢

fnsmydyang

有时会出现一些莫名其妙的错误提示，先压缩一下试试，不行的话再通过调试找出错误问题点.

ai9527

各位老师好，问题解决，我重新安装了ACCESS，一切正常，非常感谢大家的热心帮助