kkhalifa1960

تفضل المرفق مضبوط ومجرب والبرجرسبار والعداد يعملان ......... ومعه ملف اكسل للتجربة فقط استخد الذي لديك ... 2026.rar

ارسل المرفق كامل مع ملف الاكسل لضبطة .

استاذ @Taher DZ المرفق الاخير الذي ارسلته لك به موديول عام به دالة تأخير الوقت . فلما تحب تشغل الكود على مشروع أخر انقل الموديول معها كي تعمل . 2026-1.rar

تفضل . Mon_Excel_Bilal_Yamen-1.rar

حتى ولو البيانات لم تتغير يضيف سطر جديد أم نضيف حقل لتاريخ اليوم .

تقصد لنفس الموظف .... يحدث الموجود أم يضيف عليه سطر جديد .

استاذ @بلال اليامين هل تقصد جلب الورقة بجدول جديد باسم الورقة (Feuil1) . طالع المرفق ووافني بالرد . انت بطول في الرد .... رد بأسرع وقت قبل نسياني لأني من كثرة الاعمال لديا بنس عملت ايه ولمين ...... لا تعتمد اني أقرأ ما بداخلك اشرح بالتفصيل يا بخيلي .... اليك المرفق وطالع الجدول الجديد .. Mon_Excel_Bilal_Yamen.rar

تفضل . Taher DZ-3.rar

انا لاحظت ان عداد النسبة تحت البروجرسبار متوقف على 0 فعدلت المرفق . Taher DZ-2.rar

استاذ @Taher DZ انت اتقنت الفكرة والطريقة بالمرفق الاول . اتركها بما فيها لان الصورة بالمرفق الاول ............... استخدم المرفق الثاني ولاحظ الدالة المشار اليها تغيرت تماماُ . طالع الشرح .

بما انك وصلت لهنا النتيجة انك فهمت الموضوع لكن اذكرك لاتنسى حفظ مستند الوورد بعد أي تعديل . تفضل المرفق بعد التعديل بطلبك 4 اماكن مختلفة . طالع كود الاكسس ومستند الوورد . اليك المرفق . هذه الطريقة لا تمنع المستخدم من تعديل النصوص المدمجة بشكل عشوائي . كما ظهرت في تجارب المستخدم السابقة . Taher DZ-1.rar

