标题: 查询命令按扭加代码后为窗体就打不开－－跪求指点 [打印本页] 作者: ai9527 时间: 2009-10-6 00:00 标题: 查询命令按扭加代码后为窗体就打不开－－跪求指点 各位老师，小弟先谢谢各位了，我都搞了半月之久了，也没有搞好，我是一个新手，在网上下了个主控模板，然后加了些自己要的内容。在入库表查询窗体中，我写好了查询条件，现在打开入库表窗体后只有那两个命令按扭没有设代码，我写入代码后在设计下运行正常，关了数据库在打开，就不好用了。我请有时间的老师帮我把那入库表窗休中两个按扭的代码写好，关了在打开些数据库也好用就行了，别的不用动。如果是有沈阳市内的老师就留下电话，我请吃饭（人格保证，只为感谢），谢谢老师！！作者: Henry D. Sy 时间: 2009-10-6 09:58
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 时间: 2009-10-6 10:16
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 时间: 2009-10-6 10:17
Private Sub cmd导出表格_Click()
Dim qdf As DAO.QueryDef
Dim sSQL As String
If Len(sWhere) <> 0 Then
sSQL = "SELECT [入库表 查询].* FROM [入库表 查询] Where " & sWhere