Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Nhờ các cao thủ giúp mình đoạn code lấy dữ liệu 1 table trong form
#1
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
Chữ ký của xiketuan Xin chào, mình là xiketuan, Tham gia http://thuthuataccess.com/forum từ ngày 22-12 -11.
Reply
Những người đã cảm ơn
#2
Bạn save as thành định dạng MDB thử. Mình không mở được định dạng accdb
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
(22-12-11, 10:13 PM)Noname Đã viết: Bạn save as thành định dạng MDB thử. Mình không mở được định dạng accdb

mình đã save as thành 2003 rồi mong mọi người xem xét.
Chữ ký của xiketuan Xin chào, mình là xiketuan, Tham gia http://thuthuataccess.com/forum từ ngày 22-12 -11.
Reply
Những người đã cảm ơn
#4
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á....
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
(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?
52_52
Chữ ký của muaphonui_2010 "Cần cù bù thông minh"
Reply
Những người đã cảm ơn
#6
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
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn domfootwear , haquocquan
#7
Thanks Noname code đã chạy.

Chữ ký của xiketuan Xin chào, mình là xiketuan, Tham gia http://thuthuataccess.com/forum từ ngày 22-12 -11.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Nhiều người truy cập cùng một dữ liệu import từ Excel nap0le0n 5 154 26-10-17, 12:08 AM
Bài mới nhất: tranthanhan1962
  Quên pass code bảo vệ vba thanhhau828 4 303 09-09-17, 05:05 PM
Bài mới nhất: thanhhau828
  Về các field (cột dữ liệu) có kiểu là OLE Object lehongduc 2 183 28-08-17, 08:25 AM
Bài mới nhất: lehongduc
  [Hỏi] Sao lưu file MDB và tạo lệnh phục hồi dữ liệu hoangminh 5 340 17-08-17, 03:54 PM
Bài mới nhất: cpucloi
  [Hỏi] Hỏi về việc khóa dữ liệu , khóa subform toidjtjmtoi 8 473 27-07-17, 05:12 PM
Bài mới nhất: ongke0711

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