نجوم المشاركات

نقل الصور من حقل Attachment في Access إلى مجلد باستخدام VBA نعم، يمكنك نقل الصور من حقل Attachment في Access إلى مجلد مجاور للبرنامج باستخدام كود VBA. إليك كيفية القيام بذلك: كود VBA لنسخ الملفات المرفقة إلى مجلد كيفية استخدام الكود استبدل "اسم_جدولك" باسم الجدول الذي يحتوي على حقل المرفقات استبدل "اسم_حقل_المرفقات" باسم حقل Attachment في جدولك سيتم إنشاء مجلد يسمى "Attachments" بجوار ملف قاعدة البيانات إذا لم يكن موجوداً سيتم حفظ جميع الملفات المرفقة في هذا المجلد ملاحظات مهمة الكود يتعامل مع جميع أنواع الملفات المرفقة، ليس فقط الصور يتم إنشاء أسماء ملفات فريدة لتجنب الكتابة فوق الملفات الموجودة يتم تخطي الملفات المخفية مثل Thumbs.db تأكد من أن لديك أذونات الكتابة في المجلد الهدف يمكنك تعديل الكود حسب احتياجاتك الخاصة، مثل تصفية أنواع ملفات معينة (مثل .jpg, .png فقط) أو تنظيم الملفات في مجلدات فرعية. واليك الكود :- Sub ExportAttachmentsToFolder() Dim db As DAO.Database Dim rs As DAO.Recordset Dim rsAttach As DAO.Recordset2 Dim fldAttach As DAO.Field2 Dim strFilePath As String Dim strFileName As String Dim strFullPath As String Dim strFolderPath As String Dim i As Integer ' تحديد مسار المجلد الهدف (بجوار قاعدة البيانات) strFolderPath = CurrentProject.Path & "\Attachments\" ' إنشاء المجلد إذا لم يكن موجوداً If Dir(strFolderPath, vbDirectory) = "" Then MkDir strFolderPath End If ' فتح جدول أو استعلام يحتوي على حقل المرفقات Set db = CurrentDb() Set rs = db.OpenRecordset("اسم_جدولك") ' استبدل باسم الجدول الفعلي ' تحديد حقل المرفقات Set fldAttach = rs.Fields("اسم_حقل_المرفقات") ' استبدل باسم حقل المرفقات ' التكرار خلال السجلات Do Until rs.EOF ' فتح سجل المرفقات للسجل الحالي Set rsAttach = fldAttach.Value ' التكرار خلال المرفقات في السجل الحالي i = 0 Do Until rsAttach.EOF ' تجنب الملفات المخفية (مثل thumbs.db) If Not (rsAttach.Fields("FileName") Like "~*" Or _ rsAttach.Fields("FileName") = "Thumbs.db") Then ' إنشاء اسم فريد للملف لمنع التكرار strFileName = rsAttach.Fields("FileName") strFullPath = strFolderPath & strFileName ' التأكد من عدم وجود ملف بنفس الاسم While Dir(strFullPath) <> "" i = i + 1 strFullPath = strFolderPath & i & "_" & strFileName Wend ' حفظ المرفق إلى الملف rsAttach.Fields("FileData").SaveToFile strFullPath End If rsAttach.MoveNext Loop rsAttach.Close rs.MoveNext Loop ' تنظيف الذاكرة rs.Close Set rsAttach = Nothing Set fldAttach = Nothing Set rs = Nothing Set db = Nothing MsgBox "تم تصدير المرفقات بنجاح إلى: " & strFolderPath, vbInformation End Sub

وعليكم السلام رجاء اعمل نسخة احتياط من برنامجك ، واحفظها في مكان آمن بعيد عن ملفات عملك. هذا الموضوع يفيدك في تصدير المرفقات من الجدول الى مجلد في الكمبيوتر . وهذا الموضوع لحذف المرفقات من الجداول (ولكن يجب ان تتأكد ان جميع المرفقات تم تصديرها اولا)

