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

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

قام بنشر

السلام عليكم

تفضل أخي الكريم حسب ما فهمت من طلبك

لقد غيرت اسماء الحقول من العربي الى الانكيزي وذلك لصعوبة عمل الاكواد باللغة العربية.

Option Compare Database
Option Explicit
Private Sub cboName_AfterUpdate()
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Name_Surname] = '" & Me![cboName] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    cboLevel = ""
    cboSubject = ""
    cboRegiment = ""
End Sub

Private Sub cboLevel_AfterUpdate()
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Level] = '" & Me![cboLevel] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    cboName = ""
    cboSubject = ""
    cboRegiment = ""
End Sub

Private Sub cboRegiment_AfterUpdate()
 Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Regiment] = '" & Me![cboRegiment] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    cboName = ""
    cboSubject = ""
    cboLevel = ""
End Sub

Private Sub cboSubject_AfterUpdate()
   Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Subject] = '" & Me![cboSubject] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    cboName = ""
    cboRegiment = ""
    cboLevel = ""
End Sub

وهذا الملف بعد التعديل

بالتوفيق

bdd2.accdb

قام بنشر

الرجاء من الاخوة الكرام تجربة الملف الاول او الثاني وهل تعمل التصفية حسب طلب الاخ السائل في اول مشاركة له

لان الملفات تعمل بشكل صجيج عندي بينما الاخ السائل لديه مشكلة في فتح الملف. ولم يخبرني ما هي نص الرسالة لانها  بالفرنسي.

وهنا تم تغير الطلب الى

17 دقائق مضت, seddiki_adz said:

لمطلوب

1) هو نافذة الادخال تسجيل البيانات

2) قائمة للطلبةحسب المستوى الفوج والاستاد

كما هو موضح في الملف

 

قام بنشر
14 دقائق مضت, سامي الحداد said:

الرجاء من الاخوة الكرام تجربة الملف الاول او الثاني وهل تعمل التصفية حسب طلب الاخ السائل في اول مشاركة له

من تجربة سريعة تعمل ولا تظهر رسالة خطأ

مع ذلك

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

اخيرا لو ان صاحب المشاركة وضع بيانات اكثر لكان اسهل على من يرغب التعديل و يكون على بينة من نجاح التعديل

وجهة نظر

التجربة على نسخة 21

شايب🌹

قام بنشر
نتيجة نتيجة التعبير ليست اسم ماكرو أو اسم دالة معرّفة من قبل المستخدم أو إجراء حدث
يمكن أن يحدث خطأ أثناء تقييم دالة أو حدث أو ماكرو
قام بنشر

أخي الكريم

تفضل التعديل هل هو المطلوب ؟

الملف تم تجربته على الاوفيس 2021 وحاليا لا املك غير هذه النسخة .

2 ساعات مضت, شايب said:

من تجربة سريعة تعمل ولا تظهر رسالة خطأ

مع ذلك

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

نعم  أستاذي شايب كلامك صجيج ولكن هذا ما فهمته من طلب الاخ السائل. حاليا الوقت عندي متأخر  الساعة23:30 مساءا غدا سوف اغير الكود ان شاءالله.

bdd2.accdb

  • Like 2
قام بنشر

اخي الكريم

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

ثانيا افتح ملف جديد واستورد الجدول والفورم والتقارير جرب وأعلمنا بالنتيجة.

 

قام بنشر

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

تحياتي

قام بنشر (معدل)

 

13 ساعات مضت, سامي الحداد said:

أخي الكريم

تفضل التعديل هل هو المطلوب ؟

الملف تم تجربته على الاوفيس 2021 وحاليا لا املك غير هذه النسخة .

نعم  أستاذي شايب كلامك صجيج ولكن هذا ما فهمته من طلب الاخ السائل. حاليا الوقت عندي متأخر  الساعة23:30 مساءا غدا سوف اغير الكود ان شاءالله.

bdd2.accdb 580 kB · 6 downloads

فعلا البرنامج يعمل ولايوجد أى مشكلة     .........  من الممكم أن تكون فيه مشكلة فى إعدادات اللغة فى الويندوز

جرب تعيير اللغة حسب اللغة المستخدمة فى البرنامج

والله أعلم

تم تعديل بواسطه عبدالجيد
قام بنشر
13 ساعات مضت, سامي الحداد said:

أخي الكريم

تفضل التعديل هل هو المطلوب ؟

الملف تم تجربته على الاوفيس 2021 وحاليا لا املك غير هذه النسخة .

نعم  أستاذي شايب كلامك صجيج ولكن هذا ما فهمته من طلب الاخ السائل. حاليا الوقت عندي متأخر  الساعة23:30 مساءا غدا سوف اغير الكود ان شاءالله.

bdd2.accdb 580 kB · 8 downloads

يعمل بكفائة 

اذا المشكلة في اعدادات اللغة لدى صاحب الطلب

  • Like 1
قام بنشر (معدل)

السلام عليكم 

جربت العربية و الانكليزية

ونفس النتيجة

لديتا اوفيس 2016 فرنسي

تم تعديل بواسطه seddiki_adz
قام بنشر

السلام عليكم

لكم جزيل الشكر اخواني الكرام  @شايب @عبدالجيد @د.كاف يار على تجربتكم للملف. 

الاخ @seddiki_adz ابحث بالمنتدى عن اعدادات اللغة في المنتدى وستجد الكثير من المواضيع وكيفية حل المشكلة لديك.

بالتوفيق

 

قام بنشر

كم جزيل الشكر اخواني الكرام  @شايب @عبدالجيد @د.كاف يار سامي الحدد

لقد غيرت اللغة واشتغل لديا الملف 

لكن ادا ممكن اساتذتي الكرام اريد

1) شاشة منبثقة لادخال المعطيات

2) قائمة لكل فوج حسب المستوى وحسب الفوج  وحسب الاستاد ( 3 شروط)

3) قائمة لكل استاد حسب المستوى وحسب الفوج  وحسبالمادة ( 3 شروط)

وجزاكم الله كل خير

قام بنشر

السلام عليكم

هده مجاولة من عندي

كيف اصحح زر الخروج لا يعمل و كيف احصل على قائمة الطلبة حسب الفوج(الفصل)، المستو ى و المادة لكل استاذ

DBB2.accdb

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