ابوصلاح قام بنشر سبتمبر 18, 2020 مشاركة قام بنشر سبتمبر 18, 2020 السلام عليكم لدي مرفق اريد فيه عمل لجان لكل صف حسب اللجان المطلوبة في مربع النص بحيث اكتب 4 لجان مثلا يقوم اكسس بوضع اللجنة 1 و2 الخ .... في المرفق يتضح الامر توزيع اللجان علي الطلبة.rar رابط هذا التعليق شارك More sharing options...
ابوصلاح قام بنشر سبتمبر 18, 2020 الكاتب مشاركة قام بنشر سبتمبر 18, 2020 الفكره ربما تكون غير موضحه جيدا هو وضع رقم اللجنه في عمود اللجنه حسب العدد الصف الرابع ٤ لجان وعدد الصف الرابع ١٠٠ تكون كل لجنه ٢٥ طالب توضع في عمود اللجنه وشكرا رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد أبوعبدالله قام بنشر سبتمبر 18, 2020 أفضل إجابة مشاركة قام بنشر سبتمبر 18, 2020 وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم جرب الحل التالي On Error GoTo Err: Dim mySQL As String Dim rst As Recordset Dim i As Double, J As Double If IsNull([cbo_saf]) Then MsgBox "اختر الصف اولا", vbCritical, "اوفيسنا" Else DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE emthan_tbl_bianat SET emthan_tbl_bianat.lagna = 0 WHERE (((emthan_tbl_bianat.saf)=[forms]![frm_golos_sry]![cbo_saf]));" DoCmd.SetWarnings True mySQL = "Select * From emthan_tbl_bianat" mySQL = mySQL & " WHERE saf ='" & Me.cbo_saf & "'" mySQL = mySQL & " ORDER BY golos1" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst For J = 1 To Me.count_legan For i = 1 To Me.kk rst.Edit rst![lagna] = J rst.Update rst.MoveNext Next Next Me.Requery End If Err: If Err.Number = 3121 Then Else End If توزيع اللجان علي الطلبة.rar تحياتي رابط هذا التعليق شارك More sharing options...
ابوصلاح قام بنشر سبتمبر 18, 2020 الكاتب مشاركة قام بنشر سبتمبر 18, 2020 (معدل) اخي محمد عبد الله عمل ممتاز بارك الله فيك لكن علي فرض اريد ان يبدا اللجنة مش من رقم واحد لا من ثلاثة بمعني لجنة (3 ) لجنة (4)وشكرا تم تعديل سبتمبر 18, 2020 بواسطه ابوصلاح رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.