Hiện tại em đang vướng mắc vấn đề này rất mong các bác xem xét.
Em có 1 file back_end chứa table T_Intend, có 1 field là "Intend_Month". Em tạo 1 query "Q_Intend" từ cái table này.
Có 1 form "F_Intend" chứa "Q_Intend" ở dạng subform. Trong form này có 1 textbox "search_Month" và e tạo 1 button. Em muốn khi bấm vào nút thì record nào có field "Intend_Month" đang trống thì sẽ cập nhật giá trị trong textbox "search_Month" vào.
Code em viết:

Private Sub Command13_Click()
Dim db As DAO.Database

Dim rs As DAO.Recordset



Set db = CurrentDb

Set rs = db.OpenRecordset("T_Intend", dbOpenDynaset)



If rs.RecordCount > 0 Then

rs.MoveFirst

    If rs![Intend_Month] = "" Then

        rs![Intend_Month] = Me.search_Month.Value

        rs.Update

    End If

End If

Me.Refresh


End Sub



Cơ mà vẫn không được ạ ( Mong các bác chỉnh code giúp em. Em cảm ơn nhìu!!!

- Muốn cập nhật Recordset thì phải có cặp code:
     rs.Edit/ rs.AddNew
  ...
  ...
  rs.Update
 

- Muốn cập nhật hết các record trong Table thì phải đưa vô vòng lặp duyệt qua từng record.
        rs.MoveFirst
   Do Unitl rs.EOF
       ...
       
       rs.MoveNext
   Loop

(11-05-21, 12:57 PM)ongke0711 Đã viết: - Muốn cập nhật Recordset thì phải có cặp code:
     rs.Edit/ rs.AddNew
  ...
  ...
  rs.Update
 

- Muốn cập nhật hết các record trong Table thì phải đưa vô vòng lặp duyệt qua từng record.
        rs.MoveFirst
   Do Unitl rs.EOF
       ...
       
       rs.MoveNext
   Loop

Private Sub Command13_Click()

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("T_Intend", dbOpenDynaset)

rs.MoveFirst
Do Until rs.EOF
    rs.Edit
    If rs![Intend_Month] = "" Then
        rs![Intend_Month] = Me.search_Month.Value
    End If
    rs.Update
    rs.MoveNext
Loop
rs.Close
Me.Refresh

End Sub

Em đã sửa lại như này mà vẫn ko được (

- Có báo lỗi gì không? Bạn chụp hình lên xem. Luôn dòng code báo lỗi.
- Field [Intend_Month] có dataType kiểu gì? Number, Date...? Có đúng chính tả không?
- textbox [search Month] có đúng Name của nó không?
- Muốn Refesh SubForm thì phải: Me.SubForm.Requery

(11-05-21, 01:42 PM)Nikkie Đã viết: Private Sub Command13_Click()

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("T_Intend", dbOpenDynaset)

rs.MoveFirst
Do Until rs.EOF
    rs.Edit
    If rs![Intend_Month] = "" Then
        rs![Intend_Month] = Me.search_Month.Value
    End If
    rs.Update
    rs.MoveNext
Loop
rs.Close
Me.Refresh

End Sub

Em đã sửa lại như này mà vẫn ko được (

Sai câu lệnh trong vòng lặp. Phải xét đk trước rồi mới Edit Recordset