ابوخليل

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

السلام عليكم المرفق ادناه يحتوي مثل ما في الصورة المعروضة عند النقر على الزر يفتح مربع حوار اكسس ، وعند النقر على Open يتم فتح المرفق المطلوب : لا اريد ظهور مربع حوار اكسس اريد ان يتم فتح المرفق من الزر مباشرة DbTest.rar

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

هذه الصور تبين النتيجة تصميم ثم عرض .. العرض يتم لجميع الطلاب

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

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

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

الكود في مشاركتي الاخيرة وافي وكافي ... فقط تضاف هذه الجملة عند اغلاق البرنامج لمن اراد حذف الملف FilePath = CurrentProject.Path & "\" & "soccer.png" Result = Dir(FilePath) If Result <> "" Then Kill FilePath End if وهذا يعني انك لم تفهم عني ما اريد راجع نقاشي مع اخونا فادي

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

كل الطرق اعلاه واحدة طريقتك كل فتح لاي نموذج اذا النماذج تحمل ايقونات في الاطار .. كل فتح يتم حذف الصورة ثم ارسالها مرة اخرى لو لم تفعل ذلك لا يمكنك الارسال مرة اخرى اقصد تشغيل الدالة سترجع بخطأ وجود الملف انا عالجت هذه المشكلة .. جعلت الارسال يتم مرة واحدة عند اقلاع البرنامج .. والبرنامج بكل مكوناته سيرتبط بالصورة مباشرة ولا حاجة للارسال Function RelinkIsIco() As String Dim rs As DAO.Recordset Dim rst As DAO.Recordset2 Dim FilePath As String Dim strFilePath As String Dim Result As String FilePath = CurrentProject.Path & "\" & "soccer.png" Result = Dir(FilePath) If Result <> "" Then RelinkIsIco = FilePath Exit Function Else Set rs = CurrentDb.OpenRecordset("tblEnDc") Set rst = rs.Fields("progIcon").Value strFilePath = CurrentProject.Path & "\" & rst.Fields("FileName").Value rst.Fields("FileData").SaveToFile strFilePath RelinkIsIco = strFilePath End If rst.Close Set rst = Nothing rs.Close Set rs = Nothing End Function ولكن هذا لا يكفي حاجتي او هدفي الى نوع من انواع الحماية الخاصة ليس بالضرورة ان يكون صورة

صباح الفل اخي فادي الغاية هي الوصول الى الهدف لا تتهرب .. سوف امهلك الى ما بعد الافطار

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

وجدت حلا وهي الطريقة الوحيدة التي وصلت اليها وهي نسخ الصورة وارسالها بجانب قاعدة البيانات نعم هي طريقة مفيدة ... ففي هذا الوضع لا يعتمد البرنامج على صور خارجية .. وحتى لو تم حذفها او العبث في التسمية فسوف يدرج اكسس صورة جديدة ورغم ان الارسال سيتم مرة واحدة عند اقلاع البرنامج .. الا انه عند فتح النماذج كل نموذج يتم فتحه تتم عملية حذف الصورة الموجودة وارسال صورة جديدة ويمكنني تلافي ذلك بجعل الكود يتفحص اذا الصورة موجودة بجانب قاعدة البيانات ام لا .. فإذا موجودة يأخذ من موقع الصورة مباشرة وان لم يجدها يرسل جديدة . وغالبا ستكون موجودة بجوار قاعدة البيانات . سأعرض لكم الكود الذي تمت معالجته + المرفق Function RelinkIsIco() As String Dim rs As DAO.Recordset Dim rst As DAO.Recordset Dim strFilePath As String Set rs = CurrentDb.OpenRecordset("tblEnDc") Set rst = rs.Fields("progIcon").Value strFilePath = CurrentProject.Path & "\" & rst.Fields("FileName").Value Kill strFilePath rst.Fields("FileData").SaveToFile strFilePath rst.Close : Set rst = Nothing rs.Close : Set rs = Nothing RelinkIsIco = strFilePath End Function Private Sub cmdShar_Click() Me.img1.Picture = RelinkIsIco End Sub ولكني اطمح الى عمل افضل من ذلك وهنا يأتي السؤال : هل يمكن عمل متغير يحمل رابطا أو مسارا وهميا بدلا من المسار الصريح ؟ أو متغيرين .. واحد يحمل رابط وهمي والآخر يحمل اسم الملف ؟ Database2.rar

يا هلا اخوي محمد تغيب وتعود سالما غانما هي وحيدة يتيمة

صحيح 100% يجب التعامل كـــ Fields("FileData") ولكني نسيتها