كل الانشطه

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

بالإستفادة بالأداة الرائعة للأخ @Foksh الموجودة في موضوع مستورد السجلات الذكي قمت بتعديل الملف ليتم العمل عبر هذه الأداة يرجى تجربة التعديل تحياتي تحديد البرنامج1.rar

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

تفضل مخزن 3.xlsm

وعليكم السلام ورحمة الله وبركاته .. اذهب الى تبويب تصميم التقرير = 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

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