jo_2010

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

اخترتة ولم يظهر معى

قمت بعمل المطلوب ولم يظهر كما بالصورة الاولى Node او Nodes

استاذى الفاضل عمر ضاحى للعلم عندى اوفيس 2016 لابوجد office بداية حرف الO ou

صباح الخير عندى برنامج قمت بتحميلة من هذا الصرح العظيم وبة تظهر كما بالصورة Untitled2 وعند برنامج قمت بعملة عندما اريد اضافة الكود كما بالصورة لا يظهر معى Node Nodes كما بالصورة Untitled كيف اظهرهم فى المكتبة البرمجية

الخبير الفاضل Eng.Qassim بالفعل قمت بتثبيت اوفيس 2016 والبرنامج يعمل بكفاءة شكرا لك

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

اتفضل AAA.accdb

السادة الخبراء الافاضل هل يمكن الجمع فى استعلام تجميعى كما بالصورة

استاذى ابو خليل ويندوز ٧ لايحتوى علي هذة الخاصية اية الحل من وجة نظرك

اضغط علي اسم الملف لا يحدث شئ ولا حتى close لا يغلق البرنامج ولا تظهررسائل

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

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

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

الفاضل ابوخليل اسف لازعاجك

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

السادة الخبراء الافاضل اولا اهنئكم باقتراب المولد النبوى الشريف ثانيا هل من الممكن فتح نموذج او تقرير من خلال الشحرة وكيف يتم ذلك اريد عند الضغط على jo يفتح نموذج jo عند الضغط على cash يفتح نموذج cash ثالثا هل من الممكن عمل مربع بحث فى الشجرة لسهولة الوصول للشخص المطلوب خالص الشكر tree.accdb

