bangnguyencong > 21-04-12, 09:41 PM
haquocquan > 22-04-12, 12:06 AM
Dim Dbs As Database
Set Dbs = OpenDatabase("C:\BACK\DB.MDB")
Dim rsThamso As Recordset
Set rsThamso = Dbs.OpenRecordset("tblThamso")
rsThamso.AddNew
rsThamso!dp = Forms!NHAP!txtDP
rsThamso!maTINH = Forms!NHAP!txtmatinh
rsThamso!TINH = Forms!NHAP!txtTinh
rsThamso!diachi = Forms!NHAP!txtDIACHI
rsThamso.Update
rsThamso.Close
Set rsThamso = Nothing
Dbs.Close
Set Dbs = Nothing
bangnguyencong > 22-04-12, 11:41 AM