jo_2010

خالص الشكر

استاذى الفاضل كل مااريدة هو عند تحديد اى سجل من النموذج الفرعى يظهر رقم الكود الخاص بالسجل فى مريع نص I'd فى الرئيسى اريد تحديث هذا السجل فقط وليس كل السجلات كما بالصورة فى النموذج الرئيسى انا واقف علي سجل رقم ٤٠ ومن النموذج الفرعى حددت رقم ٣٨ ظهر رقم ٣٨ فى النموذج الرئيسي اريد تحديث هذا السجل فقط بإضافة بكلمة المختبر لحقلexternal_lab عند الضغط علي الزر الأحمر او بكلمة البرج عند الضغط علي الزر الأصفر اتمنى بكون طلبى واضح بالنسبة لاختلاف تنسيق التقرير لا توجد مشكلة اعمل علي هذا البرنامج من ٥ سنوات

استاذى الفاضل إليك قاعدة مصغرة للتعديل عليها JO_Lab.rar

DoCmd.RunSQL "UPDATE Tbl_Lab_Requests SET Tbl_Lab_Requests.R_External_lab = ""المختبر"" " & _ " WHERE (((Tbl_Lab_Requests.PCode)= [Forms]![Laboratory]![id]));" DoCmd.RunSQL "UPDATE Tbl_Lab_Requests SET Tbl_Lab_Requests.R_External_lab = ""المختبر"" " & _ " WHERE (((Tbl_Lab_Requests.PCode)= [Forms]![Laboratory]![id]));"

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

الخبراء الافاضل بعد التحية والاحترام عندى نموذج فرعى مستمر وأمام كل سجل ٣ ازرار m _l_b ومربع نص اسمة total_out اريد ان وتختفى الازرار الثلاتة فى حالة total_out = 0 , وتظهر الازرار الثلاتة اذا كان 0 <> total_out لكم الشكر عملت قاعدة if فى حدث السجل الحالى ولم يعطى نتائج جبدة

الخبراء الافاضل بعد التحية بفضل الله ومساعدتكم تمكنت من الوصول الى مااريد المرفق بعد التعديل LAB_2.accdb LAB_2.accdb

الخبير الفاضل foksh فى حالة المريضة حسناء عبدالظاهر طالماtotal_out =0 لاداعى من كتابة اسم اى معمل لن نحتاج إلى إضافة معمل خارجى البرج او المختبر لذلك لا اريد تنسيق اريد التنسيق في حالة total_ out أكبر من صفر وانا نسيت اختار اسم المعمل البرج او المختبر وأصبح اسم المعمل فارغ اريدالتنسيق للتنبية بأنة لابد من إضافة اسم معمل خارجى برج او مختبر وعند الاختيار يتم تلوين خانة اسم المعمل زى ما انا عامل التنسيق من خلال الزر الأحمر والاصفر

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

الخبراء الافاضل اريد تنفيذ الموجود بالصورة اتمنى يكون طلبى واضح LAB.rar

شكرا Foksh يامبدع

الخبراء الافاضل بعد التحية if me.ddate=date() then الحدث else endif عند كتابة () Date فى الكود تختفى الاقواس كيف اكتبها بطريقة صحيحة تاريخ اليوم شكرا

الخبير الفاضل Foksh خالص الشكر على الابداع

الخبير الفاضل kkhalifa1960 شكرا لمساعدتى اريد الزر يكون داخل نموذج JO_IN_OUT ارجو اضافة زر جديد داخل النموذج المستمر وليس فى النموذج الاصلى labo راجع الصورة بالاعلى شكرا

الخبراء الاعزاء لكم التحية اتمنى تكونوا قضيتم عيد سعيد اريد تنفيذ ما بالصورة 2025.accdb

الخبراء الافاضل بعد الحية DoCmd.OpenForm "JO_IN_OUT", , , "[Ddate]=" & Me.ddate اريد فتح نموذج jo_IN_OUT من داخل نموذج Laboratry بشرط يفتح على نفس التاريخ الموجود فى laboratory لكم خالص الشكر الكود المكتوب يصلح لو رقم وليس تاريخ

