Đá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
  [Hỏi] Việc set thuộc tính OnClick trong Code toancvp 5 229 31-10-16, 10:14 AM
Bài mới nhất: toancvp
  [Help] Thiết kế form nhập và lưu trữ dữ liệu theo yêu cầu brianhuynh 16 624 20-10-16, 10:54 PM
Bài mới nhất: brianhuynh
  [Hỏi] Cách loại bỏ icon Filter trên Datasheet Form có nguồn là Query. toancvp 2 101 19-10-16, 08:53 PM
Bài mới nhất: toancvp
  Xóa tất cả các dữ liệu ChiMai 3 145 15-10-16, 02:47 PM
Bài mới nhất: cpucloi
  [Help] Nhờ tạo form lưu hóa đơn nhập, hóa đơn xuất, hàng nhập hàng xuất không cần tính tồn laxx_xxal 1 132 22-09-16, 02:35 PM
Bài mới nhất: Nguyen Hoang Diep

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ơ