نجوم المشاركات

استأذنك أخي @abouelhassan فتح موضوع جديد بطلبك موضح بالمرفق طلبك .

ربما يفيدك هذا الكود : Sub PrintPDF() Dim objPDF As Object Dim strReportName As String Dim strOutputPath As String ' اسم التقرير الذي ترغب في طباعته إلى ملف PDF strReportName = "اسم_التقرير" ' المسار الذي سيتم حفظ الملف فيه strOutputPath = "مسار_الملف\اسم_الملف.pdf" ' إنشاء كائن PDF Set objPDF = CreateObject("AcroExch.PDDoc") ' فتح قاعدة البيانات المرتبطة بالتقرير DoCmd.OpenReport strReportName, acViewNormal ' حفظ التقرير كملف PDF DoCmd.OutputTo acOutputReport, strReportName, acFormatPDF, strOutputPath ' إغلاق التقرير DoCmd.Close acReport, strReportName ' إغلاق كائن PDF objPDF.Close ' تحرير الذاكرة Set objPDF = Nothing ' إعلام المستخدم بالانتهاء MsgBox "تم طباعة التقرير كملف PDF بنجاح!" End Sub قم بتغيير "اسم_التقرير" إلى اسم التقرير الذي ترغب في طباعته، و "مسار_الملف\اسم_الملف.pdf" إلى المسار الذي ترغب في حفظ الملف PDF فيه. بعد ذلك، يمكنك تشغيل الكود عن طريق فتح قاعدة البيانات في Access والذهاب إلى وحدة VBA. ثم، قم بتشغيل الكود "PrintPDF" لل

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

لأن حضرتك تبحث فى جدول واحد وليس به اسم المخازن أما الأن خليت البحث بالجداول الثلاثة باستعلام ...... تفضل جرب ووافي بالرد . تجربة-2.accdb

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

استاذنا @abouelhassan تفضل . تجربة-1.accdb

تفضل أخي ووافني بالرد . MDBCONTROLE-3.rar

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

اكتب دالة : =TODAY() ثم كلك يمين وعدل على تنسيق الخلية format cell ثم تخصيص custom وعدل على راحتك

Select the desired row and right-click to copy Select one cell then go to the Name Box and type A5144 Right-click and paste

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

تفضل اذا فتحت النموذج سيم التنفيذ بالتوفيق Test.mdb

جزاكم الله خير kkhalifa1960 و Ezril على تفاعلكم معي وبارك الله لكم .

اليك هذا المثال not edit.rar

ما له دخل اللغه بالمشاكل 1- استخدم في حل *دالة NZ( واكتب المعيار او حدد اسم الحقل) 2- اما الكمية عند بيع او شراء بنقص وزياده @عمر ضاحى و @Eng.Qassim ابحث في محرك بحث موقع تجد موضوع مبسط 3- فقط اضافة شرط بعد تحديث وعند النقر على الحقل اذا كان الحقل 0 Than

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

تم حل المشكلة والحمد لله

بارك الله

برنامج حساب التأمين لارباب العهدة بالمصالح الحكومية بجمهورية مصر العربية محدث عام 2023 تم زيادة عدد الموظفين الى 30 موظف تم اتاحة اختيار الاجر الوظيفيى او الاساسى لكل موظف على حدة برنامج حساب أرباب العهد عام 2023.xlsm.xlsx لتحميل الملف من جوجل درايف اضغط على الرابط التالى https://docs.google.com/spreadsheets/d/1AW0QhXRCs2IwMU7qH8pYyp0qJE4h6MOXr_d7mTxs38A/edit?usp=sharing

ممكن من فضلك عمل استعلام كمثال

تفضل اخي ميزانية -اكسل-2023-.rar

تفضل أخي ووافني بالرد باكر انشاء الله . MDBCONTROLE-2.rar

أ/ابو ايمان .. طرق الحل المختلفة تثرى الموضوع ومنها بنتعلم كلنا طرق مختلفة للحل مكناش واخدين بالنا منها

اصدقائي الاكارم السلام عليكم و رحمة الله و بركاته الجزء الخامس درس اليوم هو الدرس الاخير في سلسلة تحويل قاعدة بيانات اكسس الى SQL في هذا الدرس سنقوم بربط الجداول من SQL الى قاعدة بيانات اكسس اضافة للبرنامج : انشاء نسخة احتياطية و استعادتها 😊 الجزء الخامس.accdb الجزء الخامس.pdf

الشكر والتقدير للأستاذ Emad Sabry وكذلك الشكر موصول للأستاذ أبو إيمان على مجهودكم

أول طلب يمكن عمل ذلك عن طريق استعلام تحديث وسوف يتم عمله على جميع الجداول وتحويله الاستعلامات الى vba و تشغيله عند فتح البرنامج بالتوفيق ثانيا Me![Filed].BackColor = vbRed Me![Filed].ForeColor = vbWhite Me.Filed.FontSize = 22 بالتوفيق

لمشاهدة كيفية استخدام البرنامج اضعط على الرابط

بالنسبة لطلبك الأول تفضل عدم تفعيل السطر الأول كما بالكود . Private Sub uuo_Click() 'DoCmd.RunCommand acCmdSaveReco DoCmd.OpenForm "for_class", acNormal, "", "", , acNormal End Sub لم أفهم وين !! ممكن توضح .

انا اعمل على 2019 الرسالة تتحدث عن ملف مفقود ، ويبدوا انه ملف كروم التنفيذي chrome.exe انظر السطر التالي داخل محرر النموذج وتأكد من ان ملف كروم عندك متوافق مع المسار في السطر فقد يكون في (86) Program Files chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe"""

اصدقائي الاكارم السلام عليكم و رحمة الله و بركاته الجزء الثالث في هذا الجزء سنقوم بانشاء سكريبت لاستخدامه في انشاء جداول قاعدة البيانات في SQL الجزء الثالث.pdf

هذا الموضوع يا ازهر ⬇️

ما شاء الله شيء جميل تشكر عليه