Ntrongnghia79 > 01-10-21, 10:26 AM
ongke0711 > 01-10-21, 11:07 AM
Ntrongnghia79 > 01-10-21, 11:58 AM
(01-10-21, 11:07 AM)ongke0711 Đã viết: Nếu có file thì mới xem được cách bạn chèn dòng từ Listbox xuống Subform như thế nào.
Thông thường thì dùng câu lệnh SQL "Insert into ...", nó sẽ tự động xuống dòng mới thôi.
ongke0711 > 01-10-21, 12:57 PM
(01-10-21, 11:58 AM)Ntrongnghia79 Đã viết: Private Sub List54_DblClick(Cancel As Integer)
On Error Resume Next
Me.HoaDonChiTiet!IDMon = Me.List54.Column(0)
Me.HoaDonChiTiet!SL = 1
End Sub
Me.[HoaDonChiTiet].SetFocus
DoCmd.GoToRecord, , acNewRec
Me.HoaDonChiTiet!IDMon = Me.List54.Column(0)
Me.HoaDonChiTiet!SL = 1
Ntrongnghia79 > 02-10-21, 12:14 AM
(01-10-21, 12:57 PM)ongke0711 Đã viết:(01-10-21, 11:58 AM)Ntrongnghia79 Đã viết: Private Sub List54_DblClick(Cancel As Integer)
On Error Resume Next
Me.HoaDonChiTiet!IDMon = Me.List54.Column(0)
Me.HoaDonChiTiet!SL = 1
End Sub
Vậy bạn thêm dòng lệnh nhảy tới record mới rồi chèn dữ liệu. Chưa test.
Mã PHP:Me.[HoaDonChiTiet].SetFocus
DoCmd.GoToRecord, , acNewRec
Me.HoaDonChiTiet!IDMon = Me.List54.Column(0)
Me.HoaDonChiTiet!SL = 1