Code nút thoát

[machao112]

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:

[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]CloseExit_cmdClose_Click[/COLOR][COLOR=#007700]:    Exit [/COLOR][COLOR=#0000BB]SubErr_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à trong một số Form thấy chỉ làm như sau:

[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]NameEnd Sub[/COLOR] 

View more random threads:

• Liên kết dữ liệu
• Giải giúp em đề ôn tập này với
• Kết quả tính toán sai ở chỗ nào? (Vui vui)
• Lập trình bảo mật cơ sở dữ liệu Access
• Vô hiệu hóa nút Close của ứng dụng Access
• ACE hãy chỉ cho em cach viết lệnh mong muốn trong Access
• Chương trình quản lý dự án
• Học Access bằng cách xây dựng một ứng dụng cụ thể - Quản lý Mua và Bán hàng - Phần 1 - Mô tả
• Link table từ MDB có password
• Đồng hồ trên MainForm

[phuonganh2012]

Ðề: 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:

[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]CloseExit_cmdClose_Click[/COLOR][COLOR=#007700]:    Exit [/COLOR][COLOR=#0000BB]SubErr_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à trong một số Form thấy chỉ làm như sau:

[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]NameEnd Sub[/COLOR] 

1:nếu ct lỗi thì close nằm trên bảng báo lỗi muốn đóng thì nhấn close còn không thì thoat bằng exit
2:nhấn close để thoát chuong trình

[tuyetdiy]

Ðề: Code nút thoát

1:nếu ct lỗi thì close nằm trên bảng báo lỗi muốn đóng thì nhấn close còn không thì thoat bằng exit
2:nhấn close để thoát chuong trình

Chà!Bạn nói rõ hơn chút nữa đi ha.Chứ mình đang làm quen đã viết VBA cho Access,mà dùng Wizard nó như thế,đoạn thì hiêu,đoạn thi không.huong son nói thế thì quá ngăn gọn,nên mình chưa hiêu lắm ah.

[seodinh]

Ðề: Code nút thoát

Chà!Bạn nói rõ hơn chút nữa đi ha.Chứ mình đang làm quen đã viết VBA cho Access,mà dùng Wizard nó như thế,đoạn thì hiêu,đoạn thi không.huong son nói thế thì quá ngăn gọn,nên mình chưa hiêu lắm ah.

vậy sao bạn không nghiên cứu VBA mà lại dùng PHP

VB thì dễ hiểu hơn với người mới học đó:demtien::demtien:

[trqdzung]

Ðề: Code nút thoát

Đọc lại và chú thích đoạn code của bạn:

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

Cơ chế của Access khi tạo wizard nó sẽ làm sao cho đúng với mọi trường hợp (và làm như nó sẽ an toàn hơn), Vì vậy không riêng gì nút close, mà cả open, print, Next, .... nó đều chèn code như thế.

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

Private Sub cmdClose_Click()
DoCmd.Close 
End Sub

[Mantran]

Ðề: Code nút thoát

Đọc lại và chú thích đoạn code của bạn:

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

Cơ chế của Access khi tạo wizard nó sẽ làm sao cho đúng với mọi trường hợp (và làm như nó sẽ an toàn hơn), Vì vậy không riêng gì nút close, mà cả open, print, Next, .... nó đều chèn code như thế.

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

Private Sub cmdClose_Click()
DoCmd.Close 
End Sub

Theo mình muốn thoát toàn bộ Access (Vê Window) thì dùng code sau:

Private Sub cmdClose_Click()
DoCmd.Quit

End Sub

Còn chỉ đơn thuần là đóng form thôi thì dùng :

DoCmd.Close acForm, Me.Name

Còn đơn thuần chỉ đóng chương trình (Về Access) thì dùng code:

DoCmd.Close

[bacgyang]

Ðề: Code nút thoát

vậy sao bạn không nghiên cứu VBA mà lại dùng PHP

VB thì dễ hiểu hơn với người mới học đó:demtien::demtien:

Nè huong son.PHP chỉ để cho code vào trong khung và cho nó khác với chữ post bình thường.Do đó là mã lệnh cho nó dễ nhìn.Chư mình học VBA của access mà.

[nguyentienthuy]

Ðề: Code nút thoát

Nè huong son.PHP chỉ để cho code vào trong khung và cho nó khác với chữ post bình thường.Do đó là mã lệnh cho nó dễ nhìn.Chư mình học VBA của access mà.

vay mà cứ tưởng phuyen chơi được cả PHP thì tài thật:lasao::lasao:

[Overclocking]

Ðề: 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:

[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]CloseExit_cmdClose_Click[/COLOR][COLOR=#007700]:    Exit [/COLOR][COLOR=#0000BB]SubErr_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à trong một số Form thấy chỉ làm như sau:

[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]NameEnd Sub[/COLOR] 

Bạn code trên Access hay PHP

[handucquan]

Ðề: Code nút thoát

Bạn code trên Access hay PHP

Trên Access bạn à.mình chỉ dùng cấu trúc

[COLOR=#000000]
[/COLOR] 

để dán đoạn code thôi,Chăc mình ghi bị nhầm