تفضل استاذ @jo_2010 كود الزر بعد التعديل بطلبك .ووافني بالرد . Private Sub أمر1595_Click() Dim TaskDialog As Y_CTaskDialog Set TaskDialog = New Y_CTaskDialog Dim sSubReport As String sSubReport = Screen.ActiveControl.Caption ' مسار التصدير Dim sBasePath As String Dim sFolder As String Dim sPDF As String sBasePath = CurrentProject.Path sFolder = sBasePath & "\MyReports" ' إنشاء المجلد إن لم يكن موجودًا If Dir(sFolder, vbDirectory) = "" Then MkDir sFolder End If With TaskDialog .Init .ParenthWnd = Me.hwnd .Flags = TDF_RTL_LAYOUT Or TDF_USE_COMMAND_LINKS _ Or TDF_USE_IMAGERES_ICONID_BUTTON .AddCustomButton 101, _ " طبـاعـة كـل التقـارير بتاريخ " & " / " & DDate & vbLf & _ " عدد التقارير " & URn & " تقرير ", 5380 .AddCustomButton 102, _ " طبـاعـة تقــريــــر واحــــد " & vbLf & _ " باســــم / " & PNAME & " ", 5351 .AddCustomButton 103, _ " تــراجــــــع عـن الطبــاعـة ", 5315 .SetWindowsButtonIconSize 32 .MainInstruction = "جمعية حماية البيئة من التلوث" .Content = "معمـل الام والطفــل" .IconMain = 76 .Title = "طباعـــة" .Width = 250 .ShowDialog Select Case .ResultMain ' ===== الحالة 101 ===== Case 101 Me.Refresh ' مسار واسم ملف PDF sPDF = sFolder & "\AllReports_" & _ Format(Me.DDate, "yyyy-mm-dd") & ".pdf" ' فتح التقرير في وضع مخفي DoCmd.OpenReport "Y_N_Report", acViewPreview, , _ "ddate = #" & Format(Me.DDate, "yyyy-mm-dd") & "# AND NOT IsNull(colour)", _ acHidden, sSubReport ' تصدير التقرير إلى PDF DoCmd.OutputTo acOutputReport, "Y_N_Report", acFormatPDF, sPDF, False ' إغلاق التقرير DoCmd.Close acReport, "Y_N_Report" ' فتح ملف الـ PDF بعد التصدير Application.FollowHyperlink sPDF ' ===== الحالة 102 ===== Case 102 Me.Refresh Dim PatientName As String Dim FileDate As String Dim RLM As String Dim LRM As String RLM = ChrW(&H200F) ' Right-To-Left Mark LRM = ChrW(&H200E) ' Left-To-Right Mark ' اسم المريض PatientName = Me.PNAME ' تنظيف الرموز غير المسموحة PatientName = Replace(PatientName, "/", "-") PatientName = Replace(PatientName, "\", "-") PatientName = Replace(PatientName, ":", "-") ' التاريخ FileDate = Format(Date, "dd-MM-yyyy") ' اسم الملف (اتجاه مضبوط 100%) sPDF = sFolder & "\" & _ RLM & PatientName & RLM & "_" & LRM & FileDate & ".pdf" ' فتح التقرير بشكل مخفي DoCmd.OpenReport "Y_N_Report", acViewPreview, , _ "[PCode]=" & Me.PCode, acHidden, sSubReport ' تصدير PDF DoCmd.OutputTo acOutputReport, "Y_N_Report", acFormatPDF, sPDF, False ' إغلاق التقرير DoCmd.Close acReport, "Y_N_Report" ' فتح ملف الـ PDF Application.FollowHyperlink sPDF Case 103 Exit Sub End Select End With Set TaskDialog = Nothing End Sub

تفضل استاذ @mahmoud nasr alhasany المرفق بعد التعديل حسب ما فهمت .. تم اضافة جدول للعملاء وضبط الطلب الاول وعمل 3 استعلامات جديدة بباقي طلباتك . راجع المرفق . ولو حابب نكمل او نضيف او نعدل انا حاضر . ووافني بالرد . mahmoud nasr alhasany.rar

تفضل استاذ @Taher DZ الشرح بالتفصيل بما ان Bookmarks ليست امنه نستخدم Content Control بدلا منها افتح ملف الوورد المراد وجهزه بالاماكن واذا لم يكن Developer Tab مفعل اتبع الخطوات التالية خطوات تسمية Content Control في Word تفعيل تبويب المطوّر (Developer Tab) افتح Word → File → Options → Customize Ribbon. فعل خيار Developer عشان يظهر في الشريط. إدراج Content Control من تبويب Developer اختر Plain Text Content Control أو Rich Text Content Control وضعه في المكان المطلوب. فتح خصائص الحقل اضغط على الـ Content Control اللي أضفته. من تبويب Developer اضغط على زر Properties. إدخال التعريف (Tag) في نافذة الخصائص هتلاقي خانه مهمه: Tag: يستخدمه الكود للتعامل مع الحقل. اكتب مثلاً: Tag = 1 وهكذا لباقي Content Controls كما بالشرح المرفق حفظ مستند الوورد مثلاً باسم 1960 بعد تسمية كل Content Control، احفظ المستند. الآن تقدر تستدعي الحقول بالكود بالاسم (ContentControls.Item(1)). اليك المرفق به نموذجان . جرب وأي استفسار انا حاضر . ووافني بالرد . Taher DZ.rar

