مساعدة في زر امر

[montzer]

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

اولاً احب ان اشكر كلاً من

 نور الدين وليد و 
wael_rafat

وهذا لتفاعلكم معي وحقيقة لم اتوصل للمطلوب وحبيت ان اغير الفكرة ولكن لم اجد لها حل ايضاً 

ولكي اوضح المطلوب ارفقت ملف وهي بنموذج بيانات الاطباء اتمنى ان تكون واضحة الفكرة 

وشكراً لكم 

اخفاء زر امر.rar

[نور الدين وليد]

اخى انا نفذت المطلوب حسب ما طلبت

بالنسبة للشرح فى الموضوع السابق اريد ان اعرف كيف لم تنجح معك عموما انا نفذت المطلوب.

  اخفاء زر امر.rar

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

تم تعديل أغسطس 28, 2015 بواسطه نور الدين وليد

[montzer]

شكراً لك عزيزي نور الدين وليد 

بخصوص الموضوع السابق لم يفلح معي ممكن لان الاصداري 2013 

ام بخصوص اخفاء زر امر زبط معي وشكراً لك 
ولكن ما رايك بلكود هذا 

Private Sub التخصص_Afterupdate()

Me.أمر98.Visible = Me.التخصص = "اخرى"

End Sub

هل اكتفي به ام اغيره الى الكود 

If [التخصص] = "اخرى" Then
أمر98.Visible = True
End If

وشكراً لك 

 يوجد لدي طلب اخر 
وهو عند اضافة التخصص الجديد لا يظهر بنموذج بينات الطبيب الى بعد ان اقوم بغلق النموذج او تحديثة هل لها حل

[نور الدين وليد]

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

بالنسبة للمشكلة اضف فى حدث close للفورم الخاص بتعديل القائمة

Form_Doctors.[].Requery

وبدل القوسين اكتب اسم القائمة المنسدلة الخاصة بالتخصص انشاء الله تضبط معاك

و ارى انه من الافضل تسمية الادوات باللغة الانجليزية لضمان سلامة وسهولة الاكواد

[montzer]

وضحت الفكرة عزيزي نور الدين وليد
ولقد استفدت منك الكثير من خلال اجابتك على الاسئلة 
واسف انى اتعبتك معي 
فلك  وللمنتدى المميز كل الشكر 

[نور الدين وليد]

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

 

تم تعديل أغسطس 29, 2015 بواسطه نور الدين وليد