kkhalifa1960

حبيبي في الله استاذنا ومهندسنا @Eng.Qassim فعلا الهبت الأفكار ... فأنا دائما أعمل على طلب السائل وفي هذا الموضوع يوجد حلول كثيرة . ومنها المرفق التالي. عند الضغط على ( التشك بوكس ) يختفي السطر في الاستعلام والتقرير . وعند الضغط عليه مرة أخري يرجع السطر بالاستعلام والتقرير . ولكن المشكلة هنا أن السائل لم يرد . Database6-2.rar

استاذنا @ابوخليل ايه رأيك بالحل بطريقة أخرى مثل المرفق التالي : . MultipleChoice.rar

اسناذي ومعلمي @Eng.Qassim هذا طلب السائل وأنا عملت عليه !!!!!!!!!!!!! فلننتظر رد السائل .

مشاركةً مع اساتذتي تفضل استاذ @مهند محسن المرفق بعد التعديل حسب مافهمت . Database6-1.rar

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

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

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

وهذه هي الاداة () يمكنك فك الضغط عنها وتثبيتها . 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