Private Sub ExpCmd_Click()
UpdtQry = "UPDATE tb1 INNER JOIN tb2 ON tb1.ID = tb2.ID SET tb2.ID = [tb1]![ID], tb2.NameEmp = [tb1]![NameEmp], tb2.DeprtEmp = [tb1]![DeprtEmp];"
datOld = CurrentProject.Path & "\db1.accdb"
TblDel = "Drop table tb1;"
DoCmd.TransferDatabase acLink, "Microsoft Access", datOld, acTable, "tb1", "tb1"
DoCmd.RunSQL UpdtQry
DoCmd.RunSQL TblDel
MsgBox "ÊÜÜã ÈÍãÏ Çááå"
End Sub
استيراد بيانات جدول.rar