如何拆分列

boy1

查询项目内     “付款日期”，查询不出结果。如何该代码？

Henry D. Sy

不是查不出，而是没有符合条件的，增加60.90天的试试。
（除非你更改过查询语句）

Henry D. Sy

知道哪里错误
更正一下：

1. Private Sub Command12_Click()
   
2.     strWhere = ""
   
3.     If Not IsNull(Me.签约时间开始) Then
   
4.         strWhere = strWhere & "DateDiff('d', Date(), 付款日期) <= " & Me.签约时间开始 & " and DateDiff('d', Date(), 付款日期)>=0 And "
   
5.     End If
   
6.     If Not IsNull(Me.txt日期) Then
   
7.         Select Case Me.Combo9
   
8.         Case "付款日期"
   
9.             strWhere = strWhere & "Format(付款日期, 'yyyy-mm') like '*" & Format(Me.txt日期, "yyyy-mm") & "*' And "
   
10.         Case Else
    
11.             strWhere = strWhere & Me.Combo9 & " like '*" & Me.txt日期 & "*' And "
    
12.         End Select
    
13.     End If
    
14.     If Len(strWhere) <> 0 Then
    
15.         strWhere = Left(strWhere, Len(strWhere) - 5)
    
16.     End If
    
17.        Debug.Print strWhere
    
18.     Me.b子窗体.Form.Filter = strWhere
    
19.     Me.b子窗体.Form.FilterOn = True
    
20. End Sub

复制代码

df

版主的作品好，人更好

boy1

版主请看截图

[ 本帖最后由 boy1 于 2008-12-18 09:27 编辑 ]

Henry D. Sy

你要输入，2008-11  或者  2009-1，记得这是你要求的。

boy1

版主说的是，谢过版主。为什么日期的搜索不能像其他通配符那样，2008-11-09中的任意一部分呢？

明白了，
strWhere = strWhere & "Format(付款日期, 'yyyy-mm') like '*" & Format(Me.txt日期, "yyyy-mm") & "*' And "

第一个为什么是单引号？

[ 本帖最后由 boy1 于 2008-12-18 09:45 编辑 ]

Henry D. Sy

第一个format是作为字符串，第二个是作为变量。

boy1

“报表内容”输出成EXECEL文件如何写代码？先谢过版主

Henry D. Sy

DoCmd.OutputTo acOutputReport, "rptA"
看帮助，
参阅 OutputTo 方法