اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

محمود أبوسيف

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

 مشاركة
إذهب إلى الإجابة الإجابة بواسطة Barna,

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

محمود أبوسيف

محمود أبوسيف

قام بنشر
  • الكاتب
قام بنشر
  في 29‏/10‏/2022 at 17:36, Barna said:

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

Expand  

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

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

  في 29‏/10‏/2022 at 17:37, Barna said:

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

Expand  

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

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

abouelhassan

abouelhassan

قام بنشر
قام بنشر (معدل)
  في 29‏/10‏/2022 at 16:25, 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

Expand  

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

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

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

احترامى

تم تعديل بواسطه abouelhassan
Barna

Barna

قام بنشر
قام بنشر
  في 29‏/10‏/2022 at 17:39, محمود أبوسيف said:

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

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

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

Expand  

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

 

1.png

  • Like 1
محمود أبوسيف

محمود أبوسيف

قام بنشر
  • الكاتب
قام بنشر
  في 29‏/10‏/2022 at 18:27, Barna said:

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

 

1.png

Expand  

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

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

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

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

Barna

Barna

قام بنشر
قام بنشر
  في 30‏/10‏/2022 at 06:48, محمود أبوسيف said:

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

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

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

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

Expand  

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

محمود أبوسيف

محمود أبوسيف

قام بنشر
  • الكاتب
قام بنشر
  في 30‏/10‏/2022 at 07:31, Barna said:

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

Expand  

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

Barna

Barna

قام بنشر
قام بنشر
  في 30‏/10‏/2022 at 07:46, محمود أبوسيف said:

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

Expand  

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

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

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 17: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

 

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

Expand  

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

Net.rarFetching info... 

CurrentDb.Execute ("Delete * From tblTemp")
Barna

Barna

قام بنشر
قام بنشر
  في 31‏/10‏/2022 at 19:18, محمود أبوسيف said:

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

CurrentDb.Execute ("Delete * From tblTemp")

Expand  

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

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

 

محمود أبوسيف

محمود أبوسيف

قام بنشر
  • الكاتب
قام بنشر
  في 31‏/10‏/2022 at 20:40, 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
Expand  

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

محمود أبوسيف

محمود أبوسيف

قام بنشر
  • الكاتب
قام بنشر
  في 31‏/10‏/2022 at 21:09, Barna said:

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

 

Import Frome Excel File.rar 186.14 kB · 0 downloads

Expand  

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

Untitled.png.ee7e1e1d0e62e7844223607ac1eaf9da.png

Barna

Barna

قام بنشر
قام بنشر
  في 31‏/10‏/2022 at 21:19, محمود أبوسيف said:

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

Untitled.png.ee7e1e1d0e62e7844223607ac1eaf9da.png

Expand  

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

محمود أبوسيف

محمود أبوسيف

قام بنشر
  • الكاتب
قام بنشر (معدل)
  في 31‏/10‏/2022 at 21:29, Barna said:

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

Expand  

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

تم تعديل بواسطه محمود أبوسيف
  • Thanks 1
محمود أبوسيف

محمود أبوسيف

قام بنشر
  • الكاتب
قام بنشر
  في 31‏/10‏/2022 at 21:09, Barna said:

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

 

Import Frome Excel File.rar 186.14 kB · 19 downloads

Expand  

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

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

Barna

Barna

قام بنشر
قام بنشر
  في 2‏/11‏/2022 at 07:46, محمود أبوسيف said:

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

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

Expand  

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

  • تمت الإجابة
Barna

Barna

قام بنشر
  • تمت الإجابة
قام بنشر
  في 3‏/11‏/2022 at 02:31, محمود أبوسيف said:

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

Expand  

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

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

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

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

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

  • Like 3

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

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

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

Important Information

  I accept