اضافة زر في النموذج

[بلال اليامين]

السلام عليكم

لدي حقل اسمه القسم  و حقل اسمه رقم الفوج 

اريد عند اختيار اسم القسم والفوج يقوم بضغط على الزر اضافة فوج 

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

ويوجد زر حدف اريد عند الضغط على زر الحدف يتم تلوين الحقول

الافواج.accdb

[عمر ضاحى]

23 دقائق مضت, بلال اليامين said:

السلام عليكم

لدي حقل اسمه القسم  و حقل اسمه رقم الفوج 

اريد عند اختيار اسم القسم والفوج يقوم بضغط على الزر اضافة فوج 

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

ويوجد زر حدف اريد عند الضغط على زر الحدف يتم تلوين الحقول

الافواج.accdb 644 kB · 1 download

سامحني
بس مش عارف حاسس انى مش فاهمك 🤪

انت عاوز يعنى اذا تحق الشرط باختيار القيم والفوج يقوم تلقائيا بتفعيل الزر ولا يقوم بتنفيذ التعليمات البرمجيه التى بالزر ولا ايه قول بسرعه 🤣

[عمر ضاحى]

لحد ما ترد
هفترض انك تريد كود vba علشان تضيف البيانات التى تختارها من القوائم على الجدول

ولفعل هذا

راجع الكود التالي

'هنا نبدأ الاول التحقق من اذا كان الحقول المطلوبه فارغه ام لا
If SectionList = "" Or IsNull(SectionList) Then
MsgBox "برجاء اختيار القسم اولا", vbCritical, "تنبيه"
SectionList.SetFocus
SectionList.Dropdown
Exit Sub
End If
If FojList = "" Or IsNull(FojList) Then
MsgBox "برجاء اختيار الفوج اولا", vbCritical, "تنبيه"
FojList.SetFocus
FojList.Dropdown
Exit Sub
End If

'بعد ما تم التحقق بنجاح وكل الامور تمام يتم تخزين القيمة فى الجدول المستهدف
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("تحديد الفوج", dbOpenDynaset)
With rst
    .AddNew
    ![mrk] = FojList
    ![الرقم2] = SectionList
    .Update
    .Close
End With
Set rst = Nothing
db.Close
Set db = Nothing

'بعد ما تم التخزين
'يتم تفريغ الحقول لعملية اخري
SectionList = Null
FojList = Null

'هنا نعمل تحديث للفورم
Me.Form.Requery

 

[بلال اليامين]

السلام لقد حاولت ولم اسطيع يظهر لي الاخطأ

[Foksh]

43 دقائق مضت, بلال اليامين said:

السلام لقد حاولت ولم اسطيع يظهر لي الاخطأ

أخي @بلال اليامين ، انت حاولت في الحل ، ولم تحاول حتى توضيح المطلوب كما أشار أستاذنا @عمر ضاحى في مشاركته .

[بلال اليامين]

السلام عليكم

لقد وجدت الحل عند طريق جدول الحاقي 

اريد الحاق بالقسم واحد وليس جميع الاقسام

اليك البرنامج

 

1111الافواج.accdb

[Foksh]

أخي بلال أود المساعدة فعلاً ، ولكني لم أفهم المطلوب بشكل واضح للأسف .. 

ولكن طريقة تصميمك للجداول أعتقد أنها بحاجة إلى إعادة النظر بأمرها ..
فمثلاً القيم ( تحضيري ، أولى .... خامسة ) اعتقد يجب ان تكون في جدول مستقل مع ترقيم لكل سجل .
وكذلك الأمر لحقل الفوج إن كان كما هو واضح في الجدول تحديد القسم أن (تحضيري يقابلها 1) ، و (أولى يقابلها 2) ... إلخ
اهتم بالمسميات أيضاً التي مثل ( mdd,mr,,rr,,rk .... إلخ )

 

أعانك الله على الشرح الوافي ليتضح المطلوب ويصبح ذا معنى مفهوم ، ومتأكد إنك ستجد الإجابة المناسبة