kkhalifa1960

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

عملت بعض التعديلات خصوصاً للتقارير  ..  والبرنامج يعمل لديا بدليل الشرح التالي . وايضاً اليك المرفق بعد التعديل .
                                                                                                       
SaadPermissionsLast-3.rar

تفضل التعديل والشرح . 
                                             
SaadPermissionsLast-1.rar الشرح.rar

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

تفضل الشرح  والمرفق .              
Bilal_Yamen_New-1.rar

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

تفضل استاذ @2saad طلبك حسب مافهمت . ووافني بالرد .
Saad.rar

تفضل استاذ @فؤاد الدلوي مرفقك حسب مافهمت . اولا 
الجزء المهم جدا إعداد (CaptureOnTouch V5 Pro)
افتح البرنامج الآن 👇
1️⃣ ادخل إلى:
🔹 Job Mode
2️⃣ أنشئ Job جديد
اضغط:
New 3️⃣ اختر نوع الإخراج
اختر:
Save to Folder اضغط Next
4️⃣ اختر المجلد
اضغط Browse واختر:
D:\Archive\Temp اضغط OK
 
5️⃣ أهم خطوة (اسم الملف)
ستجد خيار:
File Name Settings اختر:
Custom واكتب اسم ثابت:
scan ⚠️ بدون أرقام
⚠️ بدون تاريخ
⚠️ بدون Auto numbering
ثم اختر:
File Format = PDF مهم جداً
داخل برنامج CaptureOnTouch V5 Pro تأكد أن:
الحفظ في: ·         D:\Archive\Temp
اسم الملف دائماً: ·         scan.pdf
لا يوجد تاريخ أو ترقيم مضاف للاسم ثانياً اليك المرفق 
' مسار برنامج CaptureOnTouch (تأكد منه عندك) AppPath = """C:\Program Files\Canon Electronics\CaptureOnTouch V5 Pro\TouchDR.exe""" او عدل كما لديك .
الناتج D:\Archive\2026\02\1258.pdf
ووافني بالرد .
Fouad_ElDolwi.rar

تفضل استاذ @بلال بلال المرفق بعد التعديل .
 
رزنامة _ بلال_يامن-1.rar

تفضل استاذ/ة @ruan يوجد تعديل مهم بزري النموذج (frm_Main)  (btnMyPC و btnScaner). حتى يمكنك تغيير الصورة بدون أخطاء . تفضل المرفق بعد التعديل .ووافني بالرد .
الصادر والوارد-2.rar

تفضل استاذ  .
Bilal_Yamen.rar

اليك الشرح  مع شرح زر الحذف واليك المرفق بعد اضافة زر الحذف . ووافني بالرد .
                                                                                           
saad From Access To Exel.rar

كلامك صح وانا حاولت يشتى الطرق حتى مع معظم منصات الذكاء الصناعي ماتوصلنا الا للحل الذي ارسلته لك .

تفضل استاذ  المرفق بعد التعديل بطلبك .  حتى لو فُعّل الزر بالخطأ
الكود في Click ما زال يمنع الحذف ← أمان مضاعف  وتم العمل للعداد لازم توحد اسم رقم الحساب بالجدولان  لاتنسى تمت الاجابة ليستفيد غيرك .
ACC_2026-2.rar

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

مشاركةً مع الاساتذة الكرام ......... تفضل استاذ @2saad محاولتي حسب ما فهمت اليك الشرح والمرفق . ووافني بالرد .
                                                                          
saad.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  

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

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

تفضل استاذ @بلال اليامين طلبك .... وحتي يتحقق طلبك اهم شئ 3 حقول لازم تملأهم سواء وانت بضيف جديد بأكسل أو بالجدول الاساسي (Fondation و prénom وNom) ....
وانت بضيف بأكسل لا تكرر رقم التسجيل (id_pers) . تم اضافة كمبوبكس  من خلاله بتصدر جسب الاسم المركب من  (الاسم واللقب والمؤسسة)
بعدما تصدر اذهب بجوار القاعدة بتحصل مجلد (Mon_Excel) وبه ملف اكسل باسم حسب الكمبوبكس  . افتح ملف الاكسل عدل به ماتشاء  واضف جديد ...
وبكود الاستيراد لازم تحدد بالكمبوبكس الاسم المركب .  ولاتنسى فتح مشاركة جديدة لارفق لك الهدية. اكنب بها اين الهدية يا خليفة .
 اليك المرفق ووافني بالرد .
Bilal_Yamen_Export_Import_Excel-1.rar

كيف اكتب نص في جقل رقمي ؟؟  ولكن يوجد تعديل حتى لايظهر Error  عنما لا توجد علامة . اليك التعديل .
بلال_العلامة-2.rar

أولا استاذ @Foksh  عمرة مقبولة وعقبل الحج الاكبر  انشاء الله  .
اسمحولى بالمشاركة بهذا المرفق . تفضل استاذ @jo_2010 محاولتي حسب مافهمت اليك المرفق . 
Jo_ExportToExcel.rar

تفضل استاذ @بلال اليامينطلبك كما فهمت . صدر لاكسل . وعدل وضيف . ثم استورد . جرب . ووافني بالرد .
Bilal_Yamen_Export_Import_Excel.rar

تفضل استاذ @basem1978 طلبك حسب ما فهمت . ووافني بالرد .
1 (1).rar

نبدأ بسم الله الرحمن الرحيم  تفضل استاذ @بلال اليامين حل أول مشكلة الصور  ...   عدلت كل شئ وشغل البرنامج من اي كمبيوتر . بشرط ملف الصور بجوار القاعدة . واليك المرفق . ووافني بالرد.
اما المشكلة الثانية جاري العمل عليها لكن المطلوب منك فقط جدول به كل طلباتك واسماء الحقول واسم الجدول باللغة الانجليزبة .وانا بانتظاره بمشاركة جديدة..................... 
Images (1).rar