jo_2010

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

السادة الخبراء الافاضل بعد التحية المطلوب داخل الصورة 2025.rar

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

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

السادة الافاضل الخبراء بعد التحية اعلم انة يوجد اكثر من مواضيع مشابة لسؤالى وحاولت تطبيقها على برنامجى وفشلت كل مااريدة هو تكرار السجل الحالى فى الثلاث جداول مع اضافة 1 الى حقل pcode لعدم التكرار رقم الكود وتحديث حقل التاريخ الى تاريخ اليوم الذى اكرر فى السجل لكم خالص الشكر 2025.rar

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

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

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

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

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

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

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

الخبراء الافاضل اريد تصحيح لدالة DECOUNT كما بالصورة JO.accdb

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

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

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