Code nút thoát

[sinhvienpy89]

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:

Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click


    DoCmd.Close

Exit_cmdClose_Click:
    Exit Sub

Err_cmdClose_Click:
    MsgBox Err.Description
    Resume Exit_cmdClose_Click
    
End Sub

Mà trong một số Form thấy chỉ làm như sau:

Private Sub cmdClose_Click()
DoCmd.Close , , Me.Name
End Sub

 

[huong son]

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

Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click


    DoCmd.Close

Exit_cmdClose_Click:
    Exit Sub

Err_cmdClose_Click:
    MsgBox Err.Description
    Resume Exit_cmdClose_Click
    
End Sub

Mà trong một số Form thấy chỉ làm như sau:

Private Sub cmdClose_Click()
DoCmd.Close , , Me.Name
End Sub

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

 

[sinhvienpy89]

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

 

[huong son]

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

 

[LoveBlue]

Ðề: Code nút thoát

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

Private Sub cmdClose_Click()
[COLOR="Green"]' Nếu xảy ra lỗi gì thì thực thi từ đoạn Err_cmdClose_Click[/COLOR]
On Error GoTo Err_cmdClose_Click
[COLOR="Green"]'nếu không lỗi thì đóng(form) lại[/COLOR]
    DoCmd.Close

[COLOR="Green"]' Đoạn này thực thi thoát khỏi thủ tục[/COLOR]
Exit_cmdClose_Click:
    Exit Sub

[COLOR="Green"]' Đoạn này thực thi khi có lỗi xảy ra[/COLOR]
Err_cmdClose_Click:
[COLOR="Green"]' Thông báo mã lỗi (dùng để xác định nguyên nhân gây lỗi)[/COLOR]
    MsgBox Err.Description
[COLOR="DarkGreen"]' Sau đó quay lại thực thi đoạn code thoát khỏi thủ tục.[/COLOR]
    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

 

[domfootwear]

Ðề: Code nút thoát

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

Private Sub cmdClose_Click()
[COLOR="Green"]' Nếu xảy ra lỗi gì thì thực thi từ đoạn Err_cmdClose_Click[/COLOR]
On Error GoTo Err_cmdClose_Click
[COLOR="Green"]'nếu không lỗi thì đóng(form) lại[/COLOR]
    DoCmd.Close

[COLOR="Green"]' Đoạn này thực thi thoát khỏi thủ tục[/COLOR]
Exit_cmdClose_Click:
    Exit Sub

[COLOR="Green"]' Đoạn này thực thi khi có lỗi xảy ra[/COLOR]
Err_cmdClose_Click:
[COLOR="Green"]' Thông báo mã lỗi (dùng để xác định nguyên nhân gây lỗi)[/COLOR]
    MsgBox Err.Description
[COLOR="DarkGreen"]' Sau đó quay lại thực thi đoạn code thoát khỏi thủ tục.[/COLOR]
    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

 

[sinhvienpy89]

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

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à.

 

[huong son]

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

 

[infortech]

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

Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click


    DoCmd.Close

Exit_cmdClose_Click:
    Exit Sub

Err_cmdClose_Click:
    MsgBox Err.Description
    Resume Exit_cmdClose_Click
    
End Sub

Mà trong một số Form thấy chỉ làm như sau:

Private Sub cmdClose_Click()
DoCmd.Close , , Me.Name
End Sub

Bạn code trên Access hay PHP

 

[sinhvienpy89]

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

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

 

[haquocquan]

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

Xin lỗi trả lời nhầm
-----------------------------------------------------------------------------------------

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:

Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click


    DoCmd.Close

Exit_cmdClose_Click:
    Exit Sub

Err_cmdClose_Click:
    MsgBox Err.Description
    Resume Exit_cmdClose_Click
    
End Sub

Mà trong một số Form thấy chỉ làm như sau:

Private Sub cmdClose_Click()
DoCmd.Close , , Me.Name
End Sub

Bạn đùa tôi rồi. Tôi cũng mới học thôi. Nhưng được cái chịu khó lên mạng. Học được của người ngày, thấy người khác hỏi cùng vấn đề, thế là hướng dẫn lại luôn thôi.
PRO ACCESS trong DANKETOAN phải nói đến: PHATNQ2002, MUONTENNGUOI, LOVEBLUE,.....
Bạn còn nợ tôi một vấn đề đó nhé: đặt PASS bằng VBA đấy nhé.

 

[sinhvienpy89]

Ðề: Code nút thoát

Xin lỗi trả lời nhầm
-----------------------------------------------------------------------------------------

Bạn đùa tôi rồi. Tôi cũng mới học thôi. Nhưng được cái chịu khó lên mạng. Học được của người ngày, thấy người khác hỏi cùng vấn đề, thế là hướng dẫn lại luôn thôi.
PRO ACCESS trong DANKETOAN phải nói đến: PHATNQ2002, MUONTENNGUOI, LOVEBLUE,.....
Bạn còn nợ tôi một vấn đề đó nhé: đặt PASS bằng VBA đấy nhé.

Chào bạn haquocquan.Hôm trươc tôi có nói với bạn về Form đăng nhập chỉ viết bằng câu lện if then thôi.Bây giờ mình Upload lên.Nói trươc là thuật tóan của mình lượm thượm,Code thì rườm ra,viết cho người không biết chơi thôi.Chứ gặp mấy cao thủ thì giơ tay.
http://www.mediafire.com/file/zwzizzqe0qi/password.mdb
Dang nhâphuyen89
Password:12345
Bạn muón thay đổi mật khẩu thì nhấn SHIFT+ENTER
vào thay đổi chỗ

Const a = "phuyen89"
Const b = "12345"

Mọi người xem xét cái nào chưa hoàn thiện thì cũng sữa chữa luôn nghen.Mình xin cảm ơn trước.
Mình cũng góp ý với bạn là chúng ta nên nghiên cứu những cái ứng dụng vào cuộc sống thực tế nhiều hơn bạn a.Chứ bạn nghĩ xem cai WinXp của Microsoft do biết bao nhiêu lập trình viên xuất sắc thế mà cũng bị Cr@ck,Họ phải tiến tới Window 7 đó.
ah quên,minh chỉ cho Form đăng nhập chỉ có 30 s thôi.Nếu quá 30s hay Dăng nhạp sai 3 lần nó đều thoát cả.

 

[huong son]

Ðề: Code nút thoát

Chào bạn haquocquan.Hôm trươc tôi có nói với bạn về Form đăng nhập chỉ viết bằng câu lện if then thôi.Bây giờ mình Upload lên.Nói trươc là thuật tóan của mình lượm thượm,Code thì rườm ra,viết cho người không biết chơi thôi.Chứ gặp mấy cao thủ thì giơ tay.
http://www.mediafire.com/file/zwzizzqe0qi/password.mdb
Dang nhâphuyen89
Password:12345
Bạn muón thay đổi mật khẩu thì nhấn SHIFT vào thay đổi chỗ

Const a = "phuyen89"
Const b = "12345"

Mọi người xem xét cái nào chưa hoàn thiện thì cũng sữa chữa luôn nghen.Mình xin cảm ơn trước.
Mình cũng góp ý với bạn là chúng ta nên nghiên cứu những cái ứng dụng vào cuộc sống thực tế nhiều hơn bạn a.Chứ bạn nghĩ xem cai WinXp của Microsoft do biết bao nhiêu lập trình viên xuất sắc thế mà cũng bị Cr@ck,Họ phải tiến tới Window 7 đó.

giổi mới hỏi một cái là ứng dụng ngay cái vụ đặt pass khá quá
chuc mừng và chúc thành công nhé!!

 

[haquocquan]

Ðề: Code nút thoát

Chào bạn haquocquan.Hôm trươc tôi có nói với bạn về Form đăng nhập chỉ viết bằng câu lện if then thôi.Bây giờ mình Upload lên.Nói trươc là thuật tóan của mình lượm thượm,Code thì rườm ra,viết cho người không biết chơi thôi.Chứ gặp mấy cao thủ thì giơ tay.
http://www.mediafire.com/file/zwzizzqe0qi/password.mdb
Dang nhâphuyen89
Password:12345
Bạn muón thay đổi mật khẩu thì nhấn SHIFT+ENTER
vào thay đổi chỗ

Const a = "phuyen89"
Const b = "12345"

Mọi người xem xét cái nào chưa hoàn thiện thì cũng sữa chữa luôn nghen.Mình xin cảm ơn trước.
Mình cũng góp ý với bạn là chúng ta nên nghiên cứu những cái ứng dụng vào cuộc sống thực tế nhiều hơn bạn a.Chứ bạn nghĩ xem cai WinXp của Microsoft do biết bao nhiêu lập trình viên xuất sắc thế mà cũng bị Cr@ck,Họ phải tiến tới Window 7 đó.
ah quên,minh chỉ cho Form đăng nhập chỉ có 30 s thôi.Nếu quá 30s hay Dăng nhạp sai 3 lần nó đều thoát cả.

Tôi cũng đang học để ứng dụng vào thực tế đó chứ. Vừa làm, mắc đến đâu hỏi đến đó.
Mình xem form của bạn rồi. Rất hay. Tuy nhiên, có một góp ý:
Các dòng:
+ Isnull(txtDN)=True and Isnull(txtPass)=False
+ Isnull(txtDN)=False and Isnull(txtPass)=True
.............
Bạn chỉ cần thay bằng:
Isnull(txtDN) = True or Isnull(txtPass) = True
Và khi kiểm tra a, b (DN và Pass) cũng vậy.
Qua học tập của PHUYEN89, tôi cũng gửi 1 form đăng nhập để PHUYEN89 kiểm tra giup nha
http://www.mediafire.com/?m35mgz2r0ig

 

[phatnq2002]

Ðề: Code nút thoát

Tôi cũng đang học để ứng dụng vào thực tế đó chứ. Vừa làm, mắc đến đâu hỏi đến đó.
Mình xem form của bạn rồi. Rất hay. Tuy nhiên, có một góp ý:
Các dòng:
+ Isnull(txtDN)=True and Isnull(txtPass)=False
+ Isnull(txtDN)=False and Isnull(txtPass)=True
.............
Bạn chỉ cần thay bằng:
Isnull(txtDN) = True or Isnull(txtPass) = True
Và khi kiểm tra a, b (DN và Pass) cũng vậy.
Qua học tập của PHUYEN89, tôi cũng gửi 1 form đăng nhập để PHUYEN89 kiểm tra giup nha
http://www.mediafire.com/?m35mgz2r0ig

Isnull(txtDN) = True or Isnull(txtPass) = True

Có thể chỉ cần là IsNull(txtDN) Or IsNull(txtPass) thôi.

Mà cái vụ này cần chú ý một tình huống:

txtDN vào đó gõ gõ vài cái, xong sau đó xóa đi. txtPass cũng tương tự, coi thử cái IsNull đó check được không?

 

[sinhvienpy89]

Ðề: Code nút thoát

Chaò Phatnq2002 đã kiểm tra giúp.Nhưng em có thấy một nhược điểm rất lớn là mặc dùng quy đinh là "phuyen89"nhung đánh chu Hoa là"PHUYEN89" nó vẫn cho đăng nhập.Điều này thật là vô lý,bác có cách nào khác phục không?

 

[phatnq2002]

Ðề: Code nút thoát

Chaò Phatnq2002 đã kiểm tra giúp.Nhưng em có thấy một nhược điểm rất lớn là mặc dùng quy đinh là "phuyen89"nhung đánh chu Hoa là"PHUYEN89" nó vẫn cho đăng nhập.Điều này thật là vô lý,bác có cách nào khác phục không?

User name thì hoa thường gì cũng đâu có sao? Chỉ ăn thua là ở cái password kìa.

Muốn so sánh chính xác từng ký tự một, hoa ra hoa, thường ra thường thì ở đầu trang module, thay câu lệnh Option Compare Database nếu có bằng Option Compare Binary là OK thôi.