kkhalifa1960

وفقكم الله نعم أوافق.

أخي @عمار العبيديطبعاً انت تدري أني لم أبخل عليك بمساعد حاولت أفهم طلبك وقراءة الكودات . حاولت مرارا من يوم المشاركة للحين ماتوصلت لشئ . المطلوب ومن الأول الهدف - المطلوب عمله أما اللغة أنا بعدل حسب الحاجة .

وهذه هي الاداة () يمكنك فك الضغط عنها وتثبيتها . pdftk.rar

تفضل استاذ @nogom .الخطوات . لأني ماعندي سكانر . افتح محرر VBA، ثم اذهب إلى: Tools > References واختر Microsoft Windows Image Acquisition Library. يتم مسح المستندات ضوئيًا باستخدام مكتبة WIA. يتم حفظ الصور في مجلد مؤقت. يتم دمج الصور إلى ملف PDF باستخدام PDFtk. يتم حفظ مسار الملف النهائي في قاعدة بيانات Access. Option Compare Database Option Explicit Sub ScanAndSavePDF() Dim scanner As WIA.Device Dim dialog As New WIA.CommonDialog Dim item As WIA.Item Dim img As WIA.ImageFile Dim imagesFolder As String Dim pdfPath As String Dim db As DAO.Database Dim rs As DAO.Recordset Dim fileName As String Dim recordID As String Dim tempPath As String Dim i As Integer Dim imageFiles As String Dim command As String ' تحديد مسار حفظ الصور والملف PDF imagesFolder = "C:\ScannedImages\" ' قم بتعديل المسار حسب الحاجة If Dir(imagesFolder, vbDirectory) = "" Then MkDir imagesFolder tempPath = imagesFolder & "Temp\" If Dir(tempPath, vbDirectory) = "" Then MkDir tempPath ' اختيار الماسح الضوئي On Error Resume Next Set scanner = dialog.ShowSelectDevice(WIA.WiaDeviceType.ScannerDeviceType, False, False) If scanner Is Nothing Then MsgBox "لم يتم اختيار ماسح ضوئي.", vbExclamation Exit Sub End If On Error GoTo 0 ' جلب السجلات من الجدول Set db = CurrentDb Set rs = db.OpenRecordset("اسم_الجدول") ' ضع اسم الجدول هنا If rs.EOF Then MsgBox "لا توجد سجلات في الجدول.", vbExclamation Exit Sub End If Do While Not rs.EOF recordID = rs!اسم_الحقل ' ضع اسم الحقل الذي يحتوي على اسم الملف ' مسح الأوراق imageFiles = "" For i = 1 To 5 ' مسح 5 صفحات، يمكن تعديل العدد حسب الحاجة Set item = scanner.Items(1) Set img = dialog.ShowTransfer(item, WIA.FormatID.wiaFormatJPEG) ' حفظ الصورة fileName = tempPath & "Page_" & i & ".jpg" img.SaveFile fileName imageFiles = imageFiles & Chr(34) & fileName & Chr(34) & " " Next i ' إنشاء ملف PDF باستخدام PDFtk pdfPath = imagesFolder & recordID & ".pdf" command = Chr(34) & "C:\Program Files (x86)\PDFtk Server\bin\pdftk.exe" & Chr(34) & _ " " & imageFiles & " cat output " & Chr(34) & pdfPath & Chr(34) , C:\Program Files (x86)\PDFtk Server\bin\pdftk.exe ,حسب مكانه عندك Shell command, vbHide ' حفظ المسار في الجدول rs.Edit rs!مسار_الملف = pdfPath ' ضع اسم الحقل الخاص بالمسار rs.Update ' تنظيف الصور المؤقتة Dim tempFile As String tempFile = Dir(tempPath & "*.jpg") Do While tempFile <> "" Kill tempPath & tempFile tempFile = Dir Loop rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing MsgBox "تم مسح الملفات وحفظها بنجاح.", vbInformation End Sub ما يجب عليك فعله: قم بتنزيل وتثبيت PDFtk Server. فهو مجاني أضف مسار PDFtk إلى الكود أو إلى متغيرات النظام. كما هو موضح بالكود اختبر الكود وتأكد من أن الصور يتم دمجها بنجاح إلى PDF.

تفضل استاذ @zero1111330566 هذا مشروع كنت عملته لأحد رواد المنتدي لكني طورته لكي يعمل بكل طلباتك أقرأ التعليمات بأعلى الفورم . وجرب ووافني بالرد . DDImport & Export.rar

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

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

تفضل استاذ @2saad محاولتي حسب ما فهمت .ووافني بالرد . شغل التقرير من الفورم . New Microsoft Access Database-111.rar

تفضل أخي @zero1111330566 المرفق بعد عمل بعض طلباتك لكن انا ماعندي سكانر الأن للتجريب . ووافني بالرد . الارشيف-111.rar

