Tìm thủ thuật nhanh hơn với chức năng tìm trong Blog

11/10/09

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

(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
Thảo luận thêm: http://thuthuataccess.com/forum

10 comments:

  1. Nguyễn Tài Phong4/12/10, 9:16 AM

    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/?4zttogmjqzu
    anh xem hộ em với, em cám ơn anh nhiều

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

    ReplyDelete
  3. 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!

    ReplyDelete
  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ố form
    bị ẩ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.html
    Hình file bị ẩn: http://www.4shared.com/photo/CfNXJFx0/unviewable.html
    Mì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.net
    Không được thì cũng không sao. Xin cảm ơn trước vì đã bỏ thời gian đọc!

    ReplyDelete
  5. NgocChung
    Chà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 ThuocTinh
    Mong bác xem lại cho
    http://www.mediafire.com/file/wwyy2lzynrt/phanquyen.rar

    ReplyDelete
  6. 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!

    ReplyDelete
  7. mình có 1 vấn đề cần giúp đỡ. mình có down 1 chương trình quản lý bán hàng về, khi mở chương trình mình có thể xem được form,sửa duwx liệu trong table...nhưng mình lại không thể thêm hay thay thế các button trên form. cụ thể là khi mở chương trình, mình ko thấy thanh menu Bả và không thể sử dụng chuột phải. Giúp mình enable lại thanh menubar khi mở ctrinh với. mình rất cảm ơn. Link bài của mình : http://www.mediafire.com/?qo2vuq4b4h3m7qz
    Gmail của mình :tuancntt05@gmail.com
    yahoo: song_khongyeu_chocongai_nothem05
    Rất mong đc sự giúp đỡ sớm.

    ReplyDelete
  8. chao ban. minh lam nhu huong dan va bao loi dong db.properties. append ThuocTinh vui long giup minh

    ReplyDelete
  9. xin chao BQQ em dang lam chuong trinh quan ly diem truong cao dang. nhung khi em tao nut, rui em an chay thi no hien loi module not found em khong biet phai sua the nao.mong BQQ giup em sua bai nay voi a.
    gmail: haducthang91@gmail.com
    rat mong duoc su giup do som cua BQQ

    ReplyDelete
  10. xin chao BQQ em dang lam chuong trinh quan ly diem truong cao dang. nhung khi em tao nut, rui em an chay thi no hien loi module not found em khong biet phai sua the nao.mong BQQ giup em sua bai nay voi a.
    gmail: haducthang91@gmail.com
    rat mong duoc su giup do som cua BQQ

    ReplyDelete

» Hãy để lại tên, email của bạn khi bạn post comment, để mình có thể dễ dàng trả lời comment của bạn khi cần.
» Có thể sử dụng các thẻ < b>,< i>,< a>. Và các icon thông dụng trên YM