ابوحمزه المصرى

شكراً لك أخى الكريم المتألق رجب جاويش وننتظر بتشوق اللإصدار الجديد لكنترول الصف الأول والثانى الثانوى

السلام عليكم أخوانى الأفاضل أعضاء المنتدى الكريم VBAأريد ان اتعلم اكسس 2010 من الصفر حتى الاحتراف المتقدم وال هل هناك كتاب باللغه العربية او كورس فيديو لذلك

up

دائماً متميز اخى الكريم شوقى ربيع ... بارك الله فيك على ماتقدمه لنا تحياتى

up

المثال مره اخرى للتوضيح اخوانى الافاضل الوارد اولا صادر اولا حسب التاريخ.rar

السلام عليكم ورحمة الله وبركاته اخوانى الكرام اعضاء منتدى اوفيسنا ارجو ان يكون هناك حلا لمشكلتى اريد عند صرف بضاعه يظهر فى آخر عمود تاريخ وارد تلك البضاعه مع مراعاة ان البضاعه المنصرفه قد تكون لها اكثر من تاريخ للوارد اليكم المثال الوارد اولا صادر اولا حسب التاريخ.rar

اخى الفاضل ابو أسيل موضوع رائع ومجهود اروع لكن يتبقى نقطه هامه ان يضاف عمود اخير يظهر فيه الكميه وتاريخ دخول البضاعه مع مراعاة انه ممكن تحصل مبيعات لاكثر من تاريخ مشتريات

تم العمل بالكود بنجاح .. اشكرك اخى الغالى ابو البراء على المجهود الرائع .. بارك الله فيك

up

up

up

up

تفضل اخى الكريم ابوالبراء pc.rar

اخى الفاضل ابو البراء طبقت تعليماتك واضفت صورة no.jpg لكن للاسف عندما لا تتوفر صورة واحده لا يعرض باقى الصور للشخص ... انظر الى الكود لعل اكون مخظئ فى التنفيذ Private Sub Worksheet_Change(ByVal Target As Range) Dim myPath As String, fullImagePath As String myPath = ThisWorkbook.Path & "\pic\" fullImagePath = myPath + [B1] If Target.Address = "$B$1" Then On Error GoTo Skipper Image1.Picture = LoadPicture(fullImagePath & "1.JPG") Image2.Picture = LoadPicture(fullImagePath & "2.JPG") Image3.Picture = LoadPicture(fullImagePath & "3.JPG") Image4.Picture = LoadPicture(fullImagePath & "4.JPG") Exit Sub End If Skipper: Image1.Picture = LoadPicture(myPath & "NO.jpg") Image2.Picture = LoadPicture(myPath & "NO.jpg") Image3.Picture = LoadPicture(myPath & "NO.jpg") Image4.Picture = LoadPicture(myPath & "NO.jpg") End Sub

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

اخى الفاضل ابو البراء اريد الصور بفولدر pic بنفس مسار الملف المرفق pc.rar

خي العزيز أولا تذهب ل تنسيق خلايا ثانيا : مخصص ثالثا: فى مربع النوع اكتب ddd

شكراً أخى الفاضل ابو البراء على الاهتمام اليك مثال مصغر pic.rar

غير نوع البيان الى ddd اكتب الداله التالىه واسحب b6=

السلام عليكم ورحمة الله وبركاته اخوانى الافاضل اريد اظهار الصور الشخصيه وصورة البطاقه وصورة رخصة القياده للموظف فى نفس الوقت فى الشيت بحثت كثيرا فلم اجد سوى امكانية التعامل لصورة واحده بارك الله فيكم

بل الشكر والتقدير لك اخى الفاضل الزباري على ما تقدمه لنا وللمنتدى الكريم... تم تجربة الملف الاخير بنجاح

اخى الزباري اشكرك بحراره على ما تقدم لنا وللمنتدى الكريم...اظن ان كل اوامر الدوس فى كل الاصدارات واحده ... ربما تكون المشكله ليست فى الدوس

فعلا اخى الزباري هناك خطأ ما فى الوصول للملف

تمام اخى الزباري وصلت المعلومة بارك الله فيك .. استمر