Đá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 Present Nhận viết phần mềm, hỗ trợ viết phần mềm, hợp tác viết phần mềm trên nên Microsoft Access mọi phiên bản Liên hệ: Mr Đức -989276236. 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
  [Hỏi] Mở form có điều kiện. Các bác giúp em với! cannguyen 2 100 13-02-17, 11:23 AM
Bài mới nhất: cannguyen
  Hướng Dẫn Lọc dữ liệu từ textbox thanhtruong 15 485 11-02-17, 10:22 AM
Bài mới nhất: thanhtruong
  [Help] Truy vấn nhiều giá trị, nhập trong 1 textbox duy nhất ở form ckno1no 11 701 23-01-17, 01:32 PM
Bài mới nhất: ckno1no
  [Help] Search dựa trên nhiều tiêu chí Godspear 7 183 20-01-17, 10:55 AM
Bài mới nhất: Godspear
  [Help] khoanh vùng tìm kiếm trong Search Form Godspear 3 145 19-01-17, 05:31 AM
Bài mới nhất: Godspear

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ơ