Barna

ممكن تتكرم علينا بمثال مصغر للعمل عليه

اولا : احذف هذا السطر لا تحتاجه appAccess.Visible = False ثم عدل في بعض خصائص النموذج للقاعدتين الاخرى ....... حتى تصل للنتيجة المرغوبة .....

بعد أذنك أخي الاستاذ @احمد الفلاحجي في نفس مثال أخي الاستاذ @kanory ضع هذا الكود بدلا من الكود الموجود ....... Dim X, d As String Dim strDB As String X = DLookup("[name1]", "[Dchoose]", "[Name2] ='" & name1.Column(2) & "'") If IsNull(Me.name1) Then MsgBox "ÚÐÑÇ ÇÎí ÇáßÑíã ... áã ÊÞã ÈÅÎÊíÇÑ ãÓÇÑ ÇáãáÝ", vbCritical, "ÇÏÎá ãÓÇÑ ÇáãáÝ" DoCmd.CancelEvent Else strDB = "D:\Saas\" & X & ".mdb" Set appAccess = CreateObject("Access.Application") appAccess.OpenCurrentDatabase strDB appAccess.Visible = True End If

سبقني اخي @احمد الفلاحجي بالوردتين .. لكن يستاهل ابا بسملة 🌷🌷

خليهم اربعة عشاني يستاهل اخي احمد مليون وردة

ماشاءالله تبارك الله ... هدية جميلة اخي الاستاذ @ابوآمنة بارك الله فيك

كيف اليا ... هل تقصد عدم كتابة عدد الطلاب والمجموعات ؟؟؟؟

أخي @ابوآمنة ماشاء الله تبارك الله ...... هدية جميلة .... ولكن اقتراح تطوير البرنامج بحيث يعمل على صور المجلد بالاضافة الى الاختيار ( بعض الصور وليس الجميع )

أخي الكريم .... تابع الشرح ونفذ .... حسب طلبك كل 22 سجل برقم معين ...... اليس هذا هو المطلوب ؟؟؟؟؟؟

ولا يهمك ..... تفضل واعلمنا بالنتيجة ..... ترقيم مجموعه (1).accdb

الله يسلمك من كل شر أخي الفاضل فايز ..... مشاغل الدنيا ... الله لا يشغلنا الا بطاعته ....

ابحث في المنتدى هناك الكثير من طرق توزيع الطلاب على اللجان .....

بالعكس جدا جميل ..... اردت التأكيد عليه اظهارة ...... بارك الله قي أخي خالد ...... تشكر

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

تفضل ..... MARK.mdb

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

ممكن تتكرم علينا بشرح الية عمل البرنامج بدلا من محاولة فهمه ..... مثلا كيف واين يتم ادخال الباركود في واجهة البرنامج كيف يتم التحضير للطلاب هل البرنامج يدخل التاريخ واليوم والحصة تلقائي ام يدوي ............... الخ ......... الخ

بعد اذن المشاركين احبابي الكرام ...... تفضل ملفك بعد التعديل .... ‏‏Library - نسخة.rar

من طول الغيبات جاب الغنايم حمدا لله على سلامتك

المنتدى مليئ بشريط للتحميل مثلا انظر .....

بالتوفيق ...

If MsgBox("هل تريد طباعة التقرير؟", _ vbQuestion + vbYesNo, _ "طباعة") = vbYes Then DoCmd.OpenReport "barna" End If

أولا : منور ياريس ثانيا : ماشاء الله يعمل مية المية