Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Lưu dữ liệu trên form
#1
chào các anh chị, em có 01 form nhập dữ liệu, nhưng các field này là textbox không có control source , vậy code của nút "lưu" viết như thế nào vậy? em xin cảm ơn
Chữ ký của vulhu06 Xin chào, mình là vulhu06, Tham gia http://thuthuataccess.com/forum từ ngày 15-06 -12.
Reply
Những người đã cảm ơn
#2
1/ Nhập liệu vào table tblHangHoa gồm các trường MaHang, TenHang, DVT
2/ Trên form nhập liệu có 3 textbox txtMaHang, txtTenHang, txtDVT
3/ Code cho nút cmdLuu như sau
Mã PHP:
Private Sub cmdLuu_Click()
    
Dim rs As Recordset
    Set rs 
CurrentDb.OpenRecordset("tblHangHoa"dbOpenTable)
    If 
IsNull(Me.txtMaHang) = True Or IsNull(Me.txtTenHang) = True Or IsNull(Me.txtDVT) = True Then
        MsgBox
"Phai ghi du du lieu" , , "Chu y"
        
Me.txtMaHang.Sefocus
        
Exit Sub
    
Else
        
rs.AddNew
        rs
.Fields(0) = Me.txtMaHang
        rs
.Fields(1) = Me.txtTenHang
        rs
.Fields(2) = Me.txtDVT
        rs
.Update
    End 
If
    
rs.Close
End Sub 
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn vulhu06 , conmeo , TruongVanTruong
#3
Bạn vẫn tạo ra một bảng vì dụ bảng tbhocsinh trong do có truong MHS muốn gan cho txt boxt
Trong biến có Apter update bạn viết như sau
Dim tb as recoeset
set currentdb.opnenrycoret("tbhocsinh",dbopendynaset)
If tb.recorcaunt >0 then
exit sub
else
do until tb.eof
tb.add
tb!MHS =TXTboxt
tb.update
exit do

end if
tb.movenexxt
loop
tb.close
ban thu xem
Chữ ký của tt1212 Nhận lập trình ứng dụng Access, PHP, C#  và hỗ trợ các bạn viết phần mềm ĐT:0989.276.236
Email. Tantriviet.vnn@gmail.com
Reply
Những người đã cảm ơn vulhu06 , conmeo
#4
dạ em xin cảm ơn mấy anh, có một vấn đề này nữa xin mọi người chỉ giáo. em có table tinhtrangcoso(macty,tencty,solankt,ngaykt,chayno), trong đó macty em lấy dữ liệu từ bảng khác, các field khác em có chọn control source, nhưng field tencty là textbox có công thức "=macty.column(1)" vậy thì code sẽ như thế nào đối với textbox tencty???
Chữ ký của vulhu06 Xin chào, mình là vulhu06, Tham gia http://thuthuataccess.com/forum từ ngày 15-06 -12.
Reply
Những người đã cảm ơn
#5
Ah em đã chạy thử code của anh Xuan Thanh rồi, khi chạy máy báo lỗi "user-defined ... is not defined" và tô màu tại 02 dòng
"Private Sub cmdLuu_Click()
Dim rs As Recordset". em đang cần gấp , mong chỉ giáo
Chữ ký của vulhu06 Xin chào, mình là vulhu06, Tham gia http://thuthuataccess.com/forum từ ngày 15-06 -12.
Reply
Những người đã cảm ơn
#6
1/ cmdLuu là tên nút lệnh Lưu, bạn thay bằng tên của bạn nhé
2/ Trong cửa sổ VBA, vào menu Tools/Reference chọn thư viện DAO 3.6
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
Chào mọi người, mấy bữa tìm hiểu viết code lưu dữ liệu trên form đã được rồi, hôm nay vì sự cố mấy luôn file, đành ngồi làm lại. bây giờ code lưu dữ liệu báo lỗi runtime-error "13", type missmatch và tô màu ở dòng set rs=currentdb.openrecordset... mặc dù chọn DAO 3.6 rồi, mọi người chỉ em với
Chữ ký của vulhu06 Xin chào, mình là vulhu06, Tham gia http://thuthuataccess.com/forum từ ngày 15-06 -12.
Reply
Những người đã cảm ơn
#8
Cứu em với em chọn thư viện DAO 3.6 trong VBA nó báo là "names conflict .."em hiểu ý là đã có rồi nên đụng độ, vậy phải làm sao???
Chữ ký của vulhu06 Xin chào, mình là vulhu06, Tham gia http://thuthuataccess.com/forum từ ngày 15-06 -12.
Reply
Những người đã cảm ơn
#9
Ai đó làm ơn giúp em với, không có thư viện này thì code lưu dữ liệu của em không hoạt động được, em gởi câu báo lỗi nè

"Name conficts with exiting module,project or object library"
Chữ ký của vulhu06 Xin chào, mình là vulhu06, Tham gia http://thuthuataccess.com/forum từ ngày 15-06 -12.
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
  Thông báo dữ liệu đã tồn tại thanhtruong 15 749 22-07-17, 12:17 AM
Bài mới nhất: ongke0711
  [Help] Code update dữ liệu từ subform vào table history(có ghi nhận ngày update) subasatran 5 199 10-07-17, 02:07 PM
Bài mới nhất: tranthanhan1962
Exclamation [Help] Truy vấn từ 1 list box trong form và điều chỉnh kích thước form tien1505 4 97 01-07-17, 12:34 AM
Bài mới nhất: tien1505
  [Hỏi] form tìm kiếm sản phẩm thanhhao 1 71 30-06-17, 05:04 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Xin Giúp dùm cái form thanhhao 4 113 30-06-17, 11:37 AM
Bài mới nhất: thanhhao

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ơ