Moosak

وعليك السلام أخي محمد .. 🙂 كان لدي كود لفتح البرنامج من ملف الريجيستري مباشرة .. ولكنه مع التحديثات الجديدة لم يعد يعمل ..

تكتب في حدث بعد التحديث للقائمة هكذا مثلا : Wsool = Qyaam + 2 Wsool = اسم حقل الوصول Qyaam = اسم القائمة المنسدلة

وعليكم السلام أخي @albadr 🙂 يفضل أن تضع مثال حقيقي .. لأن الطرق كثيييييييرة جدا .. ولكنها تعتمد على طلبك بالتحديد .

أستاذنا @ابوخليل .. لدي نفس الكود كنت سأضعه كجواب .. ولكن عندما جربته في ملفات مكتوبة بالعربية يلخبط .. 😅 وهكذا تظهر :

وعليكم السلام ورحمة الله وبركاته أخي @أحمد عمروف 🙂 جرب وضع هذا السطر في المعيار (مع مراعاة تغيير اسم النموذج واسم مربع النص كالتي عندك): Like "*" & Nz(Forms![frm_Main]![Srch_Item] ; "*") & "*" وإذا ما اشتغلت معاك ، انسخ الاستعلام وشيل المعيار من واحد منهم .. وبكذا يكون عندك استعلامين 🙂 وإذا حبيت تدخل البرمجة في الموضوع .. إعمل لك دالة تفحص إذا النموذج مفتوح ولا لا .. فإذا كان مفتوح تعطيك القيمة اللي في النموذج .. وإذا مغلق تعطيك النجمة * .. (بمعنى تظهر كل السجلات) .

حياك الله اخي @ابوالسيل 🙂 استخدم دالة Switch بدل دالة IIF .. وطريقتها سهلة .. أنا عملت لك نموذج منها .. وأنت كمل الباقي .. 🙂 وهكذا تكتب : Need: Switch([مجموع الفصول]=1;2;[مجموع الفصول]=2;3;[مجموع الفصول]=3;4;[مجموع الفصول]=4;6;[مجموع الفصول]=5;7) والنتيجة في الاستعلام : ‏‏برنامج الاحتياج.rar

تفضل أخي @أبو امين 🙂 << تعديل >> عملت لك دالتين .. واحدة للنماذج وأخرى خاصة بالتقارير .. أنسخهم هم الإثنين في موديول : Public Sub ShowOrHideFormControls() Dim Frm As Form Dim Ctl As Control Set Frm = Screen.ActiveForm For Each Ctl In Frm.Controls Select Case Ctl.ControlType Case acTextBox, acComboBox, acListBox, acCheckBox, acOptionButton, acOptionGroup If IsNull(Ctl.value) Or Ctl.value = "" Then Ctl.Visible = False End If End Select Next Ctl Set Frm = Nothing End Sub '------------------------------------------------------------------- Public Sub ShowOrHideReportControls() Dim Rpt As Report Dim Ctl As Control Set Rpt = Screen.ActiveReport For Each Ctl In Rpt.Controls Select Case Ctl.ControlType Case acTextBox, acComboBox, acListBox, acCheckBox, acOptionButton, acOptionGroup If IsNull(Ctl.value) Or Ctl.value = "" Then Ctl.Visible = False End If End Select Next Ctl Set Rpt = Nothing End Sub وتنادي كل دالة باسمها حسب الاستخدام هكذا : ' للنماذج Call ShowOrHideFormControls() ' للتقارير Call ShowOrHideReportControls()

بارك الله فيك أخي النجاشي .. وانتظروا التحديث القادم إن شاء الله 😊

وعليكم السلام ورحمة الله وبركاته أخي أحمد .. 🙂 من الضروري جدا فتح برنامج الواتسأب وتسجيل الدخول قبل الارسال .. ليس من مهام برنامج المرسال تشغيل الواتسأب .. فقط يقوم بإرسال الرسائل ..

اللهم آمين يارب العالمين .. وإياكم أجمعين 🙂🌷

وكل عام وانت بخير .. وصحة وسلامة أخي أبوطارق .. 😊🌷 تقبل الله طاعاتكم ..

‏كلُّ عيدٍ والسعدُ يحفُّ أرواحكم ‏هنأكم الله، وبشّركم، وسرّكم، وأسعدكم، وأبهجكم، وآنسكم، وأفرحكم، وأضحككم، ورضي عنكم .. كُل عام وقلوبكمْ في علوٍ ورفعةٍ ‏من الدينْ والدُنيا، وكل عام وأكاليل السعادة تزهى بكم. كُلّ عـــام وَ الطمأنينة وَ السـلام تطـوق ٲرواحكم. كُلّ عـــام وَ قلوبكم تنبضُ حُـبّاً وفرحاً .. -‏كل عام وأنتم بخير وعافية وإنشراح صدر، وقلوبكم مليانة سعادة وطمأنينة وسلام، عيد سعيد عليكم جميعًا 🌷🌷💗🌹🌹🌹🌹🌹🌹🌹🌹💗🌷🌷

أخي خليفة @kkhalifa1960 فيه حاجة مش مضبوطة في كود الاسكانر .. !! 🙂

السلام عليكم أخي @حامل المسك 🙂 من رأيي لتنظيم هذا الأمر من البداية عليك أن تقوم بإنشاء 3 جداول .. الجدول 1 : لجميع الجهات ( الجهات التابعة ) .. وبه عمود وهو المفتاح الأساسي ( أسماء الجهات التابعة .. مثلا ) الجدول 2 : للجهات الرئيسية (الجهات المتبوعة) .. وبه عمود وهو المفتاح الأساسي ( الجهات الرئيسية.. مثلا) الجدول 3 : وهو جدول الربط ( ربط الجهات التابعة بالجهات المتبوعة ) نفس جدولك الحالي تقريبا .. ولكن به 3 حقول ومفتاحين أساسيين ( ID - [الجهات التابعة (قائمة منسدلة مصدرها الجدول 1 )] - [الجهات المتبوعة (قائمة منسدلة مصدرها الجدول 2 )] ) والحقلين الذين باللونين الأزرق والأحمر هما المفتاحين الأساسيين ( وذلك لتجنب تكرار الإدخالات ) . الجدول 3 هو جدول ذو علاقة (many to many) أو (متعدد إلى متعدد) . بهذه الطريقة ستستطيع عمل تقارير واستعلامات بكل سهولة وأريحية وبدون تكرارات 🙂

وعليكم السلام ورحمة الله وبركاته أخي @النجاشي 🙂 بالاستعانة بالـ ChatGPT .. يوجد هناك كود للتحويل من PDF إلى الأكسل .. ولكنه يحتاج لمكتبة وسيطة .. وهي مكتبة ال Adobe Acrobat API لذلك لازم يكون البرنامج منصب عندك في الجهاز لكي يعمل معاك الكود .. وهذا هو الكود (لم أجربه) : Sub ConvertPDFToExcel() Dim AcroApp As Object Dim AcroAVDoc As Object Dim AcroPDDoc As Object Dim ExcelApp As Object Dim ExcelWorkbook As Object Dim ExcelWorksheet As Object Dim PDFFilePath As String Dim ExcelFilePath As String ' Set the file paths for the PDF file and the Excel file PDFFilePath = "C:\Path\to\input.pdf" ExcelFilePath = "C:\Path\to\output.xlsx" ' Create an instance of the Acrobat application Set AcroApp = CreateObject("AcroExch.App") ' Open the PDF file Set AcroAVDoc = CreateObject("AcroExch.AVDoc") If AcroAVDoc.Open(PDFFilePath, "") Then Set AcroPDDoc = AcroAVDoc.GetPDDoc() ' Save the PDF as an Excel file AcroPDDoc.SaveAs ExcelFilePath, "com.adobe.acrobat.xlsx" ' Close the PDF document AcroPDDoc.Close End If ' Release the Acrobat objects Set AcroAVDoc = Nothing Set AcroPDDoc = Nothing AcroApp.Exit Set AcroApp = Nothing ' Open the Excel file Set ExcelApp = CreateObject("Excel.Application") Set ExcelWorkbook = ExcelApp.Workbooks.Open(ExcelFilePath) Set ExcelWorksheet = ExcelWorkbook.Sheets(1) ' Manipulate the Excel data as needed ' ... your code here ... ' Close and save the Excel file ExcelWorkbook.Close SaveChanges:=True ExcelApp.Quit ' Release the Excel objects Set ExcelWorksheet = Nothing Set ExcelWorkbook = Nothing Set ExcelApp = Nothing End Sub ملاحظة من ChatGPT : لاستخدام Adobe Acrobat API ، تحتاج إلى تثبيت Adobe Acrobat على جهازك ، وقد تحتاج إلى إضافة المكتبة "Adobe Acrobat" أو "Adobe Acrobat xx.0 Type Library" في برنامجك. بالإضافة إلى ذلك ، تحتاج إلى التأكد من أن إصدار Adobe Acrobat المثبت على جهازك يدعم استدعاءات ال API . يرجى الرجوع إلى وثائق Adobe Acrobat API للحصول على مزيد من المعلومات حول الطرق المتاحة والإصدارات المدعومة.

طبعا الأساتذة الكرام جزاهم الله خيرا أجابوا عن هذا السؤال بالأكواد البرمجية .. وهناك طريقتين سهلتين لا تحتاج لبرمجة وسريعة خصوصا في حال أن النقل لمرة واحدة وليست عملية متكررة 🙂 الأولى : عن طريق معالج الاستيراد الخاص بالأكسس ، وهو نفسه الذي نستورد به الجداول ولكن نختار النماذج من تبوب النماذج .. الثانية : وهي أسهل من الأولى (السحب والإفلات) .. يعني تختار النموذج .. تسحبه بالماوس من القاعدة 1 وتفلته في القاعدة 2 في مكان النماذج .. وتم بحمد الله 😄✋🏻

هذا الموضوع فيه إفادة إن شاء الله 🙂

وطريقة سريعة لتحويل الجدول المرتبط لجدول محلي .. أن تضغط بيمين الماوس على الجدول ثم تختار Convert to Local Table 🙂

أستاذنا العزيز @ابوخليلهل لك أن تسأل الأخ @حسونة حسين عن إمكانية تحديث قائمة المواضيع حتى لو كان في ملف الأكسل ؟ 🙂

وعليكم السلام ورحمة الله وبركاته أخي صالح .. هل يوجد نسخ احتياطية للبرنامح ؟

وعليكم السلام ورحمة الله وبركاته أخي @Mohameddd200300 .. 🙂 فعلا رأيت أن تخطيط النسخة الجديدة مختلف عن السابقة .. سأجرب بإذن الله ..

أصلحت لك موضوع التقرير بإنشاء موديول يخزن رقم الـ ID للشخص الحالي في متغير عام ثم يسنده إلى دالة تقوم بفلترة الاستعلام الذي يفتح التقرير : الدالة في الموديول : وبذلك يتم تخزين التقرير الخاص بكل شخص وإرساله إليه ثم حذفه وإرسال التقرير التالي .. وهكذا .. مرسال (2).accdb

الأول واضح .. الثاني ال AttachmentType نوعه ثابت دائما وهو (مستند) لأننا سنرسل التقرير على شكل pdf لذلك لن تحتاج لتعبئة هذه الخانة أساسا .. بل يعمل النوع في الكود مباشرة ً

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

تفضل أخي محمد 🙂 مرسال.accdb