المبدع ابو جودي خالص الشكر لتعب حضرتك وعمل هذة الدالة الرائعة ولكنى اريد الشكل كما بالصورة هل هذا ممكن ام انا اطلب طلب غير ممكن هل استطيع تنفي1 ما بالصورة وكيف استطيع تجميع الساعات والدقائق 5:22+7:13 على مدار الشهر حتى اصل الى الاضافى فى عدد ساعات العمل ملحوظة عدد الايام فى الدالة يعطى نتيجة خطا 31/3/2025 8:00AM الى 1/4/2025 10:05AM الفرق 26 ساعة و5 دقائق فى الدالة اللى حضرتك كتبتها تعطى يومين وهو فى الحقيقة يوم واحد و2 ساعة و5 دقائق خالص الشكر

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

الخبير الفاضل Eng.Qassim اشكرك على سرعة الاستجابة ومن اجل الحلول المتعددة لكن او تصحيح بعض الامور كما بالصورة

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

الخبير الفالضل والمعلم المتميز ابو جودي عيد سعيد وكل سنة وحضرتك طيب شكرا لاهتمام حضرتك بموضوعى وحل المشكلة بطريقة سحرية لم اكن اتوقعها ولكنى لم اكن اعلم ان الفلاشر لايعمل مع النماذج المستمرة شكرا للمعلومة ممكن لو تكرمت مثال بسيط من حضرتك كيف استفيد من كود الالوان الكثيرة اللى حضرتك كتبتها لك خالص الشكر Option Compare Database Option Explicit Public Enum FlashColors FlashWhite = 16777215 ' الأبيض - White (vbWhite) FlashBlack = 0 ' الأسود - Black (vbBlack) FlashRed = 255 ' الأحمر - Red (vbRed) FlashGreen = 65280 ' الأخضر - Green (vbGreen) FlashBlue = 16711680 ' الأزرق - Blue (vbBlue) FlashYellow = 65535 ' الأصفر - Yellow (vbYellow) FlashMagenta = 16711935 ' الماجنتا - Magenta (vbMagenta) FlashCyan = 16776960 ' السماوي - Cyan (vbCyan) FlashOrange = 42495 ' البرتقالي - Orange (RGB: 255, 165, 0) FlashPurple = 8388736 ' البنفسجي - Purple (RGB: 128, 0, 128) FlashPink = 13353215 ' الوردي - Pink (RGB: 255, 192, 203) FlashLime = 65280 ' الليموني - Lime (RGB: 0, 255, 0) FlashTeal = 32896 ' البترولي - Teal (RGB: 0, 128, 128) FlashViolet = 15631086 ' الفيوليت - Violet (RGB: 238, 130, 238) FlashBrown = 2763429 ' البني - Brown (RGB: 165, 42, 42) FlashGold = 55295 ' الذهبي - Gold (RGB: 255, 215, 0) FlashSilver = 12632256 ' الفضي - Silver (RGB: 192, 192, 192) FlashGray = 8421504 ' الرمادي - Gray (RGB: 128, 128, 128) FlashDarkRed = 139 ' الأحمر الداكن - Dark Red (RGB: 139, 0, 0) FlashDarkGreen = 25600 ' الأخضر الداكن - Dark Green (RGB: 0, 100, 0) FlashDarkBlue = 9109504 ' الأزرق الداكن - Dark Blue (RGB: 0, 0, 139) FlashOlive = 32896 ' الزيتوني - Olive (RGB: 128, 128, 0) FlashMaroon = 128 ' المارون - Maroon (RGB: 128, 0, 0) FlashNavy = 8388608 ' الكحلي - Navy (RGB: 0, 0, 128) FlashTurquoise = 13757312 ' التركواز - Turquoise (RGB: 64, 224, 208) FlashIndigo = 8519755 ' النيلي - Indigo (RGB: 75, 0, 130) FlashCoral = 5275647 ' المرجاني - Coral (RGB: 255, 127, 80) FlashSalmon = 7504122 ' السلموني - Salmon (RGB: 250, 128, 114) FlashBeige = 14480885 ' البيج - Beige (RGB: 245, 245, 220) FlashLavender = 16443110 ' الخزامى - Lavender (RGB: 230, 230, 250) End Enum ' تعداد لتحديد نوع الوميض: لون النص أو لون الخلفية Public Enum flashType FlashForeColor = 0 ' الوميض على لون النص - ForeColor FlashBackColor = 1 ' الوميض على لون الخلفية - BackColor End Enum ' دالة لجعل مربع النص يومض بلونين محددين بناءً على شرط معين ' txtBox: مربع النص الذي سيتم تطبيق الوميض عليه ' condition: الشرط الذي يحدد ما إذا كان الوميض سيتم تفعيله أم لا ' color1: اللون الأول للوميض (اختياري، الافتراضي هو FlashYellow) ' color2: اللون الثاني للوميض (اختياري، الافتراضي هو FlashRed) ' flashType: نوع الوميض (لون النص أو الخلفية، اختياري، الافتراضي هو FlashForeColor) Public Sub FlashTextBox(txtBox As TextBox, condition As Boolean, Optional color1 As FlashColors = FlashYellow, Optional color2 As FlashColors = FlashRed, Optional flashType As flashType = FlashForeColor) ' متغير ثابت لتتبع حالة الوميض (يتغير بين True وFalse) Static isFlashing As Boolean ' التحقق من تحقق الشرط If condition Then ' تحديد ما إذا كان الوميض سيطبق على لون النص أو الخلفية بناءً على flashType If flashType = FlashForeColor Then ' الوميض على لون النص If isFlashing Then txtBox.ForeColor = color1 ' تعيين اللون الأول للنص Else txtBox.ForeColor = color2 ' تعيين اللون الثاني للنص End If Else ' الوميض على لون الخلفية If isFlashing Then txtBox.BackColor = color1 ' تعيين اللون الأول للخلفية Else txtBox.BackColor = color2 ' تعيين اللون الثاني للخلفية End If End If ' عكس حالة الوميض للتبديل في المرة القادمة isFlashing = Not isFlashing ' تحديث الشاشة لعرض التغيير فوراً Application.Echo True Else ' إذا لم يتحقق الشرط، إعادة الإعدادات إلى الافتراضية If flashType = FlashForeColor Then txtBox.ForeColor = FlashBlack ' لون النص الأسود كافتراضي Else txtBox.BackColor = FlashWhite ' لون الخلفية الأبيض كافتراضي End If End If End Sub الاستدعاء ' استدعاء الدالة العامة للوميض ' txtValue هو اسم مربع النص الذي يحتوي على القيمة (مثل 5) ' txtFlash هو اسم مربع النص الذي سيمضي FlashTextBox Me.txtFlash, (Me.txtValue = "5"), FlashGold, FlashBlue ------------------------------------------------------- أو لتغير خلفية مربع النص FlashTextBox Me.txtFlash, (Me.txtValue = "5"), FlashMagenta, FlashWhite, FlashBackColor ------------------------------------------------------- أو لتغير لون الخط وهو الافتراضى كما بالكود FlashTextBox Me.txtFlash, (Me.txtValue = "5"), FlashMagenta, FlashWhite أو FlashTextBox Me.txtFlash, (Me.txtValue = "5"), FlashMagenta, FlashWhite, FlashForeColor

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

استاذى الفاضل ومعلمى ابو جودي بعد التحية اقف عاجز امام ابدعاتك التى لا تنتهى ومعرفتى المتواضعة بالاكسيس امام علمك الغزيز تجعلنى غيرقادر على التطبيق على برنامج الاصلى لذلك ارسلت نسخة مصغرة من البرنامج للتطبيق عليها لو تكرمت اريد فى النموذج الفرعى المستمر Lab_Patient ادا تحقق الشرط If me.Total_Out <> 0 and (isnull (me.External_lab) or me.External_lab="") then يحدث الفلاشر واذا لم يتحقق الشرط لايحدث شى كيف استفيد من كود الالوان الكثيرة اللى حضرتك ارسلتة تقبل الله صيامك وجعل مساعدتك لنا فى ميزان حساناتك اكرر اعتذارى للاطالة LAB.accdb

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

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