كل الانشطه

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

الهدف والغاية ، فالغاية تبرر الوسيلة 😁

انا سويت لك نفس الطلب من قبل هنـــــــا

الدالة تصبح Function RelinkIsIco() As String Dim rs As DAO.Recordset Dim rsA As DAO.Recordset2 Dim fPath As String Dim tempPath As String ' فتح السجل Set rs = CurrentDb.OpenRecordset("SELECT progIcon FROM tblEnDc") If Not (rs.EOF And rs.BOF) Then Set rsA = rs.Fields("progIcon").Value ' Recordset خاص بالمرفقات If rsA.RecordCount > 0 Then rsA.MoveFirst ' تحديد مسار مؤقت في Windows Temp tempPath = Environ$("TEMP") & "\" & rsA!FileName ' استخراج الملف من المرفقات إلى المسار المؤقت rsA!FileData.SaveToFile tempPath RelinkIsIco = tempPath End If rsA.Close End If rs.Close Set rs = Nothing End Function واستدعاؤها Private Sub cmdShar_Click() Me.img1.Picture = RelinkIsIco() End Sub

وجدت حلا وهي الطريقة الوحيدة التي وصلت اليها وهي نسخ الصورة وارسالها بجانب قاعدة البيانات نعم هي طريقة مفيدة ... ففي هذا الوضع لا يعتمد البرنامج على صور خارجية .. وحتى لو تم حذفها او العبث في التسمية فسوف يدرج اكسس صورة جديدة ورغم ان الارسال سيتم مرة واحدة عند اقلاع البرنامج .. الا انه عند فتح النماذج كل نموذج يتم فتحه تتم عملية حذف الصورة الموجودة وارسال صورة جديدة ويمكنني تلافي ذلك بجعل الكود يتفحص اذا الصورة موجودة بجانب قاعدة البيانات ام لا .. فإذا موجودة يأخذ من موقع الصورة مباشرة وان لم يجدها يرسل جديدة . وغالبا ستكون موجودة بجوار قاعدة البيانات . سأعرض لكم الكود الذي تمت معالجته + المرفق 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

ما دامه يحقق طلبك وغايتك ، فاعتمده بلا تردد 🙂 .

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

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

هل المطلوب ايقونة واحدة ام ممكن ان تكون اكثر من واحدة

اشكرك حضرتك على ردك والله انا بحاول فيه من 8 ساعات وجارب التجريب حالا تمام الله يكرمك ولكن فيه مشكلة عند فتح الملف على اوفيس 2007 لا يفتح وتظهر رسالة اعادة تشغيل برنامج الاكسيل فتحت على اوفيس 2013 اشتغل ححاول حفظه على اصدار اقدم

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

نرجوا منكم كيف اضافة سجلات موجودة في جدول T1 الى جدول آخر T2 UnMatched123.mdb

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

وعليكم السلام ورحمة الله وبركاته.. بالنظر الى الدالة ولهذا السطر تحديداً:- ImagePath = rs!progIcon.Value سيتم التعامل مع المسار على انه نص وليس كحقل مرفقات . لم أطّلع على الملف ، أتابع من الجوال حالياً.

اخي الكريم ، انت الآن تنتقل الى موضوع جديد ، لذا راجياً منك إغلاق هذا الموضوع لتحقيقه المطلبين الأولين ، وافتح موضوع جديد بهذا الطلب ، بحيث يكون عنوانه مثلاً:- إضافة السجلات الغير موجودة من جدول الى جدول آخر

الاخوة اكرمكم الله مفيش حل

السلام عليكم قمت بحفظ ايقونة في حقل مرفقات (Attachment) في جدول من اجل استخدامها في اماكن متعددة في البرنامج ذهبت الى هذا النهج من اجل تبقى الايقونة غير ظاهرة .. بحيث لا يمكن حذفها او التعديل عليها واستخدمت هذا الكود لكنه لم يعمل Function RelinkIsIco() As String Dim rs As DAO.Recordset Dim ImagePath As String Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblEnDc") ImagePath = rs!progIcon.Value RelinkIsIco = ImagePath rs.Close Set rs = Nothing End Function Private Sub cmdShar_Click() Me.img1.Picture = RelinkIsIco() End Sub آمل التصحيح ادناه مثال للتجربة Database1.rar

مشكور اخي لكنه عندما يكون موظف جديد في جدول T1 لايضيفه الى جدول T2

تم التعديل بحيث يظهر لك رسالة بتحديث قيم الجدول الثاني ( الثابت ) بقيم الجدول الأول ( المتغير ) . جربه وأخبرنا بالنتيجة . UnMatched123.mdb

بالضبط، هذا هو المطلوب جزاك الله خير نحن بحاجة إلى مزيد تعليم وخاصة في دمج المعادلات 🙂

السلام عليكم بعد استخراج التغيرات كيف انقل البيانات الجديدة من جدول T1 الى جدولT2 UnMatched.mdb

تفضل استاذنا . الشرح والمرفق . MohamedShemi.accdb

السلام عليكم ورحمة الله جرب تطبيق هذا التنسيق على التاريخ لعله يفي بالغرض : [$-ar-DZ,201]dddd yyyy/mm/dd

يتشرف #مركز_الرؤية_الاستراتيجية_للتدريب #Strategic_Vision_Training_Center لدعوة سيادتكم للأنضمام الي الدورات التدريبية التالية,,,,, دورات تدريبية هندسة الميكانيكا السيارات مقدمة إن أهمية الدورات التدريبية ليست قاصرة فقط على الحياة المهنية كما يظن أغلبنا .. ولكن الدورات التدريبية تهدف إلى نقل المعرفة والخبرات العملية التى تثقل مهارات الأفراد وتعزز الثقة بالنفس لديهم مما يساهم في إعداد الكوادر مما يعود بدوره على تطوير وتقدم المؤسسات .لذا يهدف مركز الرؤية الاستراتيجية للتدريب إلى تعزيز مهارات وخبرات الافراد من خلال أقوى البرامج التدريبة لنواكب كل تطور في سوق العمل . #دورات #هندسة #الميكانيكا #السيارات دورة تدريب المشغلين على صيانة الآلات دورة التدريب الهيدروليكي دورة العزل الميكانيكي دورة الصيانة الميكانيكية دورة توربينات الغاز: التشغيل ، استكشاف الأخطاء وإصلاحها ، الصيانة والفحص دورة سلامة الهواء المضغوط دورة صمامات التحكم النسبي دورة قراءة المخططات التخطيطية الهيدروليكية دورة مقدمة في علم الهواء المضغوط واكتشاف الأخطاء وتشخيصها دورة الأنظمة الهيدروليكية المتقدمة دورة الصيانة الشاملة للتوربينات الغازية دورة تشغيل وكشف الأعطال وصيانة محركات الديزل دورة مقدمة في علم نيوماتيك - أساسيات دورة صيانة الانظمة الهيدروليكية والنيوماتيكية دورة صيانة طلمبات الطرد المركزي والهيدروليكية دورة نظم التحكم الآلى فى درجة حرارة ومستويات السوائل دورة المهارات الإدارية للمهندسين والفنيين دورة تكنولوجيا الديزل دورة صيانة المعدات الثقيلة دورة أنظمة النقل المتغير باستمرار (CVT): التكنولوجيا والتطبيقات دورة تقنيات متقدمة للتركيبات الميكانيكية في المباني دورة الصيانة الميكانيكية والكهربائية للأوناش العلوية كما يتم تنفيذ #الدورات_التدريبية فى #المجالات_التدريبية الاتية : #الدورات الهندسية ) الكهربائية - الميكانيكية والسيارات - الهندسة المدنية والمشاريع والطرق - هندسة المساحة - الصيانة - البترول والجولوجيا( دورات البيئة وصحة وسلامة الغذاء دورات الامن الصناعي والسلامة والصحة المهنية دورات الامن دورات القانون والعقود دورات الجودة والأنتاج دورات القيادة والادارة دورات العلاقات العامة والدولية والاعلام دورات السكرتارية وادارة المكاتب دورات التسويق والمبيعات وخدمة العملاء دورات الموارد البشرية دورات المحاسبة والمالية دورات البنوك والمصارف دورات المشتريات والمخازن دورات النقل و اللوجستيات وادارة سلاسل التوريد أماكن الانعقاد ( #دبي #اسطنبول #كوالالمبور #المغرب #السعودية #شرم_الشيخ #القاهرة #الأسكندرية #لندن # اسبانيا #كندا ) الاعتمادات احصل الان على شهادتك باعتماد cpd الدولى كما يوجد خصم للشركات والهيئات والجهات الحكومية والمجموعات كما يتم تنفيذ أي دوره تدريبيه اخرى تلبي احتياجاتكم التدريبية بالوقت و بالمكان المناسبين لكم على ان يكون عدد المشاركين (2) كحد ادنى قاعات التنفيذ بفنادق 5 نجوم ذات الشهره العالميه مجهزه بالوسائل السمعيه والبصريه للتسجيل او لطلب العرض الفنى والمالى يرجى الاتصال او ارسال بريد الاكترونى Ahmed Mohamed WhatsApp 00201551848384 Training@svtcenter.com svtcenter.com Facebook https://www.facebook.com/profile.php?id=100086139318374 Twitter https://twitter.com/StrategicVisio7 Linkedin https://www.linkedin.com/company/strategic-vision-training-center/ Instagram https://www.instagram.com/strategicvisiontrainingcenter WIX https://eslam-training.wixsite.com/training Website https:// svtcenter.com/ar/Home

عاشت ايدك معلمنا @Foksh تم حل المشكلة ربنا ينفعنا بعلمك وفي ميزان حسناتك