如何根据查询结果生成报表编号?

apple_a1

如何生成这样的报表编号？报表编号的组成：yyyymmdd＋三位顺序号。
要求通过查询后的结果生成编号，同一次查询得到的编号相同，不同次的查询编号不一致．如：2009年1月13日第一次查询并生成报表时，报表的编号为：20090113001，第二次查询并生成时，报表的编号为：200901130002，……；如果在2009年1月14日第一次查询并生成报表时，报表的编号为：20090114001，第二次查询并生成时，报表的编号为：200901140002，……

Henry D. Sy

什么意思，不懂。

apple_a1

按照窗体1的名称在子窗体中查到相同的名称后,查询结果生成一个报表编号.
如:今天第一次 通过查询得到名称为a的所有数据，那么在“报表编号”中填入20090113001（有多少条数据写入多少条）

Henry D. Sy

假设第一次查询到a，第二次查询到a和b，那么这么办
第二天（明天）继续查询怎么处理。

apple_a1

在表中有个字段“是否生成报表”，如果已经为true的话，那么证明已经输出到报表，将不作处理。
或者能否通过判断，判断“报表编号”是否为空，则处理；反之，不作处理。

能够这样做吗？

Henry D. Sy

Private Sub Command5_Click()
    On Error GoTo Err_Command5_Click

    Dim bh As String
    Dim strWhere As String  '定义条件字符串
    Dim strSQL As String

    strWhere = ""    '设定初始值－空字符串

    If Not IsNull(Me.Combo6) Then
        '有输入
        strWhere = strWhere & "([名称] like '*" & Me.Combo6 & "*') AND "
    End If

    If Len(strWhere) > 0 Then
        '有输入条件
        strWhere = Left(strWhere, Len(strWhere) - 5)
    End If

    bh = Val(Right(Nz(DLookup("报表编号", "表1", "名称='" & Me.Combo6 & "'")), 3)) + 1
    bh = Format(Date, "yyyymmdd") & Format(bh, "000")
    strSQL = "update 表1 set 报表编号='" & bh & "' where 名称 like '*" & Me.Combo6 & "*'"
    CurrentDb.Execute strSQL

    Me.表1.Form.Filter = strWhere
    Me.表1.Form.FilterOn = True

Exit_Command5_Click:
    Exit Sub

Err_Command5_Click:
    MsgBox Err.Description
    Resume Exit_Command5_Click

End Sub

apple_a1

谢谢！
但是二次查询后面的顺序号没有变化，都是001。

Henry D. Sy

原帖由 apple_a1 于 2009-1-13 20:58 发表
谢谢！
但是二次查询后面的顺序号没有变化，都是001。

所谓的第二次指的是什么，是同样的名称查询第二次吗？

apple_a1

不同名称的查询，只要日期相同，得到的是同样的编号。
而且我在第一次查询后，将已经写入编号的那些数据的“是否生成报表”都打勾了。