jo_2010

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

اتفضل 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 بسيط جدا وقمت بالتعامل معاه بكل سلاسة لكن هل استطيع يغيير لون التضليل من الاسود الى الاصفر ولون الخط من الابيض الى الاحمر مثلا سامحنى لقلة خبرتى وجهلى شكرا جزيلا على اهتمام حضرتك بالرد عليا

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

الخبير الفاضل AbuuAhmed المبدع لكى يكتمل هذا العمل الرائع هل من الممكن التصفية اثناء الكتابة بدل من الضغط على مفتاح enter للحصول على كلمات البحث المتشابهة

حاولت ولم اتمكن

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

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

خالص الشكر لحضرتك مجهود يحترم ممكن اضافة تلوين خلفية البحث