اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

kkhalifa1960

الخبراء
  • Posts

    2258
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    62

كل منشورات العضو kkhalifa1960

  1. تفضل التصحيح وجربته ويعمل تمام . DDFinding Differences-FINAL_6.rar
  2. تفضل استاذ @RAIANESAMI . اليك المرفق والشرح بعد اضافة طلبك . تم اضافة الحقل (FileNO) رقم العملية وهو يعد العمليات لكل موظف بدون تدخل منك. جرب بالرد . DDFinding Differences-FINAL_5.rar
  3. تفضل استاذ @RAIANESAMI طالع الشرح السابق . اليك المرفق بعد اضافة طلبك . جرب ووافني بالرد . واذ كان هذا طلبك لا تنسى الضغط على تمت الاجابة حتى يستفيد غيرك DDFinding Differences-FINAL_4.rar
  4. تفضل استاذ @RAIANESAMI . اليك المرفق بعد اضافة طلبك . جرب ووافني بالرد . واذ كان هذا طلبك لا تنسى الضغط على تمت الاجابة حتى يستفيد غيرك DDFinding Differences-FINAL_3.rar
  5. اذهب هنـــــــا وسجل فهو مجاني واسألهم كما شئت .بتحصل اجابات ستعجبك لأني سألتهم سؤالك فحصلت عدة طرق انت اسألهم وكمل معاهم .
  6. استاذ @عاشق_الرقي مافي مشكلة لكن بمشاركة جديدة .
  7. تفضل استاذ @محمد التميمي ملفك بعد التعديل بطلبك . من اكسل لأكسس.rar
  8. ياخي الفاضل زر تمت الاجابة على أخر مشاركة لي وليست على ردك الاخير !!!!!!!!!!!!!!!!!
  9. استاذ @RAIANESAMI . اليك المرفق بعد التعديل بطلبك . جرب ووافني بالرد . واذ كان هذا طلبك لا تنسى الضغط على تمت الاجابة حتى يستفيد غيرك DDFinding Differences-FINAL.rar
  10. استاذ @RAIANESAMI . اليك المرفق بعد التعديل بطلبك . جرب ووافني بالرد . DDFinding Differences-Last-112.rar
  11. استاذ @RAIANESAMI ممكن تشرح طلبك على المرفق . اليك المرفق . DDFinding Differences-Last-111.rar
  12. نقل الصور من حقل 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
  13. تفضل استاذ @Osama Mohammad طلبك حسب مافهمت . برنامج مخازن جديد 19-5.rar
  14. بعد اذن استاذ @jjafferr تفضل استاذ @jo_2010 حسب مافهمت . تم اضافة جدول (Tbl_Logos) واضافة صورتان بالفولدر (0_YOUSSEF) وعمل استعلام (Qry_Logos) يأتي بمسار الصور من الفولدر .ثم بالحقل الجديد (LogoPath) يأتي بمسار الصورة حسب الحقل (External_lab) . تفضل المرفق . ووافني بالرد . JO_Lab-1.rar
  15. ممكن ترسل مرفق علشان نساعدك .
  16. تفضل استاذ @sm44ms تفضل الشرح والمرفق بطلبك بالضبط . ووافني بالرد DDOpen2Forms-2.rar
  17. بعد التمعن بكلامك ايش المطلوب بالضبط ياريت لاتبخل بالشرح .
  18. من وجهة نظري بعدما جربت محاولات كثيرة لنفسي أولاً ومنها حلول استاذي ومعلمي استاذ @jjafferr مايصير طلبك إلا من خلال زر من نموذج أخر مثلما سويت بأول المشاركة. لكن ممكن بجوار بعض اذا مساحة الشاشة تسمح بذلك . وممكن تتحكم في ارساء كل منهم بالكود بالفورم (FINISHED CAED TEMPLATE) تفضل الشرح والمرفق . ووافني بالرد. DDOpen2Forms-1.rar
  19. ابشر لكن عطني وقت لأني على موعد اليوم .
  20. استاذ @sm44ms تفضل الشرح والمرفق وبدون أكواد . DDOpen2Forms.rar
  21. تفضل استاذ @ahmed_204079 طلبك حسب مافهمت كل المدرسين بجدول واحد ثم بالاستعلامين والنماذج بتحصل طلبك . DDelegation.rar
  22. اعتقدنفس هذا DD-JO_2010-1.rar
  23. نعم يخفي ولكن فعال كما ترى .
  24. تفضل أستاذ @jo_2010 الحل من وجهة نظري اليك الشرح والمرفق . ووافني بالرد . DD-JO_2010.rar
  25. مصدر بيانات التقرير هو نفس مصدر بيانات الفورم الفرعي .
×
×
  • اضف...

Important Information