メモ＞連番を振り直す

'//連番を振り直す
SQL = "UPDATE TWデータ SET TWデータ.連番 = DCount('[連番]','TWデータ','[連番] <=' & [TWデータ]![連番]);"
DoCmd.SetWarnings False
CurrentDb.Execute (SQL)
DoCmd.SetWarnings True