-
Tạo lệnh các nút Thêm, Sửa, Xóa... ????
maixuanthu > 06-05-13, 09:22 PM
Em muốn tạo các command là các nút ĐẦU, TRƯỚC, CUỐI, SAU, THÊM, SỬA, XÓA để điều khiển các mẫu tin trong form. Ở trong form thì có sẵn chế độ wizard nhưng em muốn làm bằng code. Có ai biết xin chỉ giáo giùm em. Em cảm ơn rất nhiều!!
-
RE: Tạo lệnh các nút Thêm, Sửa, Xóa... ????
cuong0202 > 07-05-13, 10:26 PM
(06-05-13, 09:22 PM)maixuanthu Đã viết: Em muốn tạo các command là các nút ĐẦU, TRƯỚC, CUỐI, SAU, THÊM, SỬA, XÓA để điều khiển các mẫu tin trong form. Ở trong form thì có sẵn chế độ wizard nhưng em muốn làm bằng code. Có ai biết xin chỉ giáo giùm em. Em cảm ơn rất nhiều!!
Mã:Private Sub Cuoi_Click()
On Error GoTo Err_Cuoi_Click
If cmt = sophieunhap Then
MsgBox "day la phieu nhap cuoi cung, khong di chuyen nua!", vbExclamation + vbDefaultButton1, "chu y"
Else
DoCmd.GoToRecord , , acLast
End If
Exit_Cuoi_Click:
Exit Sub
Err_Cuoi_Click:
MsgBox Err.Description
Resume Exit_Cuoi_Click
End Sub
Mã:Private Sub Dau_Click()
On Error GoTo Err_Dau_Click
If dmt = sophieunhap Then
MsgBox "day la phieu nhap dau tien, khong di chuyen nua !", vbExclamation + vbDefaultButton1, "chu y"
Else
End If
DoCmd.GoToRecord , , acFirst
Exit_Dau_Click:
Exit Sub
Err_Dau_Click:
MsgBox Err.Description
Resume Exit_Dau_Click
End SubMã:Private Sub Sau_Click()
On Error GoTo Err_Sau_Click
If cmt = sophieunhap Then
MsgBox "day la phieu nhap cuoi cung, khong di chuyen nua !", vbExclamation + vbDefaultButton1, "chu y"
Else
DoCmd.GoToRecord , , acNext
End If
Exit_Sau_Click:
Exit Sub
Err_Sau_Click:
MsgBox Err.Description
Resume Exit_Sau_Click
End Sub
Mã:Private Sub Truoc_Click()
On Error GoTo Err_Truoc_Click
If dmt = sophieunhap Then
MsgBox "ban dang o phieu nhap dau tien, khong di chuyen nua!", vbExclamation + vbDefaultButton1, "chu y"
Else
DoCmd.GoToRecord , , acPrevious
End If
Exit_Truoc_Click:
Exit Sub
Err_Truoc_Click:
MsgBox Err.Description
Resume Exit_Truoc_Click
End Sub -
RE: Tạo lệnh các nút Thêm, Sửa, Xóa... ????
NguyenDungAnh > 24-07-18, 04:27 AM
nút sửa làm thế nào hả các bác -
RE: Tạo lệnh các nút Thêm, Sửa, Xóa... ????
NguyenDungAnh > 25-07-18, 09:12 PM
-
RE: Tạo lệnh các nút Thêm, Sửa, Xóa... ????
Xuân Thanh > 25-07-18, 11:22 PM
tham khảo ở đây
http://thuthuataccess.com/forum/post-395...l#pid39513 -
RE: Tạo lệnh các nút Thêm, Sửa, Xóa... ????
Cuong Servenet > 26-07-18, 07:58 AM
(25-07-18, 09:12 PM)NguyenDungAnh Đã viết:
(24-07-18, 08:25 AM)Cuong Servenet Đã viết:
(24-07-18, 04:27 AM)NguyenDungAnh Đã viết: nút sửa làm thế nào hả các bác
sửa xóa hay cấm sửa , cấm xóa thì dùng
AllowAdditions
allowedits
allowdeletions
Cám ơn nhé mình sẽ tìm hiểu
không có gì, dùng các lệnh đó đặt True hoặc False để cài đặt việc xóa thêm sửa...... -
RE: Tạo lệnh các nút Thêm, Sửa, Xóa... ????
Cuong Servenet > 26-07-18, 08:00 AM
(25-07-18, 11:22 PM)Xuân Thanh Đã viết: tham khảo ở đây
http://thuthuataccess.com/forum/post-395...l#pid39513
bạn ấy hỏi nút sửa mà -
RE: Tạo lệnh các nút Thêm, Sửa, Xóa... ????
Xuân Thanh > 26-07-18, 08:31 AM
(26-07-18, 08:00 AM)Cuong Servenet Đã viết:
(25-07-18, 11:22 PM)Xuân Thanh Đã viết: tham khảo ở đây
http://thuthuataccess.com/forum/post-395...l#pid39513
bạn ấy hỏi nút sửa mà
Đọc kỹ chưa? Trong bài viết đó có hướng dẫn cho tất cả các nút của form trong đó có nút Sửa -
RE: Tạo lệnh các nút Thêm, Sửa, Xóa... ????
NguyenDungAnh > 26-07-18, 10:18 PM
(26-07-18, 08:31 AM)Xuân Thanh Đã viết:
(26-07-18, 08:00 AM)Cuong Servenet Đã viết:
(25-07-18, 11:22 PM)Xuân Thanh Đã viết: tham khảo ở đây
http://thuthuataccess.com/forum/post-395...l#pid39513
bạn ấy hỏi nút sửa mà
Đọc kỹ chưa? Trong bài viết đó có hướng dẫn cho tất cả các nút của form trong đó có nút Sửa
thật sự cám ơn bác, nút sửa đó rất hay nhưng lại không dùng được cho cả forms có combo box em viết thêm dòng cho combobox nữa nhưng nếu như trong form có sub forms mà lại ở dạng datasheet thì không biết làm thế nào bác nhỉ