اريد مساعده في قواعد البيانات أكسس ..

[عزووز2009]

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

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



وهذه التعديل المراد عمله
7


الصوره الاولى توضح البرنامج بشكله الطبيعي ,, والصوره الثاني المطلوب هو اني أو ما اضع علامة صح في المربع الصغير يختفي مربع السعر ..

أتمنى انكم فهمتو قصدي ..

هذا الطلب الاول ..

اما الطلب الثاني وهو ..
موضح في الصور أدناه .



وهذا التعديل المراد على البرنامج
7
7


الصوره الاولى توضح البرنامج بشكله الطبيعي ,, والصوره الثانيه توضح المطلوب تعديله على البرنامج ,, المطلوب انه عند وضع علامة الصح تكون الازرار غير مفعله يعني أقدر أشوفها بس لما أضغط عليها لا تقوم بأي عمل وبمجرد ما اشيل علامة الصح تتفعل الازرار ويمكن استخدامها ..

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

ولكم مني كل الشكر والتقدير ..

[كمال النحال]

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

تحية طيبة وبعد ،،،،،،،،،،،

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

على العموم جرب هذا الكود على اعتبار أن XX هو حقل الاختيار وأن Price هو السعر ... قم بوضع هذا الكود حدث عند النقر

IF XX = True then

Price.visible = False

Else

Price.visible = True

End If

اليك هذه القاعدة تفي بالمطلوب تم انشائها بشكل سريع

موفق ان شاء الله

_________.rar

تم تعديل مايو 11, 2008 بواسطه كمال النحال

[Bluemind]

اخوي

بالنسبه للسؤال الاول وهو اخفاء مربع السعر عليك كتابه هذين الكود كالاتي:

* في حدث النموذج On Current و عند الحالي اكتب الكود التالي

If Me.free = True Then
Me.price.Visible = False
Else
Me.price.Visible = True
End If

حيث ان free هو اسم مربع الاختيار و price هو مربع نص السعر قم بتغير اسمائها حسب الاسماء الموجوده عندك ** ثم تذهب لحدث مربع الاختيار وتكتب التالي في حدث بعد التحديث او After update

If Me.free = True Then
Me.price.Visible = False
Else
Me.price.Visible = True
End If

الان السؤال الثاني * في نفس حدث النموذج on Current اكتب الكود التالي:

If Me.agree = True Then
Me.Command2.Enabled = False
Me.Command3.Enabled = False
Else
Me.Command2.Enabled = True
Me.Command3.Enabled = True
End If

حيث ان Agree هو اسم مرع الاختيار و command2 و command3هي اسماء ازرار الامر طبعا اضف اسماء الازرار كما هو موجود لديك * * طبعا بعد ذالك نذهب الى حدث بعد التحديث او after update لمربع الاختيار و نكتب الكود التالي

If Me.agree = True Then
Me.Command2.Enabled = False
Else
Me.Command2.Enabled = True
End If

طبعا غير الاسماء كما هو موجود عندك في النموذج

اخيرا

لابد ان يكون عندك خطوتين لابد من تنفيذها في كل سؤال من اسالتك

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