استيراد جدول من اكسس الى اكسس

[النهر العطشان]

السلام عليكم 

احتاج الى كود يقوم باستيراد جدول من قاعدة بيانات اخرى ليس شرط كل الحقول .

مثال قاعدة البيانات (test1) التي استورد اليها مكونة من جدول يحتوي على اربعة حقول و قاعدة البيانات (test2) المراد استيراد البيانات منها ستة حقول ,

فليس بالضرورة ان استورد جميع الحقول .

فيكون الكود محدد بالحقول المراد استيرادها حسب اسم الحقل المراد استيراد بياناته .

وشكرا

 

استيراد حقول محددة من قاعدة بيانات اكسس.rar

[النهر العطشان]

للرفع

[ابو ياسين المشولي]

منذ ساعه, النهر العطشان said:

للرفع

اتفضل اتمنى يكون كما طلبت

Dim dbOther As DAO.Database
Dim rs1 As DAO.Recordset
Dim dbCurrent As DAO.Database
Dim rs2 As DAO.Recordset
Dim intI As Integer
On Error GoTo ErrorHandler
If IsNull(Me.txtImportFile) Then
MsgBox "عذرا اخي الكريم ... لم تقم بإختيار قاعدة البيانات الخارجية", vbInformation
DoCmd.CancelEvent
Me.txtImportFile.SetFocus
Else
Set dbOther = OpenDatabase(txtImportFile)
Set rs1 = dbOther.OpenRecordset("Table", dbOpenDynaset)
Set dbCurrent = CurrentDb
Set rs2 = dbCurrent.OpenRecordset("Table", dbOpenDynaset)
If rs1.EOF Then Exit Sub
 intI = 1
rs1.MoveFirst
Do While Not rs1.EOF
With rs2
.AddNew
!Name = rs1![Name]
!Id = rs1![Id]
!tel = rs1![tel]
!country = rs1![country]
.Update
rs1.MoveNext
intI = intI + 1
End With
Loop
MsgBox "تم تحديث بيانات جداول القاعدة الخارجية بنجاح", vbInformation
End If
rs1.Close
Set dbOther = Nothing
rs2.Close
Set dbCurrent = Nothing
Exit Sub

ErrorHandler:
   MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description

 

[النهر العطشان]

السلام عليكم استاذنا ابو ياسين المشولي المحترم

كود رائع من استاذ رائع .... كود جعلني ابتسم من اعجابي به .

استاذي الفاضل والمتفضل علينا هنالك امرين بسيطتين وهي عند الضغط على زر الاستيراد بدون تحديد قاعدة البيانات تظهر رسالتين الاولى رائعة تبلغنا اننا لم نحدد قاعدة بيانات خارجية  والثانية  كيف يمكننا التخلص منها .

والامر الثاني من فضلك عند تحديد قاعدة بيانات واستيرادها احتاج الى رسالة تحدد عدد السجلات المستوردة .

وشكرا

[ابو ياسين المشولي]

منذ ساعه, النهر العطشان said:

السلام عليكم استاذنا ابو ياسين المشولي المحترم

كود رائع من استاذ رائع .... كود جعلني ابتسم من اعجابي به .

استاذي الفاضل والمتفضل علينا هنالك امرين بسيطتين وهي عند الضغط على زر الاستيراد بدون تحديد قاعدة البيانات تظهر رسالتين الاولى رائعة تبلغنا اننا لم نحدد قاعدة بيانات خارجية  والثانية  كيف يمكننا التخلص منها .

والامر الثاني من فضلك عند تحديد قاعدة بيانات واستيرادها احتاج الى رسالة تحدد عدد السجلات المستوردة .

وشكرا

اتفضل هذا حسب طلبك

Dim dbOther As DAO.Database
Dim rs1 As DAO.Recordset
Dim dbCurrent As DAO.Database
Dim rs2 As DAO.Recordset
Dim intI As Integer
On Error GoTo ErrorHandler
If IsNull(Me.txtImportFile) Then
MsgBox "عذرا اخي الكريم ... لم تقم بإختيار قاعدة البيانات الخارجية", vbInformation, "تبيه"
DoCmd.CancelEvent
Me.txtImportFile.SetFocus
Else
Set dbOther = OpenDatabase(txtImportFile)
Set rs1 = dbOther.OpenRecordset("Table", dbOpenDynaset)
Set dbCurrent = CurrentDb
Set rs2 = dbCurrent.OpenRecordset("Table", dbOpenDynaset)
If rs1.EOF Then Exit Sub
 intI = 1
rs1.MoveFirst
Do While Not rs1.EOF
With rs2
.AddNew
!Name = rs1![Name]
!Id = rs1![Id]
!tel = rs1![tel]
!country = rs1![country]
.Update
rs1.MoveNext
intI = intI + 1
End With
Loop
MsgBox (" تم نقل " & intI - 1 & " سجل "), vbInformation, "تبيه"
MsgBox "تم تحديث بيانات جداول القاعدة الخارجية بنجاح", vbInformation, "تبيه"
End If
rs1.Close
Set dbOther = Nothing
rs2.Close
Set dbCurrent = Nothing
Exit Sub

ErrorHandler:
'   MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description

 

تم تعديل أكتوبر 15, 2018 بواسطه ابو ياسين المشولي

[النهر العطشان]

شكرا استاذ ابو ياسين المشولي المحترم جعلها الله في ميزان حسناتك ورفعك درجه فوق درجتك

وهو المطلوب

 

[ابو ياسين المشولي]

17 دقائق مضت, النهر العطشان said:

شكرا استاذ ابو ياسين المشولي المحترم جعلها الله في ميزان حسناتك ورفعك درجه فوق درجتك

وهو المطلوب

 

بالتوفيق اخي النهر العطشان