أبوبسمله

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

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

تم

بالتوفيق

وعليكم السلام وحمه الله وبركاته اتفضا اخى @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

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

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

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

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خيرا وفيك بارك الله اخى @athal1 كفيت ووفيت ببساطه معلمنا وشيخنا الجليل جزاك الله خيرا 💐

وعليكم السلام ورحمه الله وبركاته اتبع الصور بالتوفيق

جزاكم الله خيرا اخوانى واساتذتى ع اثراء الموضوع بمشاركتكم 💐🌹

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