ابوبسمله

اتفضل ان شاء الله يكون ما تريد بالتوفيق 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 كفيت ووفيت ببساطه معلمنا وشيخنا الجليل جزاك الله خيرا 💐

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

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

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

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

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

حمدالله على السلامه اخى ومعلمى العزيز جعفر 💐 وفى انتظار مفاجئاتك

السلام عليكم ورحمه الله وبركاته اخى الفاضل @MEMO2008 اولا دعنا نتشرف باسمك لنناديك باحب الاسماء لك ومرحبا بك معنا فى قسم الاكسيس ثانيا بعض التوجيهات قبل الاجابه على سؤالك يجب تسميه جميع الكائنات والحقول باللغه الانجليزيه وتستطيع استخدام اللغه العربيه فالتسميه التوضيحيه وذلك لتسهل على نفسك كتابه الاكواد لان اللغه العربيه بتخلف كتابه الكود واليك التعديل ع مثالك بعد اختيار رقم السياره سيتم جلب اخر قيمه حاليه تم تسجيلها لها ووضعها بالقيمه السابقه للسجل الجديد 'الحالية 'تسجيل القراءة 'رقم السيارة Private Sub txtCar_AfterUpdate() Me.txtSabk = DLast("الحالية", "[تسجيل القراءة]", "[رقم السيارة]=" & Me.txtCar) End Sub بالتوفيق 3A_سيارات.accdb

السلام عليكم ورحمه الله وبركاته مشاركه مع الاستاذ @عمر ضاحى جزاه الله خيرا تم اضافه المعيار التالى فاستعلام الالحاق وهو استعلام فرعى لاضافه الغير موجود بجدول SUP Not In (SELECT SUP.CONTRACT_FILE FROM SUP;) بالتوفيق SUP_3A.accdb

اسال الله ان يعينك ويسهل امورك ويجعل لك من كل هم فرجا ومن كل ضيق مخرجا تحياتي يا ابا بسملة 🌹 اهلا بوالدى العزيز مساكم الله بكل خير اللهم آمين واياكم جميعا معك حق استاذى العزيز ولكن ع ما يبدوا ان اخى السائل ضعيف فى الاكواد مثلى فارادها بطريقه استعلام الالحاق لكى يفهم مايدور ويستطيع التحكم بالحقول التى يريدها الى ان يتعلم ويتحكم بالاكواد فيطورها كيفما شاء وان شاء الله ربنا يوفقه ويتعلم ويساعد اخوانه المبتدئين اللى زى حلاتى واحنا بنتعلم منكم والدى العزيز ومن اخوانى واساتذتنا الكرام كل يوم فجزاكم الله عنا كل خير 💐🌹

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