أبوبسمله

وعليكم السلام ورحمه الله وبركاته اتفضل تم تعديل حقل zday فالجدول لنص ليقبل اسم اليوم Me.Zday = Format(Me.Zdate, "dddd") بالتوفيق تاريخ.accdb

اها ها هو الموضوع الذى اشرت عليه بردكم اخى ومعلمى العزيز

نعم معلمى العزيز ان لم تخنى الذاكره فالفتره حاولت البحث عن الموضوع ولم اوفق ساحاول مره اخرى لعلى اوفق

اللهم آمين وجزاك الله خيرا دكتور محمد وانا فين من اساتذتى ومعلمينى فلست سوى طالب علم احبو ع الطريق الذى مهدوه لنا لنتعلم فجزاهم الله عنا كل خير تسلم ايدك معلمنا العزيز وشيخنا الجليل @ابوخليل ومنور دايما اخى ووالدى العزيز خالد @مبرمج متقاعد ربنا يجازيكم عنا كل خير اخوانى واساتذتى 💐

ههههههه اخى ومعلمنا العزيز جعفر انا فانتظار هذا البرنامج منك منذ زمن عدى حوالى عامين منذ ان تحدثت عنه 😀 ان شاء الله ربنا ييسرها ونشوفه قريب باذن الله 💐

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير احسنت اخى واستاذى ووالدى العزيز خالد جزاك الله عنا كل خير نعم صحيح وجزاك الله خيرا عالتنبيه الذى لم اعد اقم به

تم

بالتوفيق

وعليكم السلام وحمه الله وبركاته اتفضا اخى @alaaldin2010 ان شاء الله يكون ما تريد بالتوفيق مثال_1.accdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير الحمد لله الذى بنعمته تتم الصالحات بس هو مين @مدحت توفيق و @اسلام محمد22 هل الحسبان لنفس الشخص ام انتم زملاء تعملون مع بعض ع نفس البرنامج نعم يوجد اكثر من طريقه واخترت منها تعريف متغير عام بالمديول Module2 Public strName As String ياخد قيمته من الكمبو معرفه الكود بالنموذج accountcuss فى حدث بعد التحديث بمعنى لازم تختار الاسم من هذا الكمبو ليتم تعبئه المتغير بالاسم ويتم اسناد الاسم لمربع النص مع فتح التقرير بالتوفيق 29_2.accdb

السلام عليكم ورحمه الله وبركاته اتفضل اخى الفاضل @مدحت توفيق بالتوفيق 29_1.accdb

اتفضل ان شاء الله يكون ما تريد بالتوفيق karem1.mdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير اتفضل التعديل بالتوفيق karem1.mdb

السلام عليكم اتفضل استاذ @marwa41 ان شاء الله يكون ما تريد سيتم انشاء ملف pdf باسم الشيت اللى انت موجود فيه والمجلد فى اى مكان فى الجهاز Sub print_pdf() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Application.ActiveWorkbook.Path & "\printpdf\" & ActiveSheet.Name & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub بالتوفيق Data.rar

وعليكم السلام ورحمه الله وبركاته اتفضل اخى @dr_bioman بالتوفيق karem2019 new_1.mdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير بالتوفيق

وعليكم السلام ورحمه الله وبركاته فى مصدر عنصر التحكم لاسم الشهر =Format(Date();"mmmm") وللسنه =Year(Date()) بالتوفيق test(1).accdb

السلام عليكم مشاركه مع الاخ الفاضل @Mohamed Hicham جزاه الله خيرا 💐 🌹 تم تعديل السطر التالى باضافه ناقص 6 وهى الاعمده الفارغه .Range("C10").Resize(j - 1, UBound(temp, 2) - 6).Value = temp بالتوفيق AHMAD(1).xlsm

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير @mohamedmas نتمنى لك التوفيق والتعلم لتفيد اخوانك وتبقى مسيره العطاء دائمه بالتوفيق

السلام عليكم مشاركه مع اخى @عمر ضاحى فى حدث فالحالى للنموذج الفرعى Private Sub Form_Current() If Not Me.NewRecord Then Me.AllowEdits = False End Sub بالتوفيق try1.accdb

الشكر لله ثم لاخواننا واساتذتنا الذين نتعلم منهم كل يوم والشكر موصول لاستاذنا @أبو إبراهيم الغامدي جزاه الله خيرا على تفسيره وحل المشكله ماشاء الله عليه 💐 وكل يوم نتعلم منه معلومات قيمه سواء برمجيا او غيره فجزاه الله عنا كل خير هذا صحيح وجزاه الله عنا كل خير 💐 بالتوفيق

السلام عليكم ورحمه الله وبركاته اتفضلى استاذه @Lamyaa ان شاء الله يكون ما تريدين Private Sub FullPrice_LostFocus() x = Val(Me.FullPrice) * 0.15 z = x * 0.15 Me.Price = Val(Me.FullPrice - x) + z Me.VAT = Val(Me.FullPrice * 0.15) - z Me.Amount = Val(Me.Price) + Val(Me.VAT) End Sub بالتوفيق تحمل الضريبة.accdb

وما فى احلى من هيك اخى واستاذى الغالى جزاك الله خيرا 💐

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

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