ماذا كل هذا الكود للحفظ ونعلم ان الحفظ يتم تلقائى(معدل)

[ezatshalpy@gmail.com]

هذا كود هو تقريبا للحفظ  حصلت عليه من احد المنتديات والسؤال هو لماذا كل هذا الكود للحفظ ونعلم ان الحفظ يتم تلقائى ام هو لغرض اخر ؟ وشكرا ارجو ذكر الفائدة من الكود

Private Sub أمر412_Click()
On Error Resume Next
Dim db As DAO.Database
Dim rst As Recordset
Dim strsql As String
Dim i As Integer


strsql = "SELECT * FROM ENTER_SAFF where saff_code = " & txt6.Value & " ORDER BY stud_name,gender_code"


Set db = CurrentDb

Set rst = db.OpenRecordset(strsql, dbOpenDynaset)
x.Value = (x.Value) + 1
i = x.Value


StTotal = rst.RecordCount
MsgBox StTotal

Do
rst.Edit
rst![st_no] = i
rst.Update
rst.MoveNext
i = i + 1
Loop Until rst.EOF
rst.Close

Set rst = Nothing
Set db = Nothing
MsgBox "تم الحفظ بنجاح"
End Sub

 

تم تعديل مارس 28, 2021 بواسطه jjafferr
وضع الكود بالطريقة الصحيحة بإستخدام <> القائمة

[jjafferr]

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

 

اخي الفاضل ، رجاء قراءة قوانين المنتدى ، وفي المرات القادمة ، بوضع عنوان صحيح للموضوع ، يدل على مضمون الموضوع 🙂


هذا الكود لا يحفظ قيم ، وانما يُحدّث قيم :

22 ساعات مضت, ezatshalpy@gmail.com said:

Do rst.Edit rst![st_no] = i rst.Update rst.MoveNext i = i + 1 Loop Until rst.EOF

 

وليس لسجل واحد ، وانما لجميع قيم (سجلات) الحقل st_no في الجدول ENTER_SAFF .

 

جعفر

[0d59eacf59]

بارك الله فيك 

 

 

 

 

 

Kodi nox