Barna

عندي طريقة لربما تعتبر طريق فرعي وترابي ايضا مقارنة بطريقة أخي @jjafferr سوف ارفقها ..... بشرط أن يضع لنا الاستاذ جعفر طريق سريع ومسفلت ... Sub RecordPorssesing() On Error Resume Next Dim rs, rs2, rsq As Recordset, Dbs As Database Dim StrSql As String Dim x, r, I, p, z As Integer Set Dbs = CurrentDb Set rsq = Dbs.OpenRecordset("Temp4") Set rs = Dbs.OpenRecordset("SELECT Temp4.F2 FROM Temp4 WHERE (((Temp4.F2) Is Not Null));") rsq.MoveLast rsq.MoveFirst For z = 1 To rs.RecordCount Step 5 For I = 1 To rsq.RecordCount Step 5 Set rs2 = Dbs.OpenRecordset("tbl_bar") rs2.AddNew rs2.Fields(0) = rsq.Fields(0) r = 0 For p = 1 To 5 rs2.Fields(r) = rs.Fields(0) r = r + 1 rs.MoveNext Next p rs2.Update rsq.MoveNext Next I Next z Set rs = Nothing Set rs2 = Nothing Set rsq = Nothing DoCmd.OpenTable "tbl_bar" End Sub Posters.accdb

لا تستخدم الكلمات المحجوزة في اكسس في تسمية الجداول او النماذج أووووووووووووووووووووووووووووووووو من الكلمات المحجوزة: ADD - ALL - AND - BETWEEN - Count - CurrentUser - DATABASE - DATE - FROM - GROUP - INDEX - Level - Macro - Module - NAME - NUMBER - PRIMARY - Query - Refresh - Report - TABLE - Time - USER - Year - YES - YESNO بارك الله فيك ....

ومشاركة مع اخي واستاذي صالح غير في كود الاستيراد الموجود في النموذج الموجود في الصورة واستبدل كود استيرا بيانات المعلمين بالكود التالي Dim ImportFileName As String ImportFileName = Me.txtPath CurrentDb.Execute ("Delete * From Teacher") CurrentDb.Execute ("Delete * From Temp4") DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Temp4", ImportFileName, False DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Teacher ( Teacher, Email ) " & _ " SELECT Temp4.f20, Temp4.f7 " & _ " FROM Temp4 " & _ " WHERE (((Temp4.f20)<>""الإسم""))" DoCmd.SetWarnings True MsgBox "تم استيراد أسماء المعلمين بنجاح" End Sub

Nouveau Microsoft Access قاعدة بيانات.accdb

أخي بلال لم تشرح المطلوب بالتفصيل ؟؟؟؟؟؟ هل بيانات الحقول ؟؟؟؟ هل اسماء الحقول فقط ؟؟؟؟؟ هل هذا هو المطلوب ؟؟؟؟ وكيف تريد ظهورها ؟؟؟؟ هل بشكل مسميات ليبل أم ؟؟؟؟؟

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

اولا : احذف هذا السطر لا تحتاجه 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

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