Thủ Thuật Access

Thế Giới Thủ Thuật với Access

Enable phím shift khi lỡ chạy module khóa mà quên viết module mở khóa

Posted by Noname on 10.11.2009

(bài này là ý tưởng của bạn hungtano)

Hỏi:

Tôi đã xây dựng xong CT nhân sự (C:\QLNS.mdb). Tôi tạo 1 custom menu bar, giấu đi Main menu của Access, tạo form startup, disable phím Shift để không ai có thể mở được cửa sổ database. Sau một thời gian CT bị lỗi nhưng hỡi ơi tôi lại quên viết code enable phím Shift nên không tài nào mở của sổ database, mở cửa sổ viết code để sửa lại CT. Tôi phải làm sao đây ?

Đáp:

Rất đơn giản, bạn tạo 1 file .mdb mới , viết code để can thiệp vào file QLNS.mdb, enable phím Shift.

Cách làm:

Trong file .mdb mới, bạn tạo 1 form, tạo 1 command button và :

Private Sub EnableSHIFTButton_Click()

On Error GoTo ErrHandler

Dim db As Database
Dim ThuocTinh As Property
Set db = OpenDatabase(“C:\QLNS.mdb”)
db.Properties(“AllowBypassKey”) = True
Set db = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Number
If Err.Number = 3270 Then ‘ Property not found.
Set ThuocTinh = db.CreateProperty(“AllowBypassKey”, dbBoolean, True)
db.Properties.Append ThuocTinh
Resume Next
Else
MsgBox Err.Description
End If
End Sub

6 phản hồi to “Enable phím shift khi lỡ chạy module khóa mà quên viết module mở khóa”

  1. Anh ơi. Chương trình của em lỡ Disable phím shift, em làm như anh nói nhưng k mở lại được, em phải làm sao bây giơ?http://www.mediafire.com/?4zttogmjqzuanh xem hộ em với, em cám ơn anh nhiều

  2. haquocquan said

    File của Nguyễn Tài Phong đã được DisableShift.Down tại link: http://www.mediafire.com/?u3ndyeym0yt

  3. Noname said

    Hìhì! Cảm ơn HQQ trợ giúp trả lời nhé! Dạo này bận và ít thời gian Online nên không trả lời kịp cho mọi ngừơi!

  4. Chào bạn, thầy mình cho một ứng dụng access và bắt về show tất cả code trong chương trình.Nhưng khổ nổi chương trình này bị thầy bảo mật ghê quá, phần code của menu và một số formbị ẩn không thê mở lên được, đã thế còn đặt timer cho khóa luôn phím shift nữa chứ.Nếu có thể bạn unlock chương trình giúp mình được không?Chương trình: http://www.4shared.com/file/ou0MKkLK/Bai_mau_Access.htmlHình file bị ẩn: http://www.4shared.com/photo/CfNXJFx0/unviewable.htmlMình nhờ nhiều người rồi nhưng giỏi lắm cũng chỉ cho xem form được chứ không view code nổi,Nếu unlock được thì gởi cho mình: gangster_knd@krongbong.netKhông được thì cũng không sao. Xin cảm ơn trước vì đã bỏ thời gian đọc!

  5. chung said

    NgocChungChào Bác Noname,Em làm y chang như đoạn Code của bác, nhưng mà khi chạy Nút lệnh có Chứa đoạn Code để Enable phím SHIFT thì nó báo lỗi như sau:Run-times Error '3112"Record can not be read,no read Permission on MsySDb.Cho Debug thì nó báo lỗi chỗ này:db.Properties.Append ThuocTinhMong bác xem lại chohttp://www.mediafire.com/file/wwyy2lzynrt/phanquyen.rar

  6. Anonymous said

    kiu! Ai do co the huong dan cai dat chuong trinh quan ly thu vien khong? Minh dung Office 2003. Khong convert dc file. khong tim thay file qlhscc.mdb. Ai do co the giup khong? Thanhk!

Gửi phản hồi

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s

 
%d bloggers like this: