Tùy chọn
Trợ giúp tạo nút lệnh lưu
- Trợ giúp tạo nút lệnh lưu
-
Trợ giúp tạo nút lệnh lưu
quan_pc > 13-05-11, 11:35 AM
anh chị nào biết cách viết đoạn lệnh thì cho em xin với!!!1
đay là hình ảnh cụ thể
![[Hình: luu.jpg]](http://cB1.upanh.com/22.368.29367520.pxf0/luu.jpg)
link tải file http://www.mediafire.com/?ub164z0tn7r64rz -
RE: Trợ giúp tạo nút lệnh lưu
Cafe Via He > 13-05-11, 12:28 PM
Cái này dùng lệnh Insert Into Table(A,B,C) values ("a","b","c");
rồi dùng Msgbox "Thong bao cua ban"
là ổn mà -
RE: Trợ giúp tạo nút lệnh lưu
quan_pc > 14-05-11, 10:33 AM
Anh ơi anh có thể cho em 1 đoạn lệnh cụ thể không???
code: Docmd.......????( chỗ này mình viết lệnh như thế nào?")
rồi msgbox "da luu thanh cong",vbOkonly,"thongbao" -
RE: Trợ giúp tạo nút lệnh lưu
hieuvn > 14-05-11, 11:21 AM
Cái vụ này dùng unbound form thì hơi phức tạp, trước mắt bạn bài kiếm tài liệu học đã (lên google tìm với từ khóa "unbound form" là xong hết. tham khảo thêm code này:nút Lưu
Dim rst As Recordset Set rst = CurrentDb.OpenRecordset("select * from bảng qly độc giả ")
rst.Edit
rst!MADG = txtMADG
rst!HOTEN = txtHOTEN
rst!KHOAHOC = txtKHOAHOC
rst!NGAYSINH = txtNGAYSINH
rst!NOISINH = txtNOISINH
rst!LOP = txtLOP
rst.Update
Msgbox "da luu thanh cong",vbOkonly,"thongbao"
rst.Close
Set rst = Nothing
nói túm lại, unbound form thì hơi khó, bạn cứ mày mò học hỏi, riết rồi cũng làm được thôi mà, mình cũng gà mờ lắm, dược cái chịu vọc thôi ):
chúc thành công -
RE: Trợ giúp tạo nút lệnh lưu
quan_pc > 14-05-11, 08:11 PM
(14-05-11, 11:21 AM)hieuvn Đã viết: Cái vụ này dùng unbound form thì hơi phức tạp, trước mắt bạn bài kiếm tài liệu học đã (lên google tìm với từ khóa "unbound form" là xong hết. tham khảo thêm code này:nút Lưu
Dim rst As Recordset Set rst = CurrentDb.OpenRecordset("select * from bảng qly độc giả ")
rst.Edit
rst!MADG = txtMADG
rst!HOTEN = txtHOTEN
rst!KHOAHOC = txtKHOAHOC
rst!NGAYSINH = txtNGAYSINH
rst!NOISINH = txtNOISINH
rst!LOP = txtLOP
rst.Update
Msgbox "da luu thanh cong",vbOkonly,"thongbao"
rst.Close
Set rst = Nothing
nói túm lại, unbound form thì hơi khó, bạn cứ mày mò học hỏi, riết rồi cũng làm được thôi mà, mình cũng gà mờ lắm, dược cái chịu vọc thôi ):
chúc thành công
Anh ơi anh có thể trợ giúp em cụ thể hơn được không!! em gởi dữ liệu qua anh giúp em với!!! viết code này thì em có biết nhưng bà cô bả chỉ dạy các kiến thức cơ bản chứ khôngcos dạy các cách bẫy lỗi.. mong anh giúp đỡ. đây là link CSDL ACCESS của em.. dung lượng 600Kb(bài làm thử)
link tải về http://www.mediafire.com/?ub164z0tn7r64rz
mong anh giúp đỡ em cảm ơn anh nha!!! -
RE: Trợ giúp tạo nút lệnh lưu
quan_pc > 16-05-11, 09:59 AM
anh chị ơi giúp em với huhuhuh ..sao không ai trả lời thế này
-
RE: Trợ giúp tạo nút lệnh lưu
hieuvn > 16-05-11, 05:11 PM
-
RE: Trợ giúp tạo nút lệnh lưu
quan_pc > 16-05-11, 07:21 PM
(16-05-11, 05:11 PM)hieuvn Đã viết:
(16-05-11, 09:59 AM)quan_pc Đã viết: anh chị ơi giúp em với huhuhuh ..sao không ai trả lời thế này
form của bạn là bound form mà đâu cần viết code cho nút lưu, không nhấn vào nút lưu thì nó vẫn tự động lưu mà. cụ thể là đề bài yêu cầu gì, bài tập thì bạn phải tự làm thôi không ai làm thay được đâu.
uh anh hiểu nhầm ý em rồi..
trong bài làm kia có sử dụng nút lưu nhưng mà nút lưu đó được tạo bằng nút lưu có sẵn trong ACCESS...
Giờ em muốn sử dụng Button rồi vẽ nút lưu đó .. xong rồi dùng lệnh VBA để viết thông tin cho nút lưu đó đó anh!!
-
RE: Trợ giúp tạo nút lệnh lưu
hieuvn > 17-05-11, 12:08 AM
sao không nói sớm, khổ tâm ghê, hàng về này:
Private Sub Command2_Click()
DoCmd.GoToRecord , , acNext 'nut tiep
End Sub
Private Sub Command3_Click()
DoCmd.GoToRecord , , acPrevious 'nut lui
End Sub
Private Sub Command4_Click()
DoCmd.GoToRecord , , acNewRec 'nút thêm ban doc moi
End Sub
Private Sub Command5_Click()
DoCmd.RunCommand acCmdDeleteRecord ' nut xoa
End Sub
Private Sub Command6_Click()
DoCmd.RunCommand acCmdSaveRecord 'nut luu
MsgBox "da luu thanh cong", vbOKOnly, "thongbao"
End Sub
have fun