نموذج رئيسى اسمة cash 3 نماذج فرعية Request subCash Patient_Cash REQ مربع نص غير منضم فى النموذج الرئيسى CASH اريد اختصار لهذا الكود او كتابة بشكل افضل On Error Resume Next If Me.REQ = "*" Then Request.SetFocus DoCmd.GoToRecord , , acNewRec DoCmd.OpenQuery "Add_Cash Request" Me.Request.Requery If DCount("[pcode]", "request", "[pcode]=" & [Forms]![CASH]![Pateint Code] & " and [out_price]>0") Then Me.Request.Form!Yes_LAB = ChrW(10003) Else Me.Request.Form!Yes_LAB = "" End If Me.subCash.Requery Me.Patient_Cash.Requery Me.Request.Form!Yes_LAB = ChrW(10003) DoCmd.GoToRecord , , acLast '------------------------------------------------------------------------------------------------ ElseIf Me.REQ = 0 Then Request.SetFocus DoCmd.GoToRecord , , acNewRec Request.Form!T_Code = 0 Me.Request.Form!IN_price = Me.Request.Form!IN_Lab Me.Request.Form!Out_price = Me.Request.Form!Out_lab Me.Request.Form!TName_R = Me.Request.Form!TName Me.Request.Form!Date_R = Me.Request.Form!DDate Me.Request.Form!T_Code.SetFocus Me.Request.Form!T_Code.SetFocus DoCmd.GoToRecord , , acNewRec Me.subCash.Requery Me.Patient_Cash.Requery '------------------------------------------------------------------------------------------------ ElseIf Me.REQ = 1 Then Request.SetFocus DoCmd.GoToRecord , , acNewRec Request.Form!T_Code = 1 Me.Request.Form!IN_price = Me.Request.Form!IN_Lab Me.Request.Form!Out_price = Me.Request.Form!Out_lab Me.Request.Form!TName_R = Me.Request.Form!TName Me.Request.Form!Date_R = Me.Request.Form!DDate Me.Request.Form!T_Code.SetFocus DoCmd.GoToRecord , , acNewRec Me.subCash.Requery Me.Patient_Cash.Requery '------------------------------------------------------------------------------------------------ ElseIf Me.REQ = 2 Then Request.SetFocus DoCmd.GoToRecord , , acNewRec Request.Form!T_Code = 3 Me.Request.Form!IN_price = Me.Request.Form!IN_Lab Me.Request.Form!Out_price = Me.Request.Form!Out_lab Me.Request.Form!TName_R = Me.Request.Form!TName Me.Request.Form!Date_R = Me.Request.Form!DDate DoCmd.GoToRecord , , acNewRec Request.Form!T_Code = 4 Me.Request.Form!IN_price = Me.Request.Form!IN_Lab Me.Request.Form!Out_price = Me.Request.Form!Out_lab Me.Request.Form!TName_R = Me.Request.Form!TName Me.Request.Form!Date_R = Me.Request.Form!DDate Me.Request.Form!T_Code.SetFocus Me.Request.Form!T_Code.SetFocus DoCmd.GoToRecord , , acNewRec Me.subCash.Requery Me.Patient_Cash.Requery '------------------------------------------------------------------------------------------------ ElseIf Me.REQ = 3 Then Request.SetFocus DoCmd.GoToRecord , , acNewRec Request.Form!T_Code = 3 Me.Request.Form!IN_price = Me.Request.Form!IN_Lab Me.Request.Form!Out_price = Me.Request.Form!Out_lab Me.Request.Form!TName_R = Me.Request.Form!TName Me.Request.Form!Date_R = Me.Request.Form!DDate Me.Request.Form!T_Code.SetFocus DoCmd.GoToRecord , , acNewRec Me.subCash.Requery Me.Patient_Cash.Requery '------------------------------------------------------------------------------------------------ ElseIf Me.REQ = 4 Then Request.SetFocus DoCmd.GoToRecord , , acNewRec Request.Form!T_Code = 4 Me.Request.Form!IN_price = Me.Request.Form!IN_Lab Me.Request.Form!Out_price = Me.Request.Form!Out_lab Me.Request.Form!TName_R = Me.Request.Form!TName Me.Request.Form!Date_R = Me.Request.Form!DDate Me.Request.Form!T_Code.SetFocus DoCmd.GoToRecord , , acNewRec Me.subCash.Requery Me.Patient_Cash.Requery '------------------------------------------------------------------------------------------------ ElseIf Me.REQ = 5 Then Request.SetFocus DoCmd.GoToRecord , , acNewRec Request.Form!T_Code = 5 Me.Request.Form!IN_price = Me.Request.Form!IN_Lab Me.Request.Form!Out_price = Me.Request.Form!Out_lab Me.Request.Form!TName_R = Me.Request.Form!TName Me.Request.Form!Date_R = Me.Request.Form!DDate Me.Request.Form!T_Code.SetFocus DoCmd.GoToRecord , , acNewRec Me.subCash.Requery Me.Patient_Cash.Requery END IF كيف اوقف اهتزاز عناصر النموذج نموذج CASH ية صورة عند تحديت REQ تختفى الصورة للحظات وتعطى خلفية بيضاء ثم تعود الصورة مرة اخرى هل يوجد حل لهذة المشكلة

خالص الشكر للمساعدة

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

خالص الشكر

اريد عند تغيير التاريخ من + او- التاريخ الذى اقف عندة تصبح هو القيمة الافتراضية للسجلات التالية حتى اقوم بتغييرة مرة اخرىl مرفق ملف ببتعديلDatabase date+ -.accdb

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

خالص الشكر على معلمنا الخبير الفاضل AbuuAhmed

الخبير الفاضل AbuuAhmed اشكر سعة صدرك وتحمل اسالتنا قمت بتغيير اسم النموذج فى الاستعلام كما بالصور تظهر اخطاء فى الكود اليك الصور توجد قاعدة صغيرة للتعديل عليها بخبرة حضرتك RichText_Query_06.accdb النموذج الاول PlainText_Sel_06 بسيط جدا وقمت بالتعامل معاه بكل سلاسة لكن هل استطيع يغيير لون التضليل من الاسود الى الاصفر ولون الخط من الابيض الى الاحمر مثلا سامحنى لقلة خبرتى وجهلى شكرا جزيلا على اهتمام حضرتك بالرد عليا