عزووز2009 قام بنشر مايو 11, 2008 مشاركة قام بنشر مايو 11, 2008 بسم الله الرحمن الرحيمالسلام عليكم ورحمة الله وبركاتهاخواني مطلوب من برنامج مكتبه عن طريق قواعد البايات أكسس وعملت البرنامج بس عندي مشكله ماعرف كيف أحلها وهي موضحه بالصور أدناه ..وهذه التعديل المراد عمله 7الصوره الاولى توضح البرنامج بشكله الطبيعي ,, والصوره الثاني المطلوب هو اني أو ما اضع علامة صح في المربع الصغير يختفي مربع السعر ..أتمنى انكم فهمتو قصدي ..هذا الطلب الاول ..اما الطلب الثاني وهو ..موضح في الصور أدناه .وهذا التعديل المراد على البرنامج77الصوره الاولى توضح البرنامج بشكله الطبيعي ,, والصوره الثانيه توضح المطلوب تعديله على البرنامج ,, المطلوب انه عند وضع علامة الصح تكون الازرار غير مفعله يعني أقدر أشوفها بس لما أضغط عليها لا تقوم بأي عمل وبمجرد ما اشيل علامة الصح تتفعل الازرار ويمكن استخدامها ..أتمنى انكم فهمتو المطلوب .. محتاج البرنامج (الاكواد ) بأسرع ما يمكن ..ولكم مني كل الشكر والتقدير .. رابط هذا التعليق شارك More sharing options...
كمال النحال قام بنشر مايو 11, 2008 مشاركة قام بنشر مايو 11, 2008 (معدل) أخي الكريم / عزوز تحية طيبة وبعد ،،،،،،،،،،، هلا أرسلت لنا هذه القاعدة لعمل المطلوب من جانب أخوانك في المنتدى على العموم جرب هذا الكود على اعتبار أن XX هو حقل الاختيار وأن Price هو السعر ... قم بوضع هذا الكود حدث عند النقر IF XX = True then Price.visible = False Else Price.visible = True End If اليك هذه القاعدة تفي بالمطلوب تم انشائها بشكل سريع موفق ان شاء الله _________.rar تم تعديل مايو 11, 2008 بواسطه كمال النحال رابط هذا التعليق شارك More sharing options...
Bluemind قام بنشر مايو 11, 2008 مشاركة قام بنشر مايو 11, 2008 اخوي بالنسبه للسؤال الاول وهو اخفاء مربع السعر عليك كتابه هذين الكود كالاتي: * في حدث النموذج 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 طبعا غير الاسماء كما هو موجود عندك في النموذج اخيرا لابد ان يكون عندك خطوتين لابد من تنفيذها في كل سؤال من اسالتك اذا صعب عليك شي ارجوا اضافه قاعده بياناتك لتوفير الوقت ونتمكن من الاجابه على سؤالك باسرع وقت رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان