حلقة تكرارية

[ابوصلاح]

المطلوب عمل حلقة تكرارية لاختيار نعم في مربع النص اختيار بحيث عندما اختر الصف الرابع واضغط علي اختيار الكل يضع نعم امام الصف الرابع فقط

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

حلقة تكرارية.rar

[jjafferr]

وعليكم السلام 🙂

 

شوف هذا الرابط ، فيه مجموعة طرق

 

 

جعفر

[ابوصلاح]

Dim f As Boolean
Dim rst As DAO.Recordset
    Set rst = Me.RecordsetClone
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    f = rst!done
    
    For i = 1 To RC
        rst.Edit
        rst!done = Not f
        rst.Update
        
        rst.MoveNext
    Next i
    
    rst.Close: Set rst = Nothing
    
End Sub

ممكن شرح الكود وخصوصا DAo.recordset

ret.movelast:restmovefirst

تم تعديل يوليو 20, 2019 بواسطه ابوصلاح

[ابو عارف]

السلام عليكم

اخي اليك التعديل حسب فكرتي 

في ١٨‏/٧‏/٢٠١٩ at 14:51, ابوصلاح said:

بشرط القيد يساوي ناجح

بشرط القيد يساوي منقول لان لا يوجد خيار ناجح 

حلقة تكرارية.rar

[ابوصلاح]

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

Option Compare Database

Private Sub أمر30_Click()
Dim DB As DAO.Database
Dim rst As Recordset
Set DB = CurrentDb
Dim OldClass As String
Dim NewClass As String
Set rst = DB.OpenRecordset("select * from tbl_studen where keed='منقول' And Yes_No=true ORDER BY id_stu")
rst.MoveLast
rst.MoveFirst
Do Until rst.EOF
OldClass = rst!saf
Select Case OldClass
Case "الأول"
NewClass = "الثاني"
Case "الثاني"
NewClass = "الثالث"
Case "الثالث"
NewClass = "الرابع"
Case "الرابع"
NewClass = "الخامس"
Case "الخامس"
NewClass = "السادس"
Case "السادس"
NewClass = "السابع"
End Select

rst.Edit
rst!saf = NewClass
rst.Update
rst.MoveNext
Loop
Set DB = Nothing
Set rst = Nothing
Form.Requery
End Sub

Private Sub أمر31_Click()
Dim DB As DAO.Database
Dim rst As Recordset
Set DB = CurrentDb
Set rst = DB.OpenRecordset("select * from tbl_studen where saf='" & cbo_saf & "'")
rst.MoveFirst
Do Until rst.EOF
rst.Edit
rst!yes_no = True
rst.Update
rst.MoveNext
Loop
Set DB = Nothing
Set rst = Nothing
Form.Requery