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

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

السلام عليكم أخوانى الأفاضل أعضاء المنتدى الكريم 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