vulhu06 > 02-03-17, 10:23 AM
ongke0711 > 02-03-17, 11:17 AM
vulhu06 > 02-03-17, 11:45 AM
(02-03-17, 11:17 AM)ongke0711 Đã viết: Bạn bỏ Setfocus thì nó có lưu không? báo lỗi gì?Rất cám ơn bạn đã quan tâm. Tất cả textbox này đều trên mainform (unbound), nếu bỏ dòng SetFocus nó báo tại dòng rs.update, nói rằng không thể lưu vì không có focus. Thế là mình phải chèn thêm dòng setfocus cho từng text mới lưu được
Code này do bạn nào đó làm chưa đúng thôi, không cần SetFocus đâu. Các textbox này nằm trên SubForm à?
ongke0711 > 02-03-17, 12:02 PM
vulhu06 > 02-03-17, 12:20 PM
(02-03-17, 12:02 PM)ongke0711 Đã viết: Bạn thêm từ khóa Me trước unbound textbox xem thử (Vd: Me.txtngaythang). Nếu đc thì bạn up file lên đây xem thử. Tôi chưa thấy trường hợp này. Code bạn thì đúng rồi đó.
tranthanhan1962 > 02-03-17, 06:41 PM
Dim db As DAO.Database
Set db = CurrentDb
Dim rs As Recordset
Set rs = db.OpenRecordset("bangluong", dbOpenDynaset)
rs.AddNew
rs!manv = cbnhanvienluong.Column(0)
rs!ngaythang = txtngaythang.Text
rs!hsl = txthsl.Text
rs!ngaycong = txtngaycong.Text
rs!lcb = txtlcb.Text
rs!tamung = txttamung.Text
rs!thuclanh = txtthuclanh.Text
rs.Update
MsgBox "Thành công", , "Thông báo"
rs.Close
Set db = NothingMTNQ > 02-03-17, 08:20 PM
Trích dẫn:To set or return a control's Text property, the control must have the focus, or an error occurs. To move the focus to a control, you can use the SetFocus method or GoToControl action.
ongke0711 > 02-03-17, 09:07 PM