kkhalifa1960

استاذ @عاشق_الرقي مافي مشكلة لكن بمشاركة جديدة .

تفضل استاذ @محمد التميمي ملفك بعد التعديل بطلبك . من اكسل لأكسس.rar

ياخي الفاضل زر تمت الاجابة على أخر مشاركة لي وليست على ردك الاخير !!!!!!!!!!!!!!!!!

استاذ @RAIANESAMI . اليك المرفق بعد التعديل بطلبك . جرب ووافني بالرد . واذ كان هذا طلبك لا تنسى الضغط على تمت الاجابة حتى يستفيد غيرك DDFinding Differences-FINAL.rar

استاذ @RAIANESAMI . اليك المرفق بعد التعديل بطلبك . جرب ووافني بالرد . DDFinding Differences-Last-112.rar

استاذ @RAIANESAMI ممكن تشرح طلبك على المرفق . اليك المرفق . DDFinding Differences-Last-111.rar

نقل الصور من حقل 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

تفضل استاذ @Osama Mohammad طلبك حسب مافهمت . برنامج مخازن جديد 19-5.rar

بعد اذن استاذ @jjafferr تفضل استاذ @jo_2010 حسب مافهمت . تم اضافة جدول (Tbl_Logos) واضافة صورتان بالفولدر (0_YOUSSEF) وعمل استعلام (Qry_Logos) يأتي بمسار الصور من الفولدر .ثم بالحقل الجديد (LogoPath) يأتي بمسار الصورة حسب الحقل (External_lab) . تفضل المرفق . ووافني بالرد . JO_Lab-1.rar

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

تفضل استاذ @sm44ms تفضل الشرح والمرفق بطلبك بالضبط . ووافني بالرد DDOpen2Forms-2.rar

بعد التمعن بكلامك ايش المطلوب بالضبط ياريت لاتبخل بالشرح .

من وجهة نظري بعدما جربت محاولات كثيرة لنفسي أولاً ومنها حلول استاذي ومعلمي استاذ @jjafferr مايصير طلبك إلا من خلال زر من نموذج أخر مثلما سويت بأول المشاركة. لكن ممكن بجوار بعض اذا مساحة الشاشة تسمح بذلك . وممكن تتحكم في ارساء كل منهم بالكود بالفورم (FINISHED CAED TEMPLATE) تفضل الشرح والمرفق . ووافني بالرد. DDOpen2Forms-1.rar

ابشر لكن عطني وقت لأني على موعد اليوم .

استاذ @sm44ms تفضل الشرح والمرفق وبدون أكواد . DDOpen2Forms.rar

تفضل استاذ @ahmed_204079 طلبك حسب مافهمت كل المدرسين بجدول واحد ثم بالاستعلامين والنماذج بتحصل طلبك . DDelegation.rar

اعتقدنفس هذا DD-JO_2010-1.rar

نعم يخفي ولكن فعال كما ترى .

تفضل أستاذ @jo_2010 الحل من وجهة نظري اليك الشرح والمرفق . ووافني بالرد . DD-JO_2010.rar

مصدر بيانات التقرير هو نفس مصدر بيانات الفورم الفرعي .

ابشر انشاء الله بعد صلاة المغرب بكمل الموضوع وبعرضه لأاني بدأته بالفعل وباق اللمسات الأخيرة .. كما بالصورة .

