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

اتفضل استخدم هذا Private Sub choo_AfterUpdate() If Me.choo.Value = 0 Then Me.RecordSource = "SELECT Tab1.name1, Tab1.wazefa FROM Tab1" Else Me.RecordSource = "SELECT Tab1.name1, Tab1.wazefa FROM Tab1 WHERE (((Tab1.wazefa) = [Forms]![Qwaz]![choo])) WITH OWNERACCESS OPTION;" End If DoCmd.Requery End Sub chooseAll.mdb

إخواني الأعزاء هذا برنامج يمكن الاستفادة منه في كل مايتعلق بالتعامل مع طلبات الشراء المقدمة للموردين ، ولن أطيل الكلام والشرح ففي قسم المساعدة - HELP بالبرنامج ما يغني عن الشرح وما أريد لفت النظر إليه هو أن كلمة السر للدخول على البرنامج والتعامل مع كل الأوامر المحمية بالبرنامج هي 123 والتي يمكنك تعديلها ، أرجو أن يجد فيه المطلع ما يفيد . مع حبي وتقديري أبو عبدالله PURCHASE ORDER SOFTWARE E01.rar

السلام عليكم ورحمة الله وبركاته في النموذج مجموعة خيارات الخانة 1 و 2 و 3 تعمل الخانة 4 ( الجميع) هل هناك طريقة لتفعيل هذه الخانة المرفق ابلغ في عرض السؤال chooseAll.mdb

تفضل او او . جعفر

السلام عليكم الظاهر أن الصورة ليست من الملف الذي تم إرفاقه... ما عليك إلا تحديد كل الصفوف (يمكن تحديد الصفوف من الصف ذو الترتيب 36 إلى الصف ذو الترتيب 72) ثم القيام بالترتيب (يدويا باستعمال خاصية الترتيب) حسب العمود الذي يحوي أرقام الترتيب... ليس لي فكرة أخرى... بن علية حاجي

تفضل: تم إعادة ضبط العلاقات في النماذج والتقارير بشكل صحيح تم إضافة اكواد للمعاينة والطباعة والفتح حسب الحاجة مع إزالة كل الماكرو المستخدم، لانني لا اعرف كيف يستخدم الماكرو هكذا يعمل الان: 1- عند فتح البرنامج : يفتح على الشاشة الرئيسية في وضع جديد 2- يجب اختيار سجل موجود قبل الضغط على قائمة التحاليل 1 او 2 3- الطباعة والمعاينة تتم للسجل الظاهر على الشاشة :: جرب ووافني بالنتيجة برنامج التحاليل 2020

جزاك الله الجنة شكرا جزيلا أستاذنا الفاضل علي أهتمامك كلامتي تعجز عن شكرك وهل من ملاحظات لتطوير البرنامج ليكون أفضل

وعليكم السلام واهلا وسهلا بك في المنتدى جرب هذا التعديل: =sum([نوع الاحازة]+[المجموع الاجازات]) جعفر

السلام عليكم تفضل اخوي حربي: هذه قاعدة بيانات مشاركتك الاولى، 1. في المجاميع ، استخدامك للتاريخ يجب ان لا تظهر نتائجه ، لذلك يجب ان يكون بالطريقة ادناه، 2. الحقل Sum_Mony نوعه "نص" (طبعا هذا غير صحيح ويجب تعديله من جانبك) ، وعلشان تحصل على مجموع حقل النص ، يجب ان تستعمل الامر Val اي تأخذ قيمة حقل النص: . والنتيجة . جعفر 945.Prog3.3.mdb.zip

شوف المرفق ده لقيته جاهز وموجود بالجروب db14.mdb

السلام عليكم ملك المعادلات استاذ سليم حفظكم الله مميز دائما اخي العزيز زادكم الله من فضله وفقكم الله وجعلها في ميزان حسناتكم تحياتي

مرفق الملف كما طلبت أ/ عبد اللطيف سلوم مصروفات عيون مصر الخاصة.accdb

تفضل هذا بالمعادلة -1استدعاء الاسماء من عمودين وجعلها في عمود واحد بدون فراغات.xlsx

تفضل : تم إضافة هذا الكود في حدث عند التحميل للنموذج ID للفتح على سجل جديد If Not IsNull(Me.ID) Then DoCmd.GoToRecord , , acNewRec End If الكود التالي: على ازرار المعاينة للتقارير: مع تغيير اسم التقرير رقم 1 او 2 Dim stDocName As String DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 stDocName = "قائمة رقم 1" DoCmd.OpenReport stDocName, acViewPreview, , "MAinID=" & [ID] تم إزالة كل فلاتر ID الموجودة في استعلامات التقارير لانها لا تلزم تم تسمية حقل ID في الاستعلامات الخاصة بالتقارير الى MainID كي يتم التمييز عند استخدام الكود السابق للفلترة هذا البرنامج: مرفوع على الميديا فير رابط برنامج مركز الصحة

تفضل اخى الكريم داله اكسل-1.xlsx

ماشاء الله تبارك الله مشكور على هذا المجهود الجبار

الأخ الكريم محمود يرجى تغيير اسمك للغة العربية ليعبر عن شخصكم الكريم إليك الملف التالي بمجرد النقر المزودج في العمود B يتم تنفيذ الماكرو لنفرض أن لدينا الإجراء الفرعي التالي Sub Test() MsgBox "Hello Mahmoud" End Sub ثم يوضع الكود التالي في حدث ورقة العمل Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Column = 2 Then Call Test End If End Sub أرجو أن يكون المطلوب إن شاء الله Run Macro On Double Click.rar