Code nút thoát

**Huongbavi** · 12-04-2009, 01:07 AM

Ðề: Code nút thoát

Gửi bởi huong son

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

Gửi bởi phuyen89

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à trong một số Form thấy chỉ làm như sau:

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]

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

**anhkhung368** · 12-05-2009, 03:10 PM

Ðề: Code nút thoát

Gửi bởi haquocquan

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âp

huyen89
Password:12345
Bạn muón thay đổi mật khẩu thì nhấn SHIFT+ENTER
vào thay đổi chỗ

Mã nguồn PHP:


[COLOR=#000000]
[/COLOR][COLOR=#007700]Const [/COLOR][COLOR=#0000BB]a [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"phuyen89"
[/COLOR][COLOR=#007700]Const [/COLOR][COLOR=#0000BB]b [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"12345"
[/COLOR]

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

**anhtran** · 12-05-2009, 03:14 PM

Ðề: Code nút thoát

[QUOTE="phuyen89"]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âp:e1::e1:

**thai93tb1** · 12-06-2009, 10:03 PM

Ðề: Code nút thoát

Gửi bởi phuyen89

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âp

huyen89
Password:12345
Bạn muón thay đổi mật khẩu thì nhấn SHIFT+ENTER
vào thay đổi chỗ

Mã nguồn PHP:


[COLOR=#000000]
[/COLOR][COLOR=#007700]Const [/COLOR][COLOR=#0000BB]a [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"phuyen89"
[/COLOR][COLOR=#007700]Const [/COLOR][COLOR=#0000BB]b [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"12345"
[/COLOR]

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

**trachanhvn** · 12-07-2009, 11:11 PM

Ðề: Code nút thoát

Gửi bởi haquocquan

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?

**rocodie** · 12-08-2009, 12:23 AM

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

**kiemsl34** · 12-08-2009, 06:52 AM

Ðề: Code nút thoát

Gửi bởi phuyen89

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.