thu tuc dem so bang ghi cua bang "dshs" , xoa cac bang ghi "dshs2" , sao chep cac bang "dshs" sag bang"dshs2"

Sub dem_copy_bang()

Dim db As Database, rec1 As Recordset , rec2 As Recordset, n%,m%

Set db=CurrentDb()

Set rec1= db.OpenRecordset("dshs")

Set rec2=db.OpenRecordset("dshs2")

n =recl.RecordCount 'dem so ban ghi

MsgBox "tong so ban ghi ="+ Str(n)

' xoa cac ban ghi cua "dshs2"

Do Until rec2.EOF

rec2.Delete

rec2.MoveNext

Loop

MsgBox"da xoa xong"

' sao chep cac ban ghi

Do While Not rec1.EOF

rec2.AllNew

m= rec1.Fields.Count ' dem so truong

For i=0 To m-1

rec2.Fields(i).Value=rec1.Fields(i).Value

Next i

rec2.Update

rec1.MoveNext

Loop

rec1.Close

rec2.Close

Msgbox" da sao chep xong"

EndSub