ارجو المساعدة في تعديل الكود لربطه مع ال sql بدل الاكسس

[parast]

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

تم تعديل أبريل 10, 2017 بواسطه parast