اذهب الي المحتوي
أوفيسنا

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

محمود أبوسيف

بواسطه محمود أبوسيف
في قسم الأكسيس Access

 مشاركة
إذهب إلى أفضل إجابة Solved by Barna,

الردود الموصى بها

محمود أبوسيف

محمود أبوسيف

قام بنشر
  • الكاتب
قام بنشر
2 دقائق مضت, Barna said:

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

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

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

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

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

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

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

رابط هذا التعليق
شارك
abouelhassan

abouelhassan

قام بنشر
قام بنشر (معدل)
1 ساعه مضت, rockjone33 said:

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

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

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

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

11.PNG.f70ce82c594effc53246ace475f571b0.PNG

2.PNG.bb5a045d1b492492c9d42bcda1bdf118.PNG

3.PNG.abe48f9c67cf79dc8e597376d22d6bd9.PNG

4.PNG.db7b3ef63e3871fba1723c45ded3cc08.PNG

للتحميل المرفق 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

احترامى

تم تعديل بواسطه abouelhassan
رابط هذا التعليق
شارك
Barna

Barna

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

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

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

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

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

 

1.png

  • Like 1
رابط هذا التعليق
شارك
محمود أبوسيف

محمود أبوسيف

قام بنشر
  • الكاتب
قام بنشر
12 ساعات مضت, Barna said:

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

 

1.png

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

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

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

Untitled21.png.c42b78f3f4e26a185661c7cc1b9f0093.pngUntitled.png.aa9b19f1e80eef79d26e2f6cc9712538.png

رابط هذا التعليق
شارك
Barna

Barna

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

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

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

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

Untitled21.png.c42b78f3f4e26a185661c7cc1b9f0093.pngUntitled.png.aa9b19f1e80eef79d26e2f6cc9712538.png

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

رابط هذا التعليق
شارك
محمود أبوسيف

محمود أبوسيف

قام بنشر
  • الكاتب
قام بنشر
12 دقائق مضت, Barna said:

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

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

رابط هذا التعليق
شارك
Barna

Barna

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

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

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

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

رابط هذا التعليق
شارك
Barna

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

 

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

  • Like 2
رابط هذا التعليق
شارك
محمود أبوسيف

محمود أبوسيف

قام بنشر
  • الكاتب
قام بنشر
في 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

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

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

رابط هذا التعليق
شارك
محمود أبوسيف

محمود أبوسيف

قام بنشر
  • الكاتب
قام بنشر
7 دقائق مضت, Barna said:

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

 

Import Frome Excel File.rar 186.14 kB · 0 downloads

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

Untitled.png.ee7e1e1d0e62e7844223607ac1eaf9da.png

رابط هذا التعليق
شارك
Barna

Barna

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

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

Untitled.png.ee7e1e1d0e62e7844223607ac1eaf9da.png

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

رابط هذا التعليق
شارك
محمود أبوسيف

محمود أبوسيف

قام بنشر
  • الكاتب
قام بنشر (معدل)
26 دقائق مضت, Barna said:

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

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

تم تعديل بواسطه محمود أبوسيف
  • Thanks 1
رابط هذا التعليق
شارك
محمود أبوسيف

محمود أبوسيف

قام بنشر
  • الكاتب
قام بنشر
في 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

Barna

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

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

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

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

رابط هذا التعليق
شارك
  • أفضل إجابة
Barna

Barna

قام بنشر
  • أفضل إجابة
قام بنشر
منذ ساعه, محمود أبوسيف said:

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

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

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

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

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

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

  • Like 3
رابط هذا التعليق
شارك
محمود أبوسيف

محمود أبوسيف

قام بنشر
  • الكاتب
قام بنشر
6 ساعات مضت, Barna said:

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

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

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

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

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

تمام كده ... 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept