كيف لثلاثة حقول مدة في جدول حقل واحد في النموذج

Private Sub Form_AfterUpdate()

Me.نص7 = Null

Me.مربع_تحرير_وسرد5 = Null

End Sub

Private Sub Form_Load()

Me.نص7 = Null

مربع_تحرير_وسرد5 = Null

End Sub

Private Sub مربع_تحرير_وسرد5_Change()

On Error GoTo Err_xx

DoCmd.GoToControl "نص7"

Exit_xx:

Exit Sub

Err_xx:

MsgBox Err.Description

Resume Exit_xx

End Sub

Private Sub نص7_AfterUpdate()

Select Case مربع_تحرير_وسرد5

Case "حسم"

Me.حسم = Me.نص7

Case "إضافي"

Me.إضافي = Me.نص7

Case "دورة"

Me.دورة = Me.نص7

End Select

End Sub

Private Sub نص7_Exit(Cancel As Integer)

Refresh

End Sub

أضف مربع نص غير منضم في الكود أسمة "نص7"

وأكتب الكود السابق

انا عندي نموذج ماعرفت كيف انزله

ياليت واحد يقولي كيف

مش عم نستوعب

عزيزي ,,,, العملية في غاية البساطة

قم بإنشاء جدول وضع فيه الحقول التالية

اسم الحقل : a وهو يشير إلى ( مدة الدورة )

اسم الحقل : b وهو يشير إلى ( مدة الحسم )

اسم الحقل : c وهو يشير إلى ( مدة الاضافي )

أنشيء نموذج وضع فيه قائمة خيارات وضع لها اسما ( sh )

الخيار الاول : مدة الدورة

الخيار الثاني : مدة الحسم

الخيار الثالث : مدة الاضافي

ضع في النموذج مع قائمة الخيارات حقل واحد فقط ويشير إلى ( a ) مدة الدورة

وضع له إسما ( sl )

ضع هذا الكود في قائمة الخيارات في حدث ( بعد التحديث )

If sh = 1 Then
Me![sl].ControlSource = "a"
ElseIf sh = 2 Then
Me![sl].ControlSource = "b"
ElseIf sh = 3 Then
Me![sl].ControlSource = "c"
End If

شاكر

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

زر ( code )

سوف اضعه لك كما هو بدو ن الضغط على الزر ،،،، هذا هو

If sh = 1 Then

Me![sl].ControlSource = a

ElseIf sh = 2 Then

Me![sl].ControlSource = b

ElseIf sh = 3 Then

Me![sl].ControlSource = c

End If

شاكر

مرحبا بالجميع

الاخ شاكر :

لقد قمت بعما ما شرحت ولكن ؟

/ لم اجد في قائمة خيارات في حدث ( بعد التحديث )

/ ثم حاولت بطريقة او باخرى ولكن لم تنجح المحاولة

شكرا ياشاكر

انا في الانتظار

أخي العزيز

من أشرطة الادوات يوجد شريط إسمه ( مربع الادوات )

يوجد به خيار إسمه ( مجموعة خيار ) ,,,,, هذا ما قصدته

إعمل ( مجموعة خيار ) كما شرحت لك سابقا

أنشيء نموذج وضع فيه مجموعة خيارات وضع لها اسما ( sh )

الخيار الاول : مدة الدورة

الخيار الثاني : مدة الحسم

الخيار الثالث : مدة الاضافي

شاكر

الاخ الكريم AZIZ1389

كلام الاخ شاكر صحيح

اما عن الكود السابق

Private Sub نص7_AfterUpdate()

Select Case مربع_تحرير_وسرد5

Case "حسم"

Me.حسم = Me.نص7

Case "إضافي"

Me.إضافي = Me.نص7

Case "دورة"

Me.دورة = Me.نص7

End Select

End Sub

على أفتراض انه لديك نموذج فيه:

مربع تحرير وسرد أسمه "مربع_تحرير_وسرد5"

يحتوي مربع السرد هذا على قائمة بها ثلاثة خيارات حسم - إضافي - دورة

ولديك مربع نص غير منضم أسمه "نص7" لكتابة المدة مدة حسم أو اضافي أو دورة

الاخ شاكر

لقد قمت بالفعل بما شرحت مسبقاً وانا اعرف ايقونة ( مجموعة خيار .. )

عند اظهار خصائص مجموعة الخيارات . ثم حدث لا اجد الاجراء ( بعد التحديث ) الذي قصدة

هذا ما لم اجدة

اما مجموعة الخيار فقد قمت بها المشكلة اين اضع الكود

اما اذا كنت تقصد حدث بعد التحديث في خصائص النموذج !!!

او اني لم استوعب بعد

شكر الاخ شاكر والاخ ganim

لا يا أخي / AZIZ1389

يوجد حدث بعد التحديث في ( مجموعة الخيار )

اعمل مجموعة خيار كما شرحت لك ثم اذهب إلى خصائص هذه المجموعة سوف ترى

من ضمن خصائص المجموعة ( بعد التحديث ) ،،، ضع الكود الموجود في هذا الحدث

عملت لك مثالا ولكن مع الاسف ليس مفعلا حتى الان عملية إرفاق ملف

شاكر

صباح و مساء الخير

شكر ا جزيلا لقد قمت بذلك اخيرا

وللجميع الشكر

عافاكم الله

مرحبا أخي / AZIZ1389

الحمد لله على السلامة ، والوصول للعملية بالشكل الصحيح

شاكر