Tùy chọn
Nhờ các cao thủ giúp mình đoạn code lấy dữ liệu 1 table trong form
- Nhờ các cao thủ giúp mình đoạn code lấy dữ liệu 1 table trong form
-
Nhờ các cao thủ giúp mình đoạn code lấy dữ liệu 1 table trong form
xiketuan > 22-12-11, 08:25 PM
mình 3 table, 1 form tròn đó :
Tbale: T_Tien; chứa dữ liệu cần điền vào table T_dánhchdangky thong qua form.
Mình thiết kế đoạn code nhưng chỉ click vào dòng có mã tiền CD2 với số tiền là 2.700.000 thì ok, còn lại nó im ru. hic không biết sai chỗ nào, nhờ các cao fix dùm em, thanks.
tải file -
RE: Nhờ các cao thủ giúp mình đoạn code lấy dữ liệu 1 table trong form
Noname > 22-12-11, 10:13 PM
Bạn save as thành định dạng MDB thử. Mình không mở được định dạng accdb -
RE: Nhờ các cao thủ giúp mình đoạn code lấy dữ liệu 1 table trong form
domfootwear > 23-12-11, 02:07 PM
Bạn nên làm 1 cái ví dụ đơn giản, càng ít TextBox càng tốt, nhìn vào ngán quá.... -
RE: Nhờ các cao thủ giúp mình đoạn code lấy dữ liệu 1 table trong form
muaphonui_2010 > 23-12-11, 03:25 PM
(22-12-11, 08:25 PM)xiketuan Đã viết: mình 3 table, 1 form tròn đó :
Tbale: T_Tien; chứa dữ liệu cần điền vào table T_dánhchdangky thong qua form.
Mình thiết kế đoạn code nhưng chỉ click vào dòng có mã tiền CD2 với số tiền là 2.700.000 thì ok, còn lại nó im ru. hic không biết sai chỗ nào, nhờ các cao fix dùm em, thanks.
tải file
Nó không hiểu là do bạn viết chữ hoa và chữ thường đó, bạn thử sửa lại hết chữ hoa sẽ có kết quả ngay.
-mình nhìn bài viết của bạn cũng không hiểu nổi ý định hay mục đích của bạn để làm gì hjhjhhj. bó tay.( không biết có phải bạn muốn dữ liệu từ Form bạn dò đủ điều kiện , nếu đủ thì lưu vào Table ko?
-
RE: Nhờ các cao thủ giúp mình đoạn code lấy dữ liệu 1 table trong form
Noname > 23-12-11, 03:27 PM
Bạn thử sửa code lại như sau:
Mã:Private Sub Cmdtext_Click()
Dim rs As DAO.Recordset
Dim sql As String
Dim sorecord As Double
sql = "Select * FROM T_tien WHERE (HocKy=" & TxthocKy & ") AND (Namhoc='" & TxtNamHoc & "') AND (MaTien='" & CboMatien & "') "
Set rs = CurrentDb.OpenRecordset(sql, dbOpenSnapshot)
sorecord = rs.RecordCount
Txtsorecord = sorecord
On Error Resume Next
If sorecord > 0 Then
rs.MoveFirst
MsgBox "timthay 1 cai gi?"
If TxthocKy = 1 Then
TxtBHYT = rs!BHYT
TxtBHTT = rs!BHTT
Else
TxtBHYT = 0
TxtBHTT = 0
End If
txtSoTien = rs!SoTien
Else
MsgBox "khong tim thay gi ca"
End If
rs.Close
End Sub -
RE: Nhờ các cao thủ giúp mình đoạn code lấy dữ liệu 1 table trong form
xiketuan > 23-12-11, 09:19 PM
Thanks Noname code đã chạy.