jo_2010

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

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

اريد ان يظهر فى التقرير اسم التحليل والنتيجة وnormal فقط والناقى يختفى

الخبراء الاعزاء لكم التحية اريد ما بالصورة Report.accdb

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

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

الخبير المبدع شكرا علي الحلول الرائعة التى تقدمها لي عدة طلبات سامحنى علي الاطالة ١ إضافة اجماليات لكل حقول الاكسل ٢ كتابة اسم المريض علي ملف الاكسيل بعد التصدير ملف pdf يفتح لكنة لم يحفظ اريد حفظة بجوار الاكسيل وياخد اسم المريض شكرا لحضرتك

الخبير الفاضل jjafferr قمت بتجربة البرنامج بعد تعديل حضرتك علية واعطى رسالة خطا عند ضغط التصدير الى اكسيل او PDF DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Qry_Lab_Request_for_EXPORT", File_Path, True باللون الاصفر فى pdf و اكسيل

الخبراء الاعزاء كل ماريدة فى الصورة اريد التصدير باسم المريض TO EXCEL_PDF.accdb

عندما يحتمع الخبراء لحل مشكلة تظهر الحلول المتعدد شكرا لكم جميعا

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

الخبراء الافاضل لكم خالص الشكر على مساعدتى

جرب نحمل الملف اعتقد ممكن يقبل 2 mb

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

ممكن لو تكرمت تضغط القاعدة وتبعتها مضغوطة

كل ما اريدة فى الصورة LAb_Mobile.rar

الحمد للة توصلت للكود الاصلى الذى كتبة لى احد الخبراء الافاضل بالمنتدى وقمت بعرضة عليكم لمن يريد الاستفادة منة Sub DuplicateRecords() On Error Resume Next Dim DB As DAO.Database Dim RS As DAO.Recordset Dim newPCode As Long Dim TodayDate As Date Dim JO_Insert_Lab As String Dim JO_Insert_Result As String ' فتح قاعدة البيانات الحالية Set DB = CurrentDb() TodayDate = Format(Date, "mm/dd/yyyy") ' تنسيق التاريخ بالشكل الصحيح ' جلب آخر PCode من جدول Tbl_Lab_All لتجنب التكرار Set RS = DB.OpenRecordset("SELECT MAX(PCode) AS MaxPCode FROM Tbl_Lab_All") If Not RS.EOF Then newPCode = RS!MaxPCode + 1 Else newPCode = 1 ' في حالة عدم وجود سجلات End If RS.close ' استبدال المرجع بالصيغة الصحيحة Dim currentPCode As Long currentPCode = Forms!Laboratory!Lab_Request.Form!PCode ' إدراج السجل الجديد في Tbl_Lab_All JO_Insert_Lab = "INSERT INTO Tbl_Lab_All (DDate, PCode,Code_kind, Pname, Name_Month, C_Year, age,DMY, Doctor,Code_Month, Mon_Year) " & _ "SELECT #" & TodayDate & "#, " & newPCode & ", Code_kind,Pname, Name_Month, C_Year, age,DMY, Doctor,Code_Month, Mon_Year " & _ "FROM Tbl_Lab_All WHERE PCode = " & currentPCode DB.Execute JO_Insert_Lab ' إدراج السجل الجديد في Tbl_Lab_Results JO_Insert_Result = "INSERT INTO Tbl_Lab_Results (PCode, OK) " & _ "SELECT " & newPCode & ", OK " & _ "FROM Tbl_Lab_Results WHERE PCode IN (SELECT PCode FROM Tbl_Lab_All WHERE PCode = " & currentPCode & ")" DB.Execute JO_Insert_Result Me.Requery Me.FilterOn = False DoCmd.GoToRecord , , acLast Me.Esal.SetFocus Me.Esal.Locked = False ' MsgBox " تم تكرار السجل بنجاح مع تحديث كود المريض و تاريخ اليوم ", vbInformation ' Me.FilterOn = False ' DoCmd.GoToRecord , , acLast End Sub Private Sub Duplicate_Click() Select Case MsgBox(" " & " هـل . . . . . تـريـد تكـرار بيــانات الســجل " & vbNewLine & vbCrLf & _ " الخـاص بــ " & PNAME & vbNewLine & vbCrLf & vbCrLf & _ "Yes = كــرر الســجل No = لا تكــرر السجــل ", vbQuestion + vbMsgBoxRight + vbYesNo, JO_Title) Case vbYes DuplicateRecords Case vbNo DoCmd.CancelEvent End Select End Sub

الخبراء الافاضل برجاء المساعدة المطلوب مكتوب فى الصورة TEST -2.rar

شكرا علي ابداء رايك

معلمى الفاضل توصلت لحل متواضع اريد عرضة على حضرتك افتح القاعدة الجديدة واتفرج عليها واذا كان هناك تعديل من حضرتك لتصبح افضل مما هى علية قم بالتعديل على النموذج ولك الشكر وافينى برايك لان مهم عندى جدا JO_Lab.rar

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

معلمى الفاضل انظر الصور