如何根據(jù)查詢結果生成報表編號?

apple_a1

如何生成這樣的報表編號？報表編號的組成：yyyymmdd＋三位順序號。
要求通過查詢后的結果生成編號，同一次查詢得到的編號相同，不同次的查詢編號不一致．如：2009年1月13日第一次查詢并生成報表時，報表的編號為：20090113001，第二次查詢并生成時，報表的編號為：200901130002，……；如果在2009年1月14日第一次查詢并生成報表時，報表的編號為：20090114001，第二次查詢并生成時，報表的編號為：200901140002，……

Henry D. Sy

什么意思，不懂。

apple_a1

按照窗體1的名稱在子窗體中查到相同的名稱后,查詢結果生成一個報表編號.
如:今天第一次 通過查詢得到名稱為a的所有數(shù)據(jù)，那么在“報表編號”中填入20090113001（有多少條數(shù)據(jù)寫入多少條）

Henry D. Sy

假設第一次查詢到a，第二次查詢到a和b，那么這么辦
第二天（明天）繼續(xù)查詢怎么處理。

apple_a1

在表中有個字段“是否生成報表”，如果已經(jīng)為true的話，那么證明已經(jīng)輸出到報表，將不作處理。
或者能否通過判斷，判斷“報表編號”是否為空，則處理；反之，不作處理。

能夠這樣做嗎？

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 發(fā)表
謝謝！
但是二次查詢后面的順序號沒有變化，都是001。

所謂的第二次指的是什么，是同樣的名稱查詢第二次嗎？

apple_a1

不同名稱的查詢，只要日期相同，得到的是同樣的編號。
而且我在第一次查詢后，將已經(jīng)寫入編號的那些數(shù)據(jù)的“是否生成報表”都打勾了。