Đánh giá chủ đề:
  • 1 Votes - 2 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Trợ giúp tạo nút lệnh lưu
#1
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]


link tải file http://www.mediafire.com/?ub164z0tn7r64rz
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
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à
Chữ ký của Cafe Via He Ở nhờ nhà mẹ mình big green
ღღღღღTài sản của Cafe Via He (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , Noname , quan_pc
#3
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"
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
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
Chữ ký của hieuvn Xin chào! Mình là hieuvn, thành viên của Thủ Thuật Access tham gia ngày Oct 2010.
Reply
Những người đã cảm ơn Noname , quan_pc , mrchau911 , Cafe Via He , trungn077
#5
(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!!!
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#6
(13-05-11, 12:28 PM)Cafe Via He Đã viết: 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à

Anh chị ơi giúp em với Cry_smile
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
anh chị ơi giúp em với huhuhuh ..sao không ai trả lời thế nàyCry_smile
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#8
(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àyCry_smile

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.
Chữ ký của hieuvn Xin chào! Mình là hieuvn, thành viên của Thủ Thuật Access tham gia ngày Oct 2010.
Reply
Những người đã cảm ơn trungn077
#9
(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àyCry_smile

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!!Cry_smile
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#10
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
Chữ ký của hieuvn Xin chào! Mình là hieuvn, thành viên của Thủ Thuật Access tham gia ngày Oct 2010.
Reply
Những người đã cảm ơn trungn077 , quan_pc


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [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
  Xin giúp tạo 1 trường trong table đánh số tự động thay cho autonumber trungminh 7 450 16-09-16, 05:17 PM
Bài mới nhất: maidinhdan
  Giúp đỡ về form với trungminh 9 492 10-09-16, 09:17 PM
Bài mới nhất: trungminh
  [Help]Tạo nút lệnh tiếp tục khanhnevn30 6 409 18-06-16, 08:39 PM
Bài mới nhất: maidinhdan
Photo [Help] Giúp bỏ khoảng trống giữa detail và footer trong subform hangtran.ktdn 3 165 13-06-16, 07:34 AM
Bài mới nhất: cpucloi

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ơ