清空表全部记录后重置自动编号起始值--另一方法

时　间:2012-05-17 13:53:36
作　者:赵文斌   ID：4506  城市：深圳
摘　要:主要体现在窗体保存数据（在子窗体中利用自动编号字段作为序号索引）
正　文:

利用修改表字段的属性使自动编号字段回归起始值。 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

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店