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

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

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

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

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

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

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

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

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

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

قام بنشر (معدل)
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
قام بنشر
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

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

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

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

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

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

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

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

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

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

قام بنشر
9 ساعات مضت, محمود أبوسيف 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

 

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

  • 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")
قام بنشر
منذ ساعه, محمود أبوسيف 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

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

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

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

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

 

1.png

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

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

 

Import Frome Excel File.rar 186.14 kB · 0 downloads

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

Untitled.png.ee7e1e1d0e62e7844223607ac1eaf9da.png

قام بنشر
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")
 

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

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

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

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

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

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

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

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