利用修改表字段的属性使自动编号字段回归起始值。 Function LINENO(FID As String, TABA As String, FRM As Control, frmque As String) '=============================================================== '函数名称： LINENO '功能描述： 在子窗体中自动编号重新归位从1开始 '输入参数： FID 自动编号字段名称 必需的；TABA 绑定数据源表 必需的；FRM 对应子窗体名称 必需的;frmque对应子窗体的源对像 '使用说明： 在绑定窗体中创建一个文本框，然后将控件来源设为：CALL LINENO("A","B",C,"D") 即可。 '=============================================================== Dim TABN As String DoCmd.SetWarnings False TABN = TABA & "1" DoCmd.RunSQL "Delete * FROM " & TABA DoCmd.RunSQL "Select * INTO " & TABN & " FROM " & TABA DoCmd.RunSQL "Alter TABLE " & TABN & " Alter COLUMN " & FID & " COUNTER (1,1)" FRM.SourceObject = "" DoCmd.RunSQL "Drop TABLE " & TABA DoCmd.Rename TABA, acTable, TABN FRM.SourceObject = frmque FRM.Requery DoCmd.SetWarnings True End Function