kanory

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

استاذي الغالي الدروب بوكس ايضا تستطيع من خلاله قراءة النصوص .... جرب المرفق ووافني بالنتيجة .... KAN_1.accdb

بارك الله فيك استاذي الفاضل @Foksh اشكرك على الشرح الوافي جزاك الله خير وكتب أجرك على ما تقدمة رحم الله والدك ووالدينا وجميع المسلمين الاحياء والاموات

بارك الله فيك اخي الكريم على الطرح لكن هناك فكرة مشابهه لهذه الطريقة في المنتدى .... ما الجديد في موضوعك ... لاني عجزت اعرف الفارق البرمجي فيها

اخي الكريم بارك الله فيك احسن الظن باخوانك اولا معظم مواضيع السابقة وجدت لها الحل من قبل الاعضاء الاكارم وعملت انت عليها عملية صح اذا كان هناك موضوع واحد لم تجد له الإجابة فأكيد وتأكد أن الإخوة الأعضاء مروا وشاهدوا ولم يستطيعوا فهم أو حل موضوعك والسبب بالإضافة لما ذكر اخي @ابوخليل انك لم تدرج سجلات للتجربة عليها

اقرأ هذا الموضوع .....................

تفضل ..... Private Sub Command_Click() Call DeleteImageFiles DoCmd.Quit End Sub Sub DeleteImageFiles() Dim fso As Object Dim folderPath As String Dim file As Object ' تحديد مسار المجلد المطلوب folderPath = CurrentProject.Path & "\Data\QR_images\" ' التأكد من وجود المجلد If Dir(folderPath, vbDirectory) = "" Then MsgBox "المجلد غير موجود: " & folderPath, vbExclamation, "خطأ" Exit Sub End If ' إنشاء كائن FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") ' التحقق من الملفات داخل المجلد For Each file In fso.GetFolder(folderPath).Files ' التحقق إذا كان الملف صورة (حسب الامتداد) If LCase(file.Name) Like "*.jpg" Or _ LCase(file.Name) Like "*.jpeg" Or _ LCase(file.Name) Like "*.png" Or _ LCase(file.Name) Like "*.bmp" Or _ LCase(file.Name) Like "*.gif" Then ' حذف الملف file.Delete True End If Next file MsgBox "تم حذف جميع ملفات الصور بنجاح!", vbInformation, "عملية ناجحة" ' تحرير الكائنات Set fso = Nothing End Sub

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

اولا : اخي اختر العنوان المناسب لموضوعك ثانيا : غير مفهوم طلبك .... هل تريد علامة التبويب تصبح من اليمن لليسار ..... لان الصورة مختلفة عن الموجود في المرفق ؟؟؟؟؟

ممكن تدرج لنا هذه المكتبة حتى نجرب المرفق ZatcaUBLXMLGenerator

تابع هذا الموضوع

هل جربت استخدام هذه الاداة ... barcodex.ocx

بارك الله فيك اخي الكريم وفي صحتك .... وممكن نعمل تنسيق للملف المصدر بهذا الشكل ....

بعد اذن استاذي القدير @ابو البشر هل تريد ملف الاكسل على هذه الشاكلة .....

يعني تريد توثيق للتعديلات والحذف والاضافة ..... ابحث في المنتدى تجد العديد من المواضيع مثل هذا للاستاذ @jjafferr

جرب واعلمنا بالنتيجة .............. mu.accdb

جرب هذا ... لانه ليس لدي ماسح Public Function SelectScanner() 'يتطلب إضافة مرجع إلى “Microsoft Windows Image Acquisition Library v2.0 Dim ComDialog As New WIA.CommonDialog Dim wiaScanner As WIA.Device ' عرض نافذة لاختيار الجهاز Set wiaScanner = ComDialog.ShowSelectDevice(WiaDeviceType.ScannerDeviceType, False, True) ' إذا تم اختيار جهاز، فإن DeviceID سيحتوي على معرف الجهاز المحدد If Not wiaScanner Is Nothing Then MsgBox "تم اختيار الجهاز: " & wiaScanner.DeviceID Else MsgBox "لم يتم اختيار أي جهاز." End If End Function

راجع هذا الموضوع للكلمات المحجوزة للاكسس

لا لا ...اسم الحقل receiveddate ليس فيه مشكلة بل اسم مربع النص الموجود قي النموذج .... انظر ...

بارك الله فيك .... هناك عبارات محجوزة لاكسس ولا تستخدمها في التسمية للعناصر او الحقول ابدااااااااااااااااااااااااااااا انظر ......

هل هناك جزء غير مفهوم اخي ازهر

ادخل الرمز المطلوب ثم اضغط على مفتاح انتر .... 111 (KAN).accdb

هل هذا طلبك ......