kkhalifa1960

راجع المرفق والزر الجديد وملف الاكسل الجديد . ووافني بالرد والطلبات . Excel_Bilal_Yamen-2.rar

وانتم كذلك .... لسانك وردك الحلو يجعلنا نتكالب على مساعدتك .

مشاركةً مع استاذي @ابوخليل تفضل استاذ @REDA.M.A محاولتي حسب ما فهمت . جرب المرفق . ووافني بالرد . كلمات المرور حسب الاسم موجودة بنموذج الدخول . امسحها بعدين . KhalifaStock.rar

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

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

مشاركةً مع الاساتذة الكرام ......... تفضل استاذ @2saad محاولتي حسب ما فهمت اليك الشرح والمرفق . ووافني بالرد . saad.rar

تمام يا @jo_2010 🌟 خليني أشرح لك خطوة بخطوة كيف تغيّر إعدادات Display Scale في ويندوز بحيث يكبر الخط داخل Access وكل التطبيقات: الخطوات العملية افتح إعدادات العرض اضغط بزر الفأرة الأيمن على سطح المكتب. اختر Display settings (إعدادات العرض). ابحث عن خيار Scale and layout ستجد قسمًا اسمه Scale and layout. بجانبه خيار Change the size of text, apps, and other items. غيّر نسبة التكبير القيمة الافتراضية عادةً تكون 100%. جرّب زيادتها إلى 125% أو 150% حسب راحتك. سترى أن الخطوط والأيقونات تكبر في كل البرامج، بما فيها Access. تأكيد التغيير بعض التطبيقات تحتاج لإعادة تشغيل حتى يظهر التغيير. إذا لم يتغير الخط فورًا في Access، أغلق البرنامج وأعد فتحه.

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