ولو عاوز حالة التقارير كلها فتح التقارير كلها فى وضع مختفى وفتحها كPDF بعد التصدير اليك كود الزر كامل . Private Sub أمر1595_Click() Dim TaskDialog As Y_CTaskDialog Set TaskDialog = New Y_CTaskDialog Dim sSubReport As String sSubReport = Screen.ActiveControl.Caption ' مسار التصدير Dim sBasePath As String Dim sFolder As String Dim sPDF As String sBasePath = CurrentProject.Path sFolder = sBasePath & "\MyReports" ' إنشاء المجلد إن لم يكن موجودًا If Dir(sFolder, vbDirectory) = "" Then MkDir sFolder End If With TaskDialog .Init .ParenthWnd = Me.hwnd .Flags = TDF_RTL_LAYOUT Or TDF_USE_COMMAND_LINKS _ Or TDF_USE_IMAGERES_ICONID_BUTTON .AddCustomButton 101, _ " طبـاعـة كـل التقـارير بتاريخ " & " / " & DDate & vbLf & _ " عدد التقارير " & URn & " تقرير ", 5380 .AddCustomButton 102, _ " طبـاعـة تقــريــــر واحــــد " & vbLf & _ " باســــم / " & PNAME & " ", 5351 .AddCustomButton 103, _ " تــراجــــــع عـن الطبــاعـة ", 5315 .SetWindowsButtonIconSize 32 .MainInstruction = "جمعية حماية البيئة من التلوث" .Content = "معمـل الام والطفــل" .IconMain = 76 .Title = "طباعـــة" .Width = 250 .ShowDialog Select Case .ResultMain ' ===== الحالة 101 ===== Case 101 Me.Refresh ' مسار واسم ملف PDF sPDF = sFolder & "\AllReports_" & _ Format(Me.DDate, "yyyy-mm-dd") & ".pdf" ' فتح التقرير في وضع مخفي DoCmd.OpenReport "Y_N_Report", acViewPreview, , _ "ddate = #" & Format(Me.DDate, "yyyy-mm-dd") & "# AND NOT IsNull(colour)", _ acHidden, sSubReport ' تصدير التقرير إلى PDF DoCmd.OutputTo acOutputReport, "Y_N_Report", acFormatPDF, sPDF, False ' إغلاق التقرير DoCmd.Close acReport, "Y_N_Report" ' فتح ملف الـ PDF بعد التصدير Application.FollowHyperlink sPDF ' ===== الحالة 102 ===== Case 102 Me.Refresh Dim PatientName As String Dim FileDate As String ' اسم المريض PatientName = Me.PNAME ' تنظيف الاسم من الرموز غير المسموح بها في أسماء الملفات PatientName = Replace(PatientName, "/", "-") PatientName = Replace(PatientName, "\", "-") PatientName = Replace(PatientName, ":", "-") ' تنسيق التاريخ FileDate = Format(Date, "dd-mm-yyyy") ' مسار واسم ملف الـ PDF (اسم المريض ثم التاريخ) sPDF = sFolder & "\" & PatientName & "_" & FileDate & ".pdf" ' فتح التقرير بشكل مخفي DoCmd.OpenReport "Y_N_Report", acViewPreview, , _ "[PCode]=" & Me.PCode, acHidden, sSubReport ' تصدير التقرير إلى PDF DoCmd.OutputTo acOutputReport, "Y_N_Report", acFormatPDF, sPDF, False ' إغلاق التقرير DoCmd.Close acReport, "Y_N_Report" ' فتح ملف الـ PDF بعد التصدير Application.FollowHyperlink sPDF Case 103 Exit Sub End Select End With Set TaskDialog = Nothing End Sub

