كل الانشطه

وعليكم السلام ورحمة الله وبركاته .. اذهب الى تبويب تصميم التقرير = Report Design انقر على ايقونة مجموعة و فرز 0 على ما أعتقد باللغة العربية ) = Group & Sort في الشاشة ستلاحظ فتح شاشة اسفل التقرير ، انقر على اسم الحقل واحذفه من اشارة X

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

بصراحة مافهمت المطلوب كامل لكن اضفت لك الجمع مخزن 3.xlsm

استاذ وايلي استأذن حضرتك بالنسبة للجمع يكون كل نوع اذن وحاصل جمعه بمعني عند طباعة الاذونات الوارد وحاصل جمعه المنصرف وحاصل جمعه في نهاية كل نوع اذن والطباعة كما طلبت من حضرتك يكون في قائمة اختيارات الطباعة على البرنتر او طباعتها بصيغة PDF مع الشكر استاذي الفاضل مخزن 3.xlsm

الأخوة الكرام أحتاج مساعدة في إزالة InvVerID Header حيث كان موجود كحقل في جدول الفاتورة ولكن ألغيته

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

جزاك الله كل خير

عليكم السلام تفضل الملف حسب الي فهمتة اتمنى يكون المطلوب مخزن 3.xlsm

بالنسبة لطريقة الطباعة محتاج تكون بصيغة PDF مع الشكر

يمكنك مشاهدة الفيدو من هنا لطريقة عمل الملف

الاستاذ الفاضل العزيز ... وايلى حبيب تسلم ايدك .. يبدوا اننى لم استطع توضيح فكرتى لحضرتك ... ممكن حضرتك تستوعبنى اكثر عندما تقوم بتنفيذ الكود وتقوم بعمل معاينة طباعة ستجد الاتى الكشف الاول ينتهى عند مسلسل 312 والكشف الثانى المفروض يبدا من مسلسل 313 إلا انه بدا من 58 ... ثانياً : عدد الاعمدة 10 مما سيؤثر على حجم الكتابة عند تنفيذ الطباعة .. من سيتعامل مع الكشوف نظرهم ضعيف وانا منهم .. ارجو ان اكون قد استطعت توضيح مطلبى تقبل منى كل الحب والتقدير والامتنان

اخي لايوجد كود اخر لتعديل

اخي الكريم الكود يحتوي على متغيرات ودوال غير موجودة مثل التعداد EnumFileExtensions والإجرائين/الدالتين DeleteAllRecords و ExcelDataImport فإذا كنت قد نسخت كود الإستيراد أو التصدير من تطبيق موجود لديك فيجب إستيراد الوحدة النمطية التي تحتوي على الإجراءات المذكورة لكي تعمل أو إرفاق التطبيق الذي نسخت الأوامر منه لتطبيقه في مثالك أما إذا كانت هذه الإجراءات موجودة في تطبيقك بالفعل ولكن الأمر لا ينجح فيجب إرفاق الوحدة النمطية في مثالك حتى يمكن معرفة سبب الخطأ تحياتي

السلام عليكم ورحمة الله السادة الافاضل محتاج مساعدة في اضافة يوزر فورم جديدة مثل فورم رقم 8 ولكن تختلف في طريقة الطباعة محتاج اطبع ارقام الاذونات سواء اضافة او صرف او مرتجع من خلال 1- من تاريخ الي تاريخ 2- من خلال رقم الاذن نفسه ولسيادتكم وافر التحية مخزن 3.xlsm

تفضل تم التحسين على الملف بخصوص المشكلة الاولى المشكلة الثانية تم فصل الصفحات تكون كل صفحة 66 صف واضفت لك للتوضيح بداية كل صفحة يكون لون الخط في الصف بالاحمر عشان تنسق الصفحات إذا صار فيه لخبطة عندك والكود محسن ينفذ لك الامر خلال اقل من 8 ثواني Book1.rar

السلام عليكم ورحمة الله وبركاته جزاك الله خير بعد اذنك محتاج كلمة المرور

العنوان غير مطابق للمطلوب في الملف نرجو منكم الإلتزام بقوانين وسياسة المنتدى ، بحيث :- يكون العنوان ذات صلة واضحة للمطلوب . الشرح الوافي للمطلوب في المشاركة حتى لو اضطررت لكتابة 1000 سطر ، حتى تحصل على إجابتك بسرعة .

