jo_2010

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

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

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

السادة الخبراء الافاضل هل قاعدة if كدة مكتوبة صح If me. xxx <> 0 and isnull (me.yyy) or me.yyy="" then هنا مكتب الحدث Else Ebd if المقصود انة اذا كان yyy لايساوى صفر و Xxx فارغ كدة القاعدة سليمة لماذا لاتعمل معى

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

السادة الخبراء الافاضل بعد التحية اريد تحقيق الطلب الموجود بالصورة ولكم الشكر jo2025_2.accdb

خالص الشكر للمبدع الخبير الفاضل فوكش

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

الخبير المبدع Foksh شكرا على الابداع ولكن الكود المكتوب فى الاستعلام لايعمل بشكل جيد ارجو اعادة صياغتة

الخبراء الافاضل برجاء المساعدة jo2025.accdb

الخبراء الافاضل رمضان كريم فى النموذج عند الضغط على الزر الاحمر تظهر صورة المختبر وعند الضغط على الزر الاصفر تظهر صورة البرج لحد هنا كلة تمام لكن عند التصفح ومراجعة البيانات اجد صورة البرج ظاهرة على الرغم من ان EXTERNAL _LAB فارغة ارجو حل هذة المشكلة شكرا لكم jo2025.accdb

السادة الخبراء الافاضل بعد التحية Sub DuplicateRecords() Dim db As DAO.Database Dim rs As DAO.Recordset Dim newPCode As Long Dim todayDate As Date Dim sqlInsertLab As String Dim sqlInsertRequest As String Dim sqlInsertTests As String ' فتح قاعدة البيانات الحالية Set db = CurrentDb() todayDate = Date (اريد التعديل على التاريخ ليعطى تاريخ اليوم لانة يعطى يعكس الشهر مكان اليوم) ' جلب آخر PCode من جدول tbl_NewLab لتجنب التكرار Set rs = db.OpenRecordset("SELECT MAX(PCode) AS MaxPCode FROM tbl_NewLab") If Not rs.EOF Then newPCode = rs!MaxPCode + 1 Else newPCode = 1 ' في حالة عدم وجود سجلات End If rs.Close ' استبدال المرجع بالصيغة الصحيحة Dim currentPCode As Long currentPCode = Forms!New_Project!newRequest.Form!PCode ' إدراج السجل الجديد في tbl_NewLab sqlInsertLab = "INSERT INTO tbl_NewLab (DDate, PCode, Pname, Name_Month, C_Year, Area, Code_Month, Mon_Year) " & _ "SELECT #" & todayDate & "#, " & newPCode & ", Pname, Name_Month, C_Year, Area, Code_Month, Mon_Year " & _ "FROM tbl_NewLab WHERE PCode = " & currentPCode db.Execute sqlInsertLab ' إدراج السجل الجديد في tbl_NewRequest sqlInsertRequest = "INSERT INTO tbl_NewRequest (PCode, TCode, Date_R, Price_R, Tname_R) " & _ "SELECT " & newPCode & ", TCode, #" & todayDate & "#, Price_R, Tname_R " & _ "FROM tbl_NewRequest WHERE PCode = " & currentPCode db.Execute sqlInsertRequest ' إدراج السجل الجديد في tbl_NewTests (إذا لزم الأمر) sqlInsertTests = "INSERT INTO tbl_NewTests (TCode, TName, Price) " & _ "SELECT TCode, TName, Price " & _ "FROM tbl_NewTests WHERE TCode IN (SELECT TCode FROM tbl_NewRequest WHERE PCode = " & currentPCode & ")" db.Execute sqlInsertTests MsgBox "تم تكرار السجل بنجاح مع تحديث PCode والتاريخ.", vbInformation End Sub Private Sub أمر4030_Click() DuplicateRecords End Sub هذا الكود من المبدع الخبير الفاضل ابو جودي ولكن فى التاريخ بدل من 6 فبراير2025 يعطى 2 يونيو 2025 يستبدل اليوم بالشهر ارجو تعديل الكود

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