yamakashi2003 > 25-12-19, 06:07 PM
tranthanhan1962 > 25-12-19, 08:11 PM
yamakashi2003 > 25-12-19, 09:43 PM
(25-12-19, 08:11 PM)tranthanhan1962 Đã viết: Không cần phải viết code. Thiết đặt Link Master Fields và Link Cild Fields của subform như sau:
Link Master Fields: txtmakh;txttenkh
Link Child Fields: makh;tenkh
Tự động nó sẽ điền
Nhớ là dấu ";"
tranthanhan1962 > 25-12-19, 10:57 PM
yamakashi2003 > 25-12-19, 11:00 PM
(25-12-19, 10:57 PM)tranthanhan1962 Đã viết:(25-12-19, 09:43 PM)yamakashi2003 Đã viết: Không phải bác ơi, làm như vậy chỉ điền được dòng đầu tiên của subform thôi, em muốn khi gõ nhiều lần vào 2 textbox thì dữ liệu sẽ được đẩy xuống các dòng tiếp theo trong subform ạQuan hệ giữa maimform và subform của bạn như thế nào?
Xuân Thanh > 25-12-19, 11:05 PM
Private Sub Buton1_Click()
Dim rKhach As DAO.Recordset
Set rKhach = DB.Open("tblKhach", dbOpenTable)
rKhach.AddNew
rKhach.Fields(0) = Me.txtMaKhach
rKhach.Fields(1) = Me.txtTenKhach
rKhach.Update
Me.txtMaKhach = "" : Me.txtTenKhach = ""
End Sub
Xuân Thanh > 25-12-19, 11:08 PM
Private Sub Button_Click()
Dim DB As DAO.Database
Set DB = CurrentDB
Dim rKhach As DAO.Recordset
Set rKhach = DB.OpenRecordset("tblKhach", dbOpenTable)
rKhach.AddNew
rKhach.Fields(0) = Me.txtMaKhach
rKhach.Fields(1) = Me.txtTenKhach
rKhach.update
txtMaKhach = "" : Me.txtTenKhach = ""
End Sub
yamakashi2003 > 25-12-19, 11:52 PM
(25-12-19, 11:08 PM)Xuân Thanh Đã viết: Sory. Thiếu dòng lệnh. Sửa lại
Mã:Private Sub Button_Click()
Dim DB As DAO.Database
Set DB = CurrentDB
Dim rKhach As DAO.Recordset
Set rKhach = DB.OpenRecordset("tblKhach", dbOpenTable)
rKhach.AddNew
rKhach.Fields(0) = Me.txtMaKhach
rKhach.Fields(1) = Me.txtTenKhach
rKhach.update
txtMaKhach = "" : Me.txtTenKhach = ""
End Sub
ongke0711 > 26-12-19, 12:04 AM
(25-12-19, 11:52 PM)yamakashi2003 Đã viết: bác ơi nếu em không nhầm thì code trên là thêm record vào table nguồn của subform phải k ạ,
nhưng em muốn hỏi bác code để ghi trực tiếp lên subform ấy ạ
còn code ghi lên table rồi requery subform thì em nghĩ ra rồi ạ
yamakashi2003 > 26-12-19, 12:30 AM
(26-12-19, 12:04 AM)ongke0711 Đã viết:.(25-12-19, 11:52 PM)yamakashi2003 Đã viết: bác ơi nếu em không nhầm thì code trên là thêm record vào table nguồn của subform phải k ạ,
nhưng em muốn hỏi bác code để ghi trực tiếp lên subform ấy ạ
còn code ghi lên table rồi requery subform thì em nghĩ ra rồi ạ
Vậy là bạn dùng dạng Unbound Subform à? Tức là chưa muốn ghi dữ liệu lên Table mà chỉ hiển thị trên Form để xem trước?
Cho dù cách nào thì cũng phải ghi dữ liệu lên Table và Form chỉ hiển thị dữ liệu từ table đó.
Riêng trường hợp của bạn, muốn ghi dữ liệu nhiều dòng của SubForm thì chí có một cách duy nhất là tạo table tạm (rỗng) làm nguồn cho subform. Sau khi ghi dữ liệu xuống table tạm này rồi, quyết định lưu chính thức thì Append no vô table chính.