Chủ đề: Code nút thoát
-
12-03-2009, 03:25 PM #1
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 1
Code nút thoát
Em làm nút thoát bằng Wizard cảu Access nhưng sao thấy tùm lum quá.Bác [you] rành lập trình phân tích giùm em hương hoạt động của nó như thế nào?
PHP:
Mã nguồn PHP:[COLOR=#000000]
[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub cmdClose_Click[/COLOR][COLOR=#007700]() [/COLOR][COLOR=#0000BB]On Error [/COLOR][COLOR=#007700]GoTo [/COLOR][COLOR=#0000BB]Err_cmdClose_Click DoCmd[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Close Exit_cmdClose_Click[/COLOR][COLOR=#007700]: Exit [/COLOR][COLOR=#0000BB]Sub Err_cmdClose_Click[/COLOR][COLOR=#007700]: [/COLOR][COLOR=#0000BB]MsgBox Err[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Description Resume Exit_cmdClose_Click End Sub [/COLOR]
Mã nguồn PHP:[COLOR=#000000]
[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub cmdClose_Click[/COLOR][COLOR=#007700]() [/COLOR][COLOR=#0000BB]DoCmd[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Close [/COLOR][COLOR=#007700], , [/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Name End Sub [/COLOR]
View more random threads:
- [Help Me !!!] Cần Giúp Đỡ Về Lỗi 2105 Của access :((:((
- Đổi từ Yes thành Có và No thành Bỏ qua
- Tài liệu Macro trong Access
- Đếm ngày trong một Tháng/Năm
- Requery đối tượng trong Subform
- Lấy ngày và giờ trên máy như thế nào?
- Tìm kiếm từ nhiều subform
- Khóa ko cho sử dụng chuột phải
- Lỗi khi nhập liệu bằng access mdb
- Giúp mình về câu lệnh thống kê từ ngày này đến ngày kia
-
12-03-2009, 03:35 PM #2
Silver member
- Ngày tham gia
- Nov 2015
- Bài viết
- 202
Ðề: Code nút thoát
Gửi bởi phuyen89
2:nhấn close để thoát chuong trình
-
12-03-2009, 06:08 PM #3
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Code nút thoát
Gửi bởi huong son
-
12-03-2009, 06:13 PM #4
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Code nút thoát
Gửi bởi phuyen89
VB thì dễ hiểu hơn với người mới học đó:demtien::demtien:
-
12-03-2009, 10:47 PM #5
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Code nút thoát
Đọc lại và chú thích đoạn code của bạn:
Mã:Private Sub cmdClose_Click() ' Nếu xảy ra lỗi gì thì thực thi từ đoạn Err_cmdClose_Click On Error GoTo Err_cmdClose_Click 'nếu không lỗi thì đóng(form) lại DoCmd.Close ' Đoạn này thực thi thoát khỏi thủ tục Exit_cmdClose_Click: Exit Sub ' Đoạn này thực thi khi có lỗi xảy ra Err_cmdClose_Click: ' Thông báo mã lỗi (dùng để xác định nguyên nhân gây lỗi) MsgBox Err.Description ' Sau đó quay lại thực thi đoạn code thoát khỏi thủ tục. Resume Exit_cmdClose_Click End Sub
Nói riêng trong trường hợp sự kiện Close thì thường chẳng có lỗi gì xảy ra, nên ta có thể bỏ bớt các đoạn rào lỗi rườm rà và thay nó bằng đoạn ngắn gọn vẫn đúng như thường
Mã:Private Sub cmdClose_Click() DoCmd.Close End Sub
-
12-03-2009, 11:18 PM #6
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Code nút thoát
Gửi bởi LoveBlue
Mã:Private Sub cmdClose_Click() DoCmd.Quit End Sub
Mã:DoCmd.Close acForm, Me.Name
Mã:DoCmd.Close
-
12-03-2009, 11:46 PM #7
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 1
Ðề: Code nút thoát
Gửi bởi huong son
-
12-03-2009, 11:48 PM #8
Silver member
- Ngày tham gia
- May 2016
- Bài viết
- 0
Ðề: Code nút thoát
Gửi bởi phuyen89
-
12-03-2009, 11:50 PM #9
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Code nút thoát
Gửi bởi phuyen89
-
12-03-2009, 11:55 PM #10
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Code nút thoát
Gửi bởi infortech
Mã nguồn PHP:[COLOR=#000000]
[/COLOR]
QUAN HỆ NHANH RA Ở NAM GIỚI LÀ GÌ? Quan hệ nhanh ra hay còn gọi là xuất tinh sớm, là hiện tượng xuất tinh trong khoảng thời gian quá ngắn bình thường là dưới 3 phút, nam giới không thể làm chủ, điều...
"Quan hệ nhanh ra" phái mạnh có nên kiêng rượu bia không?