جرب هذا الملف بعد التعديل . حيث تم تعديل الكود ليصبح :- Option Explicit #If VBA7 Then Private Declare PtrSafe Function OpenProcessToken Lib "advapi32.dll" ( _ ByVal ProcessHandle As LongPtr, _ ByVal DesiredAccess As Long, _ ByRef TokenHandle As LongPtr _ ) As Long Private Declare PtrSafe Function GetTokenInformation Lib "advapi32.dll" ( _ ByVal TokenHandle As LongPtr, _ ByVal TokenInformationClass As Long, _ ByRef TokenInformation As Any, _ ByVal TokenInformationLength As Long, _ ByRef ReturnLength As Long _ ) As Long Private Declare PtrSafe Function GetCurrentProcess Lib "kernel32" () As LongPtr Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal hwnd As LongPtr, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long _ ) As LongPtr #Else Private Declare Function OpenProcessToken Lib "advapi32.dll" ( _ ByVal ProcessHandle As Long, _ ByVal DesiredAccess As Long, _ ByRef TokenHandle As Long _ ) As Long Private Declare Function GetTokenInformation Lib "advapi32.dll" ( _ ByVal TokenHandle As Long, _ ByVal TokenInformationClass As Long, _ ByRef TokenInformation As Any, _ ByVal TokenInformationLength As Long, _ ByRef ReturnLength As Long _ ) As Long Private Declare Function GetCurrentProcess Lib "kernel32" () As Long Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long _ ) As Long #End If Public Function IsRunAsAdmin() As Boolean Const TOKEN_QUERY As Long = &H8 Const TokenElevation As Long = 20 Dim hToken As LongPtr Dim elev As Long Dim retLen As Long If OpenProcessToken(GetCurrentProcess(), TOKEN_QUERY, hToken) <> 0 Then If GetTokenInformation(hToken, TokenElevation, elev, LenB(elev), retLen) <> 0 Then IsRunAsAdmin = (elev <> 0) End If End If End Function Public Sub RestartAsAdmin() Dim exePath As String Dim wbPath As String exePath = Application.Path & "\EXCEL.EXE" wbPath = """" & ThisWorkbook.FullName & """" ShellExecute 0, "runas", exePath, wbPath, vbNullString, 1 Application.Quit End Sub Public Sub CreateTextFile() Dim FilePath As String Dim FileNum As Integer If Not IsRunAsAdmin Then MsgBox ". (Administrator) البرنامج بحاجة إلى صلاحيات مسؤول" & vbCrLf & _ "... لطلب صلاحيات المسؤول Excel سيتم اعادة تشغيل", _ vbExclamation + vbMsgBoxRight, "تحتاج صلاحيات" RestartAsAdmin Exit Sub End If FilePath = "C:\Windows\fs.txt" FileNum = FreeFile Open FilePath For Output As #FileNum Print #FileNum, "https://www.officena.net/" Close #FileNum MsgBox "تم إنشاء الملف بنجاح في:" & vbCrLf & FilePath, _ vbInformation + vbMsgBoxRight, "نجاح" End Sub Book1.zip

تم إضافة التحديث الجديد في المشاركة الأولى

تحديث واستكمال 1- اضافة واجهة وازار 2- عند التحويل انشاء تلقائي جداول عند مسار الملف الصور المحول مع الربط الآلي 3- عرض والتقسيم بكود عام 4- اضافة اداوت التحكم بعد التحويل PDF الى صور 5- استخراج التقرير الى صور JPG Png ... 6- فتح اي تقرير للنافذة التقرير مع التقسيم دالة عامة + كود الاستدعاء داخل الزر -- للتجربة تحميل المرفق https://www.mediafire.com/file/k8qiz3dnjofr3wv/V_1_4_PDF_To_IMG_Trluoon.rar/file

بارك الله فيك أستاذ وجزاك الله خيرا

الجديد في هذا الاصدا ر بتاريخ15/8/2025 تعديل ترحيل التلاميذ بحيث الباقي والمنقطع لا يتم ترحيله ويبقى في صفه تجده باخر الصف تعديل احصاء الفصول بحيث يتم استدعاء الفصول الفعلية فقط عدم التقيد بعدد معين للفصول حتى اكثر من50 فصل تعديل فورم البحث بجزء من الاسم اضافة صفحة الباقون ويتم تعبئتها تلقائيا بعد الترحيل التحميل من هنا

الحمد لله توصلت لبعض الاكواد الرائعة ولتعميم الافادة إليكم الملف وبه 7 اكواد للنسخ وللنقل ومع الحفاظ على التنسيق وبدونه وايضا اضافة شرط رابع مع الحفاظ على ما تم نقله Book1 (1).rar

اساتذتي الغالين ... @Foksh @ابوخليل أولاً : أعتذر من الجميع عن تأخر ردي بسبب انشغالي وشكرا لكم على سرعة الرد ، حفظكم الله وزادكم الله نورا وعلما ينتفع به الناس ثانياً : أريد أن أنبه لنقطة مهمة أن الجدول الرئيسي InvHT يعتمد علية بشكل أساسي في جميع حركات المبالغ من (بيع وشراء واسناد القبض والصرف وصادر ووارد ..الخ) المدخلة والصادرة للصناديق ، وكذلك اعتمد علية بالدائن والمدين بشكل أدق في جميع الاستعلامات والتقارير فإذا تم عمل جدول فرعي لتحويل من صندوق لأخر فهذا سيكون غير دقيق وليس عملي في معرفة حركة المبالغ هل ممكن ان يتم الاعتماد على الجدول الرئيسي في الحركات تحويل المبلغ بين الصناديق والخ؟ وماهي الطريقة؟ أتمنى تطبيق الفكرة بشكل مباشر في الملف الذي قمت بأرفاقه لكم مع عمل نموذج بشكل فعلي في التحويل بين الصناديق شاكرا لكم على كل ماتبذلوه لنا من وقتكم وجهدكم الثمين علماُ : أن أسماء الجداول: boxsNames = الصناديق والبنوك CurrencysNames = العملات CustomersNames = العملاء InvHT = الجدول الرئيسي InvTT = الجدول الفرعي حركة الأصناف NameMovement = أنواع الحركات NamesTybes = نوع المستفيد من الحركة SuppliersNames = الموردين مرفق الملف: boxs-00.accdb

الأستاذ الفاضل hegazee الأستاذ الفاضل lionheart نعم هذا المطلوب لكم جزيل الشكر والتقدير