تصدير قاعدة بيانات لملف أكسل

[صالح حمادي]

لقد وصلت إلى الحل أخي الوزير بعد محاولات عديدة

Dim lastRow As Long
       lastRow = ws.Range("A1").CurrentRegion.Rows.Count
      .Range("A2:Q" & lastRow).Locked = False

مشكور أخي. بهذا نكون قد أنهينا درس التصدير و سوف ننتقل إلى درس الإستيراد

هل أنت مستعد لتساعدني أخي

[AlwaZeeR]

وفقك الله اخي صالح ،،،

طبعا جاهز لمساعدتك  اخي العزيز

::

تحياتي

[صالح حمادي]

الله يحفظك يا غالي

[صالح حمادي]

هذا الملف به طريقة استراد و تصدير البيانات من و إلى أكسل

لكن عندي بعض الأسئلة :

كيف يمكن وضع اسماء sheet ملف الأكسل المستورد في مربع قائمة

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

كيف يمكن وضع عملية جمع عمودين في عمود آخر بإستعمال الكود (تنسيق الملف الذي سوف نصدره)

كيف يمكن إضافة الأستعلام1 برمجيا

 

استيراد و تصدير.rar

[AlwaZeeR]

اخي صالح:

اذا كان كل معلم سوف يقوم بتعبئة ملف الاكسل الخاص بصفه، ثم ارجاعه لك كي يتم اضافته الى القاعدة الرئيسية للعلامات

فلا حاجة لاكثر من ورقة sheet في ملف اكسل المصدر

اطلع على الملف التالي وبعد ذلك سوف نصل الى ما تصبو اليه ،،، باذن الله تعالى

::

تحياتي

Waz-Excel.rar

[صالح حمادي]

السلام عليكم أخي الوزير

أنا عملت هذا لأن كل معلم يدرس مجموعة من الصفوف و منهم من يدرس مادتين لنفس الصف.

سوف أطلعك على النتائج حبيبي بعد تحليل البرنامج وتجربته

حياك الله.

[صالح حمادي]

السلام عليكم أخي الوزير كيف حالك إن شاء الله تكون بخير و عافية

لقد لاحظت أنه لإستراد بيانات من أكسل يجب أن تكون الحقول لها تسميات محددة مثل (f1;f2;f3......) أو (mrk1;mrk2;mrk3;....) و هو لا يقوم بالإستيراد إذا وضعنا تسميات أخر مثل (name ,numero, adress,.....)أم هل هذا هو الصحيح أم أن هناك أمور أخرى أجهلها

 

[AlwaZeeR]

في المرفق عند الضغط على استيراد

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

بعد ذلك تستطيع عمل زر الحاق بالسجل الرئيسي مع معيار رقم الصف

::

تحياتي

 

ImpExPortToEXCEl.rar

[صالح حمادي]

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

الآن تقريبا إكتملت لدي معلومات التصدير و الإستيراد بفضل الله عز وجل الذي سخرك لنا لتساعدنا و تأخذ أجرك من عنك رب السموات و الأراضين.

تقبل الله صيامك و قيامك بمزيد من الأجر و الثواب

 

[AlwaZeeR]

العفو اخي صالح ،،، لا شكر على واجب

 

[صالح حمادي]

رعاك الله أخي و أستاذي الوزير و حفظك بحفظه

[صالح حمادي]

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

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

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

بمعنى آخر أريد ملف الإكسل الذي أصدره يكون فيه سوى الأقسام التي يدرسها هذا الأستاذ الذي قمت بتحديده من خلال نموذج التصدير

استيراد و تصدير.rar

تم تعديل يوليو 3, 2016 بواسطه صالح حمادي

[AlwaZeeR]

وعليكم السلام ورحمة الله وبركاته

في استعلام sqstu

في معيار حقل proffesseur

ضع الكود:

[Forms]![التنقيط]![prof]

كما تم التعديل على اسم الملف الناتج كي يكون باسم مربي الصف:

 

  curPath = DTPath & "\" & Forms![التنقيط]!prof.Column(0) & "-" & Format(Date, "mm-dd-yyyy") & ".xls"

::

اي استفسار انا حاضر

تحياتي

Waz-استيراد و تصدير.rar

تم تعديل يوليو 3, 2016 بواسطه alwazeer

[صالح حمادي]

السلام عليكم أستاذي العزيز جزيت خير الجزاء.

لكن هذا لا يحل المشكلة لأن صفحات الصفوف الأخرى تبقى في الملف الإخراج و حتى و لو أنها فارغة.

و ذلك لأننا قمنا بالفرز بعد الأستعلام المصدر [استعلام التنقيط].

لكن الحمد لله بعد عدة محاولات توصلت إلى حل يفي بالغرض و هو كالتالي:

1- أضفت إلى سطر select الحقل  [professeur]

 Set Rs = CurrentDb.OpenRecordset("SELECT [matiere],[classe],[professeur] FROM [استعلام التنقيط]ORDER BY [matiere],[classe],[professeur];")

2- أضفت وحدة نمطية جديدة

Public Function GetPublicSedol2() As String
    GetPublicSedol2 = Forms![التنقيط]![prof]
End Function

في استعلام التنقيط

في المعيار professeur و ضعت الكود

GetPublicSedol2()

لا أدري إن كانت الطريقة صحيحة أم لا لكنها تحقق المطلوب و أنت ما رأيك يا أستاذ.

 

Waz-استيراد و تصدير.rar

[AlwaZeeR]

احسنت اخي صالح

لا حاجة للحقل (proffesseur) في استعلام sqstu

وفقك الله

واي استفسار انا في الخدمة

::

تحياتي

 

[صالح حمادي]

شكرا أخي العزيز

إن شاء الله موفقين جميعا

[صالح حمادي]

في 25‏/6‏/2016 at 13:02, alwazeer said:

لكي يتم عمل ما تريد يجب أولاً مراعاة ما يلي في تصميم البرنامج:

1- بيانات الطلاب في جدول على حدا، ويتضمن أيضا (StuID)ترقيم تلقائي (مفتاح اساسي)، كما يتضمن حقل ClassID نوع بياناته رقم.

2- علامات الطلاب في جدول على حدا ويتضمن أيضاً (StuID) نوع بيانات رقم.

3- المواد الدراسية في جدول على حدا : واسم المادة ورقم المادة، اضافة الى حقل ( ClassID ) نوع بياناته رقم.

السلام عليكم تقبل الله صيامكم.

أخي الكريم الوزير.

بعدما تعلمت كيفية إستيراد و تصدير البيانات من و إلى أكسل بفضلك بعد الله عز وجل أردت أن أتبع الخطوات التي أعطيتني إياها للشروع في إنشاء البرنامج. كل شيء مشي تمام و الحمد لله إلا آخر خطوة و هي :

1 بعدما نقوم بإستيراد البيانات للجدول tab2  أردت أن أضع لكل طالب نقاطه حسب المواد في الجدول tbleleve لكني عجزت عن ذلك.

منذ الساعة السابعة صباحا و أنا أحاول لحد الآن و لم أجد أي فكرة للحل.

 

تحديث بيانات.rar