استاذ @mohamed_ets اولا كنا منتظرين اجابنك على اسئلة أستاذ @Foksh كي نساعدك . المهم 1- من تحليل الصورة الاولى :- حل مشكلة عدم القدرة على حفظ التغييرات في Microsoft Accessيبدو أنك تواجه مشكلة في حفظ التغييرات في قاعدة بيانات Access بسبب أن الملف مفتوح من قبل مستخدم آخر. إليك بعض الحلول الممكنة: الحلول المباشرة: إغلاق جميع نسخ Access وإعادة فتح الملف بحقوق حصرية: أغلق جميع نسخ Access المفتوحة افتح الملف مع الضغط على زر Shift أثناء الفتح أو استخدم خيار "فتح بحقوق حصرية" من قائمة File إعادة تشغيل الكمبيوتر: أحيانًا يعالج هذا المشكلة إذا كان هناك قفل على الملف بسبب عملية سابقة حلول أخرى: إنشاء نسخة جديدة من الملف: استخدم "Save As" لحفظ الملف باسم جديد أو استخدم "Compact and Repair Database" من قائمة Tools فحص وجود ملف .lck: ابحث عن ملف بنفس اسم قاعدة البيانات ولكن بامتداد .lck في نفس المجلد واحذفه إذا كنت تعمل على شبكة: تأكد من عدم وجود مستخدم آخر يصل إلى الملف تحقق من أذونات المجلد للتأكد من أن لديك حقوق الكتابة 1- من تحليل الصورة الثانية :- حل مشكلة "You do not have exclusive access to the database" في Access هذه المشكلة شائعة في Microsoft Access وتحدث عندما يحاول عدة مستخدمين تعديل التصميم في نفس الوقت، أو عندما يكون الملف مقفولاً. إليك الحلول التفصيلية: الحلول الفورية: إغلاق جميع نسخ Access وإعادة الفتح بحقوق حصرية: أغلق جميع نوافذ Access المفتوحة اضغط بزر الماوس الأيمن على ملف قاعدة البيانات اختر "فتح باستخدام" → Microsoft Access أثناء الفتح، اضغط مع الاستمرار على مفتاح Shift لفتحه في وضع الحصرية استخدام خيار "فتح بحقوق حصرية": شغّل برنامج Access أولاً (بدون فتح الملف) اذهب إلى File → Open حدد ملف قاعدة البيانات انقر على السهم الصغير بجوار زر Open واختر "Open Exclusive" حلول متقدمة: إصلاح قاعدة البيانات: من قائمة File اختر "Info" انقر على "Compact & Repair Database" احفظ نسخة جديدة من الملف حذف ملف القفل (.lck): اذهب إلى مجلد قاعدة البيانات ابحث عن ملف بنفس الاسم ولكن بامتداد .lck احذف هذا الملف (تأكد من عدم وجود أحد يستخدم قاعدة البيانات عند القيام بذلك) نسخ التقرير إلى قاعدة بيانات جديدة: أنشئ قاعدة بيانات جديدة فارغة استخدم خيار "Import" لاستيراد التقرير من القاعدة القديمة إلى الجديدة إذا كنت تعمل على شبكة: طلب من المستخدمين الآخرين الإغلاق: تأكد من عدم وجود مستخدمين آخرين يعدلون التصميم اطلب من الجميع إغلاق قاعدة البيانات مؤقتًا فحص أذونات الملف: تأكد أن لديك صلاحيات الكتابة على الملف والمجلد اضغط بزر الماوس الأيمن على الملف → Properties → Security نصائح وقائية: احفظ نسخة احتياطية من قاعدة البيانات بانتظام تجنب فتح قاعدة البيانات للتصميم من خلال الشبكة، انسخها محلياً أولاً استخدم "Split Database" إذا كان عدة مستخدمين يحتاجون الوصول جرب هذه الحلول بالترتيب، وعادةً ما يحل أحدها المشكلة. إذا استمرت المشكلة، قد تحتاج إلى فحص إضافي لإعدادات الشبكة أو أذونات الملفات. لاحظ بالتحليلين وجود عامل مشترك هو وجود ملف بنفس الاسم ولكن بامتداد .lck احذف هذا الملف (تأكد من عدم وجود أحد يستخدم قاعدة البيانات عند القيام بذلك)

تفضل استاذ @RAIANESAMI اليك المرفق بعد التعديل وبه طلبك . جرب ووافني بالرد . واذا كان هذا طلبك لا تنسى الضغط على تمت الاجابة حتى يستفيد غيرك من هذا العمل . DDFinding Differences-EmpIDtxt.rar

تفضل استاذ @dd13901390 طلبك . ووافني بالرد . Lists.rar

أي حقل أذكر اسمه ؟؟؟؟