[Hỏi đáp] Anh(chị) cho em hỏi về form access (2 người xem)

[thanhnt1910]

Em có tạo một form access để nhập dữ liệu, nhưng đến phần nút sửa thì chỉ sửa được bản ghi đầu tiên. Em có tìm kiếm cách làm rồi nhưng vẫn chưa làm được, mong anh chị giúp đỡ ạ. Em cảm ơn.
Đây là sự kiện để em tìm bàn ghi:

Private Sub CboSTT_AfterUpdate()
Dim db As Database
Dim rec As Recordset
Set db = CurrentDb
Set rec = db.OpenRecordset("NhatKyThuKhuonGaMoi")

If CboSTT.Value = rec("STT").Value Then
    cboMaKhuon.Value = rec("MaKhuon").Value
    txtNgayThu.Value = rec("NgayThu").Value
    txtLanThu.Value = rec("LanThu").Value
    txtVanDeChatLuong.Value = rec("VanDeChatLuongSanPham").Value
    txtVanDeKhuonGa.Value = rec("VanDeChatLuongKhuonGa").Value
    txtGiaiQuyet.Value = rec("HuongGiaiQuyet").Value
    If rec("DanhGia").Value = False Then
        chkKDat.Value = True
    End If
    If rec("DanhGia").Value = True Then
        chkDat.Value = True
    End If
End If
End Sub

Đây là nút sửa của em:

Private Sub btnSua_Click()
Dim db As Database
Dim rec As Recordset
Set db = CurrentDb
Set rec = db.OpenRecordset("NhatKyThuKhuonGaMoi")

rec.Edit
rec("MaKhuon").Value = cboMaKhuon
rec("TenKhuon").Value = txtTenKhuon
rec("NgayThu").Value = txtNgayThu
rec("LanThu").Value = txtLanThu
rec("VanDeChatLuongSanPham").Value = txtVanDeChatLuong
rec("VanDeChatLuongKhuonGa").Value = txtVanDeKhuonGa
rec("HuongGiaiQuyet").Value = txtGiaiQuyet
If chkDat.Value = True Then
    rec("DanhGia") = True
End If
If chkKDat.Value = True Then
    rec("DanhGia") = False
End If
rec.Update
MsgBox "Sua doi thanh cong", vbApplicationModal, "Thong bao"
rec.Close

cboMaKhuon.SetFocus
Set rec = Nothing
Set db = Nothing
End Sub