Đá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] Giúp mình về lỗi “Run-time error '4609': "String too long" binlaxanh 1 17 Hôm qua, 09:46 PM
Bài mới nhất: maidinhdan
  Hướng Dẫn Cách lưu (back up database) dữ liệu! danhxetnghiem 24 3,933 Hôm qua, 06:27 PM
Bài mới nhất: MTNQ
  [Help] hàm edate trong access anhnt 2 61 13-05-17, 07:03 PM
Bài mới nhất: anhnt
  [Help] Bẫy lỗi tiếng Việt trùng dữ liệu khi bấm nút Lưu trên Form ongke0711 7 320 12-05-17, 07:10 PM
Bài mới nhất: maidinhdan
  Xin giúp liên kết đường dẫn trong access audition 14 5,314 11-05-17, 11:50 AM
Bài mới nhất: cpucloi

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ơ