و عليكم السلام ورحمة الله و بركاته استخدام Power Query الخطوات: فتح ملف إكسيل جديد: افتح ملف إكسيل جديدًا أو موجودًا حيث تريد دمج البيانات. الوصول إلى Power Query: انتقل إلى علامة التبويب البيانات (Data). انقر على الحصول على البيانات (Get Data) من مجلد (From Folder). تحديد المجلد: اختر المجلد الذي يحتوي على ملفات الإكسيل التي تريد دمجها. ستظهر نافذة تعرض جميع الملفات في المجلد. انقر على تحميل (Load) أو تحويل البيانات (Transform Data) لفتح محرر Power Query. دمج البيانات: في محرر Power Query، سترى قائمة بجميع الملفات. انقر على أيقونة دمج (Combine) بجوار العمود "Content". اختر الجدول أو الورقة (Sheet) التي تريد دمجها من كل ملف (إذا كانت تحتوي على أوراق متعددة). يمكنك تنظيف البيانات (مثل حذف الأعمدة غير الضرورية) قبل الدمج. تحميل البيانات: انقر على إغلاق وتحميل (Close & Load) لإرسال البيانات المددمجة إلى ملف الإكسيل الجديد. تحديث البيانات: إذا أضفت ملفات جديدة إلى المجلد لاحقًا، انقر بزر الفأرة الأيمن على الجدول في إكسيل واختر تحديث (Refresh) لتحديث البيانات. ملاحظة: تأكد أن جميع الملفات لها نفس الهيكلية (نفس أسماء الأعمدة وترتيبها) لتجنب الأخطاء.

عمل جميل ورائع ، ويعبر عن روعة صاحبه وأفكاره معلمنا الفاضل @jjafferr 😇 لم أقرأ هذا الموضوع سابقاً ، وأعتقد أن اليوم كان من حسن حظي اني تابعته

الاخوة الافاضل Foksh kkhalifa1960 كل شكري وامتناني على اهتمامكم وردكم الغالي والاستاذ والمعلم القدير أستاذ jjafferr بارك الله فيك وجعله دائما في ميزان حسناتك وزادك من العلم فأنت مثل ما قيل خير الناس أنفعهم للناس خالص شكري وتقديري لكم جميعا

وعليكم السلام ورحمة الله وبركاته ،، هي فعلاً أحد المشاكل التي يقع فيها مصمم البرنامج عندما لا تكون لديه معلومة حول فكرة ارفاق الملفات كمرفقات بدلا من استعمال المسارات للملفات المرفقة . طبعاً في مشاركة لمعلمنا الأستاذ @jjafferr في هذا الموضوع هنا ، أشار إلى أنه :- "في الاوفيس M365 تم رفع الطاقة التخزينية الى 4 جيجا بشرط يكون الوندوز 64 بت" . طبعاً بعد وقوعك في هذه المشكلة ، سيترتب عليك جهداً كبيراً من العمل ، بحيث ستضطر الى تفريغ الملفات المرفقة من قاعدة البيانات الحالية الى مجلدات خارجية أولاً ( من خلال كود ) ، ثم تعديل نوع الحقل من مرفقات الى نصي للإستبدال بمسار الملف لكل سجل ، ( قد تواجه مشكلة لاحقة في الضرورة الى إتاحة مساحة قليلة لإضافة نموذج يتم من خلاله العمل على افراغ كافة المرفقات الى مجلدات من خلال كود مخصص ، يعتمد على تحديد اسم الجدول واسم الحقل ، وطريقة افراغ المرفقات الى مجلد محدد بحيث يكون معرف لرقم العميل او اسم المستخدم .... إلخ ) وهذا طبعاً بنظري سيأخذ وقت طويلاً نسبياً بسبب حجم القاعدة الحالي وعدد الملفات التراكمي . العديد من الأفكار يمكن تنفيذها ولكنك ستحتاج وقتاً ( ليس تحطيم للمعنويات بقدر ما هو حافز أنه يمكنك افراغ القاعدة وإعادة تشغيلها بطريقة علمية وممكنة ) .

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

أجدتم بما تفضلتم أخي الفاضل @محمد هشام. ، ومعلوماتك فادتني بشكل واسع في هذا المجال .. أشكر لكم حسن إصغائكم لي على امل أن لا نكون قد خرجنا عن محور الموضوع ( لعدم تشتت القارئ لاحقاً ) .

ممكن ترسل مرفق علشان نساعدك .