تفضل استاذ @jo_2010 الكود بعد التعديل بطلبك ومجرب . ووافني بالرد . Case 102 Me.Refresh Dim PatientName As String Dim FileDate As String ' اسم المريض PatientName = Me.Pname ' تنظيف الاسم من الرموز غير المسموح بها في أسماء الملفات PatientName = Replace(PatientName, "/", "-") PatientName = Replace(PatientName, "\", "-") PatientName = Replace(PatientName, ":", "-") ' تنسيق التاريخ FileDate = Format(Date, "dd-mm-yyyy") ' مسار واسم ملف الـ PDF (اسم المريض ثم التاريخ) sPDF = sFolder & "\" & PatientName & "_" & FileDate & ".pdf" ' فتح التقرير بشكل مخفي DoCmd.OpenReport "Y_N_Report", acViewPreview, , _ "[PCode]=" & Me.PCode, acHidden, sSubReport ' تصدير التقرير إلى PDF DoCmd.OutputTo acOutputReport, "Y_N_Report", acFormatPDF, sPDF, False ' إغلاق التقرير DoCmd.Close acReport, "Y_N_Report" ' فتح ملف الـ PDF بعد التصدير Application.FollowHyperlink sPDF

دمج المراسلات بطريقة (Bookmarks) غير موثوقة . يفضل استخدام طريقة (Content Controls) . لو حابب . الشرح + المرفق الاول معدل بها . وافني بالرد .

تفضل استاذ @jo_2010 المرفق بعد التعديل بطلبك . ووافني بالرد . JOOO-1.rar

Dim FileName As String ' نأخذ الـ Caption من الـ Control النشط ونستخدمه كاسم للملف FileName = "C:\Reports\" & Screen.ActiveControl.Caption & "_" & Format([DDate], "yyyymmdd") & ".pdf" ' فتح التقرير في الخلفية مع الشرط DoCmd.OpenReport "Y_N_Report", acViewPreview, , _ "ddate = #" & Format([DDate], "yyyy-mm-dd") & "# AND NOT IsNull(colour)", , acHidden ' تصدير التقرير إلى PDF بالاسم الديناميكي DoCmd.OutputTo acOutputReport, "Y_N_Report", acFormatPDF, FileName, False ' إغلاق التقرير بعد التصدير DoCmd.Close acReport, "Y_N_Report" السابق يحفظ بمجلد (Reports) بالمسار (C) Dim FileName As String ' تكوين اسم الملف بجوار القاعدة FileName = CurrentProject.Path & "\" & Screen.ActiveControl.Caption & "_" & Format([DDate], "yyyymmdd") & ".pdf" ' فتح التقرير في الخلفية مع الشرط المطلوب DoCmd.OpenReport "Y_N_Report", acViewPreview, , _ "ddate = #" & Format([DDate], "yyyy-mm-dd") & "# AND NOT IsNull(colour)", , acHidden ' تصدير التقرير إلى PDF بالاسم الديناميكي بجوار القاعدة DoCmd.OutputTo acOutputReport, "Y_N_Report", acFormatPDF, FileName, False ' إغلاق التقرير بعد التصدير DoCmd.Close acReport, "Y_N_Report" السابق يحفظ بجوار القاعدة

استاذ @بلال اليامين كل مرفقاتك لديا تعمل وهي كثيرة .................. أي مرفق منهم هذا ارسله .................

استاذ @AMINYOUSIF اليك الاستعلام بعد تعديل الجدولان . حسب مافهمت . ووافني بالرد . AMINYOUSIF.rar

فهمت ................ هذا عمل اكسل وانا هنا اكسس اذهب به لمنتدي الاكس واشرح لهم طلباتك .

تفضل استاذ @بلال اليامين المرفق بعد التعديل بطلبك . ووافني بالرد . Bilal_Yamen.rar

تفضل استاذ @بلال اليامين المرفق مع اخفاء الاسماء الفرنسية هي موجودة للبرمجة لكنها مخفية . Bilal_Yamen.rar

تفضل استاذ @بلال اليامين طلبك راجعه زين . الورقتان بملف اكسل واحد لكل موظف . صدر ، عدل وزود باي منهما بيرجع التعديلات والاضافات للجدولان الرئيسيان . ووافني بلرد . Bilal_Yamen.rar