تفضل استاذ @Mr-X المرفق بعد التعديل . . جرب ووافني بالرد .واذا كان هذا طلبك اضغط على أفضل اجابة . بحث بجميع الحقول وحالة الاحرف (111).rar

تفضل استاذ @Mr-X المرفق بعد التعديل .عدك نموذجان واحد بالزر والثاني بمجرد الكتابة بمربع البحث والأثنا يعملوا بجميع خيارات النموذج . جرب ووافني بالرد . بحث بجميع الحقول وحالة الاحرف.rar

وين الاسهم ارسل المرفق الصح !!!!

من وجهة نظري كل المسميات تؤدي نفس الغرض (لأن الكلمة المختارة هي الثمن المعنوي لمن حل المشكلة ). المشكلة التي تتعبني شحصياً هي . أن يقوم صاحب الطلب لنسب الحل لنفسه بدون وجه حق وهم كُثر للأسف . أو الرد بشكراً دون اختيارها أيضاً . وهنا يأتي دور الرقابة في (التنبيه أو التصحيح) . وشكراً .

الفاضل @assad_key ممكن ترسل قاعدة لأطبق عليها طلبك .

تفضل استاذ @moho58 المرفق حسب مافهمت بعد التعديل . ووافني بالرد . واذا كان هذا طلبك اختار أفضل اجابة . baseE-1.rar

تفضل استاذ @moho58 المرفق حسب مافهمت بعد التعديل . والعلاقة صحيحة . ووافني بالرد . baseE.rar

أخي @mohamed_ets ضع كل الملفات في مجلد واحد واضغطه .

تفضل أخي @عمار العبيدي المرفق بعد التعديل حسب مافهمت . أعمال الاضافة والحذف تتم بالفورم الرئيسي . جرب لأني لا يوجد لديا اسكنر الأن . ووافني بالرد test-111.rar

أخي @عمار العبيدي أبشر جاري العمل لأن موضوعك كبير ويأخذ وقت .

تفضل استاذ/استاذة @assad_key طلبك حسب مافهمت . لديك طريقتان . ووافني بالرد . Database-111.rar

تفضل أخي @fuadco المرفق بعد التعديل حسب مافهمت .ووافني بالرد . فلتر حسب حقلين المستخدم والمخفي-1.rar

الحمد لله .

تفضل أخي @بوكفوس عبدالسلام . ووافني بالرد . لجعل الواجهة الرئيسية لتطبيق Access (مايكروسوفت أكسس) تُعرض على كامل الشاشة بدون وجود فراغات على الجوانب، يمكنك اتباع الخطوات التالية: 1. إعداد حجم النموذج الرئيسي افتح النموذج الرئيسي (Main Form) الخاص بتطبيقك في وضع التصميم (Design View). في خصائص النموذج (Property Sheet)، حدد الخصائص التالية: Auto Center: اجعلها Yes. Auto Resize: اجعلها Yes. Border Style: اجعلها None. Popup: اجعلها No. Fit to Screen: اجعلها Yes. Width و Height: اضبطها بحيث تتناسب مع الشاشة. 2. استخدام التعليمات البرمجية (VBA) لتوسيع النموذج يمكنك استخدام كود VBA لجعل النموذج يُعرض على كامل الشاشة تلقائيًا عند فتحه: انتقل إلى علامة تبويب Events في خصائص النموذج. في الحدث On Load، اضغط على الزر (...) واختر Code Builder. أدخل الكود التالي: Private Sub Form_Load() DoCmd.Maximize End Sub هذا الكود سيقوم بتكبير النموذج ليملأ الشاشة عند فتحه. 3. إخفاء واجهة أكسس الافتراضية إذا كنت تريد إخفاء شريط القوائم والأشرطة الجانبية الخاصة بأكسس لجعل التطبيق يبدو كبرنامج مستقل: في خيارات Access: اذهب إلى File > Options > Current Database. قم بإلغاء تحديد الخيارات مثل: Display Navigation Pane. Allow Full Menus. Allow Shortcut Menus. اضغط OK وأعد فتح التطبيق. 4. استخدام دقة الشاشة الديناميكية لضمان توافق النموذج مع أي حجم شاشة، يمكنك استخدام مكتبات أو دوال لجعل النموذج يتكيف مع أبعاد الشاشة الحالية. مثال: Private Sub Form_Load() Me.Width = Application.UsableWidth Me.Height = Application.UsableHeight Me.Left = 0 Me.Top = 0 End Sub نصيحة إضافية: إذا كان النموذج يحتوي على عناصر كثيرة، تأكد من ترتيبها بشكل مناسب باستخدام أدوات التخطيط لتجنب حدوث اختلال في العرض.

أخي الفاضل @عمار العبيدي شكراً لك .

ياأخي الفاضل @عمار العبيدي أفضل اجابة للأستاذ @Foksh وليست لي . رجاء إلغيها من عندي وسجلها للأستاذ @Foksh .