Thêm dữ liệu vào table (2 người xem)

[ptkhanh_nt]

CSDL có 1 table: tbltonghop (mats, tents, ...namad).
Mình có 3 form:frmmain, frmsub, frmthuchien.
Mình muốn: khi chạy frmthuchien, nhập vào năm. Giả sử: nhập 2010, nhấn nút thực hiện thì trên frmsub (nằm trong frmain) sẽ được liệt kê các tài sản (mã tài sản, tên tài sản, ...) tương ứng với namad là 2010.
Mình đã được hướng dẫn và thực hiện được đến đây.
Bây giờ, mình muốn tại frmmain, ta có thể thêm dữ liệu vào tbltonghop.
Xin hướng dẫn. Chân thành cám ơn rất nhiều!

 

[Hai Lúa Miền Tây]

CSDL có 1 table: tbltonghop (mats, tents, ...namad).
Mình có 3 form:frmmain, frmsub, frmthuchien.
Mình muốn: khi chạy frmthuchien, nhập vào năm. Giả sử: nhập 2010, nhấn nút thực hiện thì trên frmsub (nằm trong frmain) sẽ được liệt kê các tài sản (mã tài sản, tên tài sản, ...) tương ứng với namad là 2010.
Mình đã được hướng dẫn và thực hiện được đến đây.
Bây giờ, mình muốn tại frmmain, ta có thể thêm dữ liệu vào tbltonghop.
Xin hướng dẫn. Chân thành cám ơn rất nhiều!

Code formmain chỉnh [NAMAD] thành NAMSD

Private Sub Form_Open(Cancel As Integer)
On Error GoTo err_handle
    Dim strSQL As String
    strSQL = "SELECT * FROM tbltonghop where NAMSD = '" & pnamAD & "'"
    Me.frmsub.Form.RecordSource = strSQL
    Me.frmsub.Requery
err_handle:
        Exit Sub
End Sub

Nút thêm mới

Private Sub cmbthem_Click()
Me.frmsub.Form.AllowAdditions = True
'Me.frmsub.Form.NewRecord
End Sub

 

[ptkhanh_nt]

Làm như câu lệnh của Bạn, mình vẫn không được vì: Các textbox mang giá trị của subform. Không phải mạng giá trị Null. Cho nên khi thêm vô. Phải xoá các giá trị đó.
Rất bất tiện.
Mình muốn xoá control source của các Textbox. Vậy làm cách nào để Text mang các giá trị của Subform
Xin cám ơn.