الاستيراد من Ecxel ثم التصدير داخل قاعدة البيانات

[Barna]

3 دقائق مضت, محمود أبوسيف said:

اجابة الاستاذ @Barna لم تظبط معي

ولا اعرف ما الحل

خل لاحظت العبارة التي باللون الاحمر

[محمود أبوسيف]

@mohammed esam 

[Barna]

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

[محمود أبوسيف]

2 دقائق مضت, Barna said:

خل لاحظت العبارة التي باللون الاحمر

يجب ان تتطابق اسماء الحقول المستوردة مع الجدول المصدر له

نعم قمت بذلك ولم تنفع

2 دقائق مضت, Barna said:

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

Net.rar  ملف الاكسيل

المطلوب تصديره إلي جدول student_wezara

[abouelhassan]

1 ساعه مضت, rockjone33 said:

استكمال بانشاء جدول جديد مع كتابة يدرج اسم بالتاريخ مع استيراد ملفات اكسل .. 

1-استيراد باي عدد من الحقول..  و..   و..  و..  »» 

دقة شاشة الويندوز»»1920x1080 HD««

عرض ملف: للاستيراد من اكسل ودراجه في جدول جديد مع الاسم  مع نفس مسميات حقول في ملف الاكسل .. 🙂

للتحميل المرفق 2 rar: 

JJaFFeRR_Import_EX_ Excel ADD FileV1.00.0.part01.rar 800 kB · 5 downloads JJaFFeRR_Import_EX_ Excel ADD FileV1.00.0.part02.rar 597.25 kB · 17 downloads

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

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

بارك الله فيك استاذنا الكريم جدااا rockjone33

احترامى

تم تعديل أكتوبر 29, 2022 بواسطه abouelhassan

[Barna]

46 دقائق مضت, محمود أبوسيف said:

يجب ان تتطابق اسماء الحقول المستوردة مع الجدول المصدر له

نعم قمت بذلك ولم تنفع

المطلوب تصديره إلي جدول student_wezara

لاحظ اخي المشكلة اين ؟؟؟؟ انظر الصورة الاسماء مختلف وليس سوى حقل واحد متشابه

 

[محمود أبوسيف]

12 ساعات مضت, Barna said:

لاحظ اخي المشكلة اين ؟؟؟؟ انظر الصورة الاسماء مختلف وليس سوى حقل واحد متشابه

 

أخي الكريم لقد قمت باتباع الخطوات وتم نجاح الموضوع وشكرًا جزيلاً علي قدمته ولكن ليس هذا  كما أريده فمثلاً

1- يجب ادخال اسماء جميع الحقول الموجودة في جدول tblTemp كما هي بالضبط ولا ينقص من ذلك الحقول شئ حتي f13 , f14 , f15 لابد من كتابتها في حالة كان عدد الحقول ناقص في الجدول المصدر له

2- في حالة الضغط علي زر تصدير مرة أخري بعد نجاح التصدير تظهر رسالة خطأ 

[Barna]

40 دقائق مضت, محمود أبوسيف said:

أخي الكريم لقد قمت باتباع الخطوات وتم نجاح الموضوع وشكرًا جزيلاً علي قدمته ولكن ليس هذا  كما أريده فمثلاً

1- يجب ادخال اسماء جميع الحقول الموجودة في جدول tblTemp كما هي بالضبط ولا ينقص من ذلك الحقول شئ حتي f13 , f14 , f15 لابد من كتابتها في حالة كان عدد الحقول ناقص في الجدول المصدر له

2- في حالة الضغط علي زر تصدير مرة أخري بعد نجاح التصدير تظهر رسالة خطأ 

في جدولك مفتاح لا يتكرر ... فلذلك تظهر معك الرسالة بعدم التكرار

[محمود أبوسيف]

12 دقائق مضت, Barna said:

في جدولك مفتاح لا يتكرر ... فلذلك تظهر معك الرسالة بعدم التكرار

أنا لا أريد التكرار أنا أريد عند الضغط علي مفتاح التصدير يحذف السجلات الموجودة (السابقة) ويقوم بتصدير الجديد حتي وإن تكرر الضغط أكثر من مرة

[Barna]

9 ساعات مضت, محمود أبوسيف said:

أنا لا أريد التكرار أنا أريد عند الضغط علي مفتاح التصدير يحذف السجلات الموجودة (السابقة) ويقوم بتصدير الجديد حتي وإن تكرر الضغط أكثر من مرة

طيب ايش النسخة التي تعمل عليها ..... هل هي اخر نسخة انا ارفقتها ؟؟؟؟؟

حتى نعدل عليها .....

[Barna]

على كل حال استبدل الكود الموجود في الزر بهذا .....................................

Call GetWaiting("Please wait ... data is processing")
On Error Resume Next
Dim db As DAO.Database
Dim rstFrom As Recordset
Dim rstTo As Recordset
Set db = CurrentDb()
Dim RC, i, r, rr As Integer
Set rstTo = db.OpenRecordset(Me.Combo15, dbOpenDynaset)
Set rstFrom = db.OpenRecordset("tblTemp", dbOpenDynaset)
CurrentDb.Execute ("Delete * From tblTemp")
rstFrom.MoveFirst: rstFrom.MoveLast
RC = rstFrom.RecordCount
rstFrom.MoveFirst

  For i = 1 To RC
    rstTo.AddNew
    For r = 0 To rstFrom.Fields.Count - 1
For rr = 0 To rstTo.Fields.Count - 1
If rstFrom.Fields(r).name = rstTo.Fields(rr).Properties("Caption") Or rstFrom.Fields(r).name = rstTo.Fields(rr).name Then
         rstTo.Fields(rr) = rstFrom.Fields(r)
End If
    Next rr
    Next r
     rstTo.Update
rstFrom.MoveNext
r = 0
rr = 0
  Next i
DoCmd.Close acForm, "frmWaiting"
rstTo.Close
rstFrom.Close
Set rstTo = Nothing
Set rstFrom = Nothing
Set db = Nothing

 

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

[محمود أبوسيف]

في 30‏/10‏/2022 at 19:20, Barna said:

على كل حال استبدل الكود الموجود في الزر بهذا .....................................

Call GetWaiting("Please wait ... data is processing")
On Error Resume Next
Dim db As DAO.Database
Dim rstFrom As Recordset
Dim rstTo As Recordset
Set db = CurrentDb()
Dim RC, i, r, rr As Integer
Set rstTo = db.OpenRecordset(Me.Combo15, dbOpenDynaset)
Set rstFrom = db.OpenRecordset("tblTemp", dbOpenDynaset)
CurrentDb.Execute ("Delete * From tblTemp")
rstFrom.MoveFirst: rstFrom.MoveLast
RC = rstFrom.RecordCount
rstFrom.MoveFirst

  For i = 1 To RC
    rstTo.AddNew
    For r = 0 To rstFrom.Fields.Count - 1
For rr = 0 To rstTo.Fields.Count - 1
If rstFrom.Fields(r).name = rstTo.Fields(rr).Properties("Caption") Or rstFrom.Fields(r).name = rstTo.Fields(rr).name Then
         rstTo.Fields(rr) = rstFrom.Fields(r)
End If
    Next rr
    Next r
     rstTo.Update
rstFrom.MoveNext
r = 0
rr = 0
  Next i
DoCmd.Close acForm, "frmWaiting"
rstTo.Close
rstFrom.Close
Set rstTo = Nothing
Set rstFrom = Nothing
Set db = Nothing

 

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

معذرة أخي الكريم يبدو أن الكود به خطأ لأنه يقوم بحذف البيانات من جدول tblTemp وليس من الجدول الذي سوف يتم اختياره من combo 15 بالاضافة أنه لا يقوم بتصدير أي بيانات إلي الجدول المراد التصدير اليه ويقوم بإنشاء جدول تلقائي عن الخطأ الذي تم Sheet1$_ImportErrors ... سوف أرفق لك sheet  للإستيراد منه

Net.rar

CurrentDb.Execute ("Delete * From tblTemp")

[Barna]

منذ ساعه, محمود أبوسيف said:

معذرة أخي الكريم يبدو أن الكود به خطأ لأنه يقوم بحذف البيانات من جدول tblTemp وليس من الجدول الذي سوف يتم اختياره من combo 15 بالاضافة أنه لا يقوم بتصدير أي بيانات إلي الجدول المراد التصدير اليه ويقوم بإنشاء جدول تلقائي عن الخطأ الذي تم Sheet1$_ImportErrors ... سوف أرفق لك sheet  للإستيراد منه

CurrentDb.Execute ("Delete * From tblTemp")

كلامة صحيح .... جرب الكود هذا الان .......................

Call GetWaiting("Please wait ... data is processing")
On Error Resume Next
Dim db As DAO.Database
Dim rstFrom As Recordset
Dim rstTo As Recordset
Set db = CurrentDb()
Dim RC, i, r, rr As Integer
Set rstTo = db.OpenRecordset(Me.Combo15, dbOpenDynaset)
Set rstFrom = db.OpenRecordset("tblTemp", dbOpenDynaset)
CurrentDb.Execute ("Delete * From Me.Combo15")
rstFrom.MoveFirst: rstFrom.MoveLast
RC = rstFrom.RecordCount
rstFrom.MoveFirst

  For i = 1 To RC
    rstTo.AddNew
    For r = 0 To rstFrom.Fields.Count - 1
For rr = 0 To rstTo.Fields.Count - 1
If rstFrom.Fields(r).name = rstTo.Fields(rr).Properties("Caption") Or rstFrom.Fields(r).name = rstTo.Fields(rr).name Then
         rstTo.Fields(rr) = rstFrom.Fields(r)
End If
    Next rr
    Next r
     rstTo.Update
rstFrom.MoveNext
r = 0
rr = 0
  Next i
DoCmd.Close acForm, "frmWaiting"
rstTo.Close
rstFrom.Close
Set rstTo = Nothing
Set rstFrom = Nothing
Set db = Nothing

 

[محمود أبوسيف]

4 دقائق مضت, Barna said:

Call GetWaiting("Please wait ... data is processing")
On Error Resume Next
Dim db As DAO.Database
Dim rstFrom As Recordset
Dim rstTo As Recordset
Set db = CurrentDb()
Dim RC, i, r, rr As Integer
Set rstTo = db.OpenRecordset(Me.Combo15, dbOpenDynaset)
Set rstFrom = db.OpenRecordset("tblTemp", dbOpenDynaset)
CurrentDb.Execute ("Delete * From Me.Combo15")
rstFrom.MoveFirst: rstFrom.MoveLast
RC = rstFrom.RecordCount
rstFrom.MoveFirst

  For i = 1 To RC
    rstTo.AddNew
    For r = 0 To rstFrom.Fields.Count - 1
For rr = 0 To rstTo.Fields.Count - 1
If rstFrom.Fields(r).name = rstTo.Fields(rr).Properties("Caption") Or rstFrom.Fields(r).name = rstTo.Fields(rr).name Then
         rstTo.Fields(rr) = rstFrom.Fields(r)
End If
    Next rr
    Next r
     rstTo.Update
rstFrom.MoveNext
r = 0
rr = 0
  Next i
DoCmd.Close acForm, "frmWaiting"
rstTo.Close
rstFrom.Close
Set rstTo = Nothing
Set rstFrom = Nothing
Set db = Nothing

أخي الفاضل الكود يقوم بتصدير سجل واحد فقط

[Barna]

8 دقائق مضت, محمود أبوسيف said:

أخي الفاضل الكود يقوم بتصدير سجل واحد فقط

اخي الكريم الكود شغال لدي .... انظر 

 

[محمود أبوسيف]

10 دقائق مضت, Barna said:

اخي الكريم الكود شغال لدي .... انظر 

 

من فضلك ممكن ارفاق آخر ملف قمت بتعديله للعمل عليه

[Barna]

تفضل المرفق الذي لدي جرب عليه ولما نشوف ........................

 

Import Frome Excel File.rar

[محمود أبوسيف]

7 دقائق مضت, Barna said:

تفضل المرفق الذي لدي جرب عليه ولما نشوف ........................

 

Import Frome Excel File.rar 186.14 kB · 0 downloads

الكود يعمل بشكل جيد ولكن الحقل الأول Select لم يتم تصدير البيانات اليه .. من فضلك الق نظره

[Barna]

2 دقائق مضت, محمود أبوسيف said:

الكود يعمل بشكل جيد ولكن الحقل الأول Select لم يتم تصدير البيانات اليه .. من فضلك الق نظره

لأن تكوين جدولك غير صحيح ..... ليش ...... لأنك استخدمت اكثر من عبارة محجوزة للاكسس من ضمنها Select و Code لكن في حالة ال Code فيها تسمية توضيحية 

[محمود أبوسيف]

26 دقائق مضت, Barna said:

لأن تكوين جدولك غير صحيح ..... ليش ...... لأنك استخدمت اكثر من عبارة محجوزة للاكسس من ضمنها Select و Code لكن في حالة ال Code فيها تسمية توضيحية 

لقد قمت بإعادة تسمية جميع الحقول في ملف الاكسيل وفي الجدول لتصبح متطابقة تمامًا وإزالة جميع العبارات المحجوزة للأكسس وقد كلل أمر بالنجاح . فلك كل الشكر علي ماقدمته.

تم تعديل أكتوبر 31, 2022 بواسطه محمود أبوسيف

[محمود أبوسيف]

في 31‏/10‏/2022 at 23:09, Barna said:

تفضل المرفق الذي لدي جرب عليه ولما نشوف ........................

 

Import Frome Excel File.rar 186.14 kB · 19 downloads

بعد العمل علي البرنامج اتضح أنه لا يقوم بحذف البيانات السابقة الموجودة في الجدول المصدر له سابقًا حتي بعد إضافة كود 

CurrentDb.Execute ("Delete * From Me.Combo15")
 

[Barna]

13 ساعات مضت, محمود أبوسيف said:

بعد العمل علي البرنامج اتضح أنه لا يقوم بحذف البيانات السابقة الموجودة في الجدول المصدر له سابقًا حتي بعد إضافة كود 

CurrentDb.Execute ("Delete * From Me.Combo15")
 

ما كان شغال الكود .... ؟؟؟

[محمود أبوسيف]

5 ساعات مضت, Barna said:

ما كان شغال الكود .... ؟؟؟

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

[Barna]

منذ ساعه, محمود أبوسيف said:

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

طيب استبدل هذا السطر لديك :::

CurrentDb.Execute ("Delete * From Me.Combo15")

بهذا السطر :::::

CurrentDb.Execute ("Delete * From " & Me.Combo15 & "")

اعلمنا بالنتيجة :::::

[محمود أبوسيف]

6 ساعات مضت, Barna said:

طيب استبدل هذا السطر لديك :::

CurrentDb.Execute ("Delete * From Me.Combo15")

بهذا السطر :::::

CurrentDb.Execute ("Delete * From " & Me.Combo15 & "")

اعلمنا بالنتيجة :::::

تمام كده ...