联合查询中如何增加自动编号

在这网站上看到过(我也用过)具体地址忘了.只好把代码发给你了.

SerializeADO("按部门输入","ID",[ID]) AS 序号

Function SerializeAdo(qryname As String, KeyName As String, KeyValue) As Long
 On Error GoTo Err_Serialize
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
     rs.ActiveConnection = CurrentProject.Connection
     rs.Open qryname, , adOpenStatic, adLockReadOnly, adCmdTableDirect
     'Find the current record with key value
         Select Case rs.Fields(KeyName).Type
            ' Find data type key value
            Case DB_INTEGER, DB_LONG, DB_CURRENCY, DB_SINGLE, DB_DOUBLE, DB_BYTE
               rs.Find "[" & KeyName & "] = " & KeyValue
            ' Find date type key value
            Case DB_DATE
               rs.Find "[" & KeyName & "] = #" & KeyValue & "#"
            ' Find text type key value
            Case DB_TEXT
               rs.Find "[" & KeyName & "] = '" & KeyValue & "'"
            Case Else
               MsgBox "Errer ;   Invalid KeyName or KeyValue  "
         End Select

        SerializeAdo = Nz(rs.AbsolutePosition, 0)
        rs.Close
        Set rs = Nothing
       Exit Function
Err_Serialize:
         MsgBox "QueryName ", 64, " is wrong "
        Exit Function
End Function