شرح الكود

[ابوصلاح]

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

الرجاء شرح الكود او الاجزاء المهمة مثل rst .movelast    rst.move.first   do until rst.eof

[ابوصلاح]

طبعا محدش فاضي شكرا

[طلب اكسس]

42 دقائق مضت, ابوصلاح said:

طبعا محدش فاضي شكرا

اسلوب غريب في ردة فعلك

وَإِنَّمَا الأُمَمُ الأَخْلاقُ مَا بَقِيَتْ 
                فَإِنْ هُمُ ذَهَبَتْ أَخْلاقُهُمْ ذَهَبُوا

 

ارجوا ان تراعي الجميع . فالجميع هنا ليسوا مجبرين بل مخيرين

[ابوصلاح]

شكرا اخي طلب اكسس لكن 

اولا انا لم اقل شي خارج عن الاخلاق

ثم ان استشهادك بالبيت هو الاغرب  لاني لم  اخرج عن الذوق العام 

اما الغريب ان تكون كلمة فاحشة او عيب او عيب في شخص او في كلمة جارحه

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

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

[د.كاف يار]

6 ساعات مضت, ابوصلاح said:

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

الرجاء شرح الكود او الاجزاء المهمة مثل rst .movelast    rst.move.first   do until rst.eof

انت هنا حددت الناس المنقولة و طبقت عليهم شروط الفصل الجديد

اذا كان في الصف الأول ينقل للصف الثاني ... الخ و هكذا

Select Case OldClass
Case "الأول"
NewClass = "الثاني"
Case "الثاني"
NewClass = "الثالث"
Case "الثالث"
NewClass = "الرابع"
Case "الرابع"
NewClass = "الخامس"
Case "الخامس"
NewClass = "السادس"
Case "السادس"
NewClass = "السابع"
End Select

 

[ابوصلاح]

اخي حسين بارك الله فيك انا لست بصدد دالة select case  فهي سهلة لا تحتاج الي شرح لكن هناك بعض الاشياء او الدوال مثلا

rst.MoveLast
rst.MoveFirst
Do Until rst.EOF

هنا حدد move last   ثم move first  لماذا لم يحدد مباشرا move first ثم وضع بعد ذلك rst.EOF ما هو عمل الدالة eof هل هو ارجاع false عندما لا يتحقق الشرط اما غير ذلك