Đá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 website:http://www.tantrivietsoft.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
  Tự động hiện Form khi loading hết thời gian ChiMai 1 37 02-12-16, 08:59 PM
Bài mới nhất: ongke0711
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 199 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 187 22-11-16, 09:23 AM
Bài mới nhất: jason
  Query hiện lên trên form? feeling 4 162 09-11-16, 09:49 PM
Bài mới nhất: toancvp
  [Help] Chỉnh giúp Form thống kê hoanghai902 2 124 28-10-16, 06:15 PM
Bài mới nhất: hoanghai902

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ơ