خطا في كود تحديث الجدول من النموذج

[ابوصلاح]

Private Sub أمر16_Click()

Dim DB As DAO.Database
Dim rst As Recordset
Set DB = CurrentDb
Set rst = DB.OpenRecordset("select * from tbl_sheet")
rst.MoveFirst

Do Until rst.EOF
rst.Edit
rst("amount_sheet") = amount_sheet

rst.Update
rst.MoveNext

Loop
Set DB = Nothing
Set rst = Nothing
Form.Requery


End Sub

دا كود تحديث الجدول من النموذج غلبنى معاه الكود يحدث جميع السجلات بقيمة واحدة ارجو الافادة اكرمكم الله

تحديث من نموذج الي جدول بشرط.rar

[ابوصلاح]

من الواضح ان الشرح مختصر لذا الفكرة لم تصل 

الفورم frm_sheet يقوم بتحديث جدول tbl_sheet

في حدث امر16 عن النقر يقوم الكود بتحديث الجدول من الفورم 

لكنه لا يقوم بعمل loop علي سجلا ت الفورم -من الواضح -لا نه يحدث الجدول بقيمه واحدة لكل السجلات الموجودة بالجدول 

[محمد أبوعبدالله]

السلام عليكم

راجع المرفق بارك الله فيك

تحديث من نموذج الي جدول بشرط_2.rar

تحياتي

[ابوصلاح]

اخي محمد بارك الله فيك 

لكن عند تعديل قيمة في النموذج لا يعمل الكود

[محمد أبوعبدالله]

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

لكن عند تعديل قيمة في النموذج لا يعمل الكود

جربت من جديد ويعمل تمام الحمد لله

ولكن يحتاج الى الذهاب الى اول سجل تفضل الكود من جديد

    DoCmd.GoToRecord , , acFirst
    Dim DB As DAO.Database
    Dim rst As Recordset
    Set DB = CurrentDb
    Set rst = DB.OpenRecordset("select * from tbl_sheet")
    rst.MoveFirst
    
    Do Until rst.EOF
    
    
        rst.Edit
        rst("amount_sheet") = Me.amount_sheet
        
        rst.Update
        rst.MoveNext
        DoCmd.GoToRecord , , acNext
    
    Loop
    Set DB = Nothing
    Set rst = Nothing
    Form.Requery

تحياتي