Đá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
Photo [Problem] Không thêm được records từ list vào table thông qua đối tượng rs vuga 3 186 25-02-17, 05:54 PM
Bài mới nhất: ongke0711
  Hướng Dẫn Cách lưu (back up database) dữ liệu! danhxetnghiem 22 3,341 17-02-17, 06:02 PM
Bài mới nhất: MTNQ
  Bạn nào có công cụ sửa lỗi File access cho mình với ledangvan 0 48 14-02-17, 11:13 AM
Bài mới nhất: ledangvan
  Di chuyển list index trong listbox về cuối list khi thêm 1 record vuga 1 96 15-01-17, 01:00 PM
Bài mới nhất: ongke0711
Photo Lỗi hàm Sum trong Report va ngày tháng trên Form ! vocan 3 179 09-01-17, 06:19 PM
Bài mới nhất: maidinhdan

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ơ