Code Mở phím Shift bị lỗi

[sinhvienpy89]

Chào các bạn,mình có File đã khóa phím Shift, nhưng đã quên pass,Mình lượm được Code này, nhưng mà chạy thì nó báo lỗi:

Run-times Error '3112"
Record can not be read,no read Permission on MsySDb

SAu khi cho Debug thì nó bôi đen:

db.Properties.Append ThuocTinh

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

Trên tinh thần học hỏi

 

[phatnq2002]

Ðề: Code Mở phím Shift bị lỗi

Chào các bạn,mình có File đã khóa phím Shift, nhưng đã quên pass,Mình lượm được Code này, nhưng mà chạy thì nó báo lỗi:
Còn đây la Code:

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

Trên tinh thần học hỏi

Cái này đâu phải từ khóa của lệnh? Nó là comment, hình như thiếu dấu nháy đơn (')

 

[glasseggs]

Ðề: Code Mở phím Shift bị lỗi

Code này dùng để Enable phím Shift cho 1 phần mềm Access khác.
Theo như lỗi Code là do :
If Err.Number = 3270 Then Property not found

Sau Then nếu muốn hiện thông báo thì phải thêm
Msgbox "Property not found "
nhưng trong trường hợp này không cần thông báo mà bạn chỉ cần thêm dấu nháy ' trước Property not found :
If Err.Number = 3270 Then 'Property not found

 

[sinhvienpy89]

Ðề: Code Mở phím Shift bị lỗi

Code này dùng để Enable phím Shift cho 1 phần mềm Access khác.
Theo như lỗi Code là do :
If Err.Number = 3270 Then Property not found

Sau Then nếu muốn hiện thông báo thì phải thêm
Msgbox "Property not found "
nhưng trong trường hợp này không cần thông báo mà bạn chỉ cần thêm dấu nháy ' trước Property not found :
If Err.Number = 3270 Then 'Property not found

nhưng trong trường hợp này không cần thông báo mà bạn chỉ cần thêm dấu nháy ' trước Property not found :
If Err.Number = 3270 Then 'Property not found

Cái này hỏi giờ mới nghe, mà sao Code này bị lỗi bạn có cách nào khắc phục không?Đúng là nó dùng để Enable cho một phần mềm Access khác

 

[glasseggs]

Ðề: Code Mở phím Shift bị lỗi

Vậy sau khi sửa nó còn bị lỗi gì nữa .

 

[sinhvienpy89]

Ðề: Code Mở phím Shift bị lỗi

Vậy sau khi sửa nó còn bị lỗi gì nữa .

Nó bị lỗi như bài #1 mình mới sửa lại đó.Bạn test thử.

 

[glasseggs]

Ðề: Code Mở phím Shift bị lỗi

Đây bạn thử lại như sau :
Tạo 1 File CSDL mới.
Tạo 1 Command button trên 1 Form có tên là EnableSHIFTButton ,code như sau :
Đường in đậm là đường dẫn file bạn cần phá Shift .

Private Sub EnableSHIFTButton_Click()

On Error GoTo ErrHandler

Dim db As Database
Dim ThuocTinh As Property


Set db = OpenDatabase("DCustomer Relation Management System(Version4.5).accdb")
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

Rồi sau đó mở Form ,nhấn cái command 1 phát. Ok ,hết mở file kia xem sao .

 

[sinhvienpy89]

Ðề: Code Mở phím Shift bị lỗi

Đây bạn thử lại như sau :
Tạo 1 File CSDL mới.
Tạo 1 Command button trên 1 Form có tên là EnableSHIFTButton ,code như sau :
Đường in đậm là đường dẫn file bạn cần phá Shift .



Rồi sau đó mở Form ,nhấn cái command 1 phát. Ok ,hết mở file kia xem sao .

Mình đã làm thành công trong File của mình.Nhưng mà có một nhược điểm nhưng mình không biết.
Password thử thách cho bạn lần I là:Karaoke±Å²Æ³Ç´µ¢¶£·

Pass thứ hai là phím Shift he he.

​

 

[glasseggs]

Ðề: Code Mở phím Shift bị lỗi

Bạn đưa cho mình 2 file chả hiểu mô tê gì cả .
Sau thì cũng hiểu lờ mờ , ở đâu ra một đống bài hát thế ,chắc làm danh sách karaoke à.

 

[sinhvienpy89]

Ðề: Code Mở phím Shift bị lỗi

Bạn đưa cho mình 2 file chả hiểu mô tê gì cả .
Sau thì cũng hiểu lờ mờ , ở đâu ra một đống bài hát thế ,chắc làm danh sách karaoke à.

Bạn làm như thế nào mà ra vậy.Mình đã mở phím SHIFT nhưng mà có được đâu nào?Hình như nó báo là "Not Avail password" mà.

 

[glasseggs]

Ðề: Code Mở phím Shift bị lỗi

Hì .Bạn đòi Enable phím Shift khi phần mềm đó đặt pass hóa ra bạn định không nể cái Pass à .
Trước tiên bạn cần xóa pass ròi mới Enable được. Để xóa pass có 2 cách và đương nhiên phải biết Pass. Cách 1 là làm thủ công,mở nó lên rồi xóa pass đi. Cách 2 pro hơn là dùng Code ,nếu bạn thích code thì trong bài viết Làm sao để tắt chế độ Read Only khi mở file Access qua mạng Lan ? mình đã đề cập đó.

 

[sinhvienpy89]

Ðề: Code Mở phím Shift bị lỗi

Hì .Bạn đòi Enable phím Shift khi phần mềm đó đặt pass hóa ra bạn định không nể cái Pass à .
Trước tiên bạn cần xóa pass ròi mới Enable được. Để xóa pass có 2 cách và đương nhiên phải biết Pass. Cách 1 là làm thủ công,mở nó lên rồi xóa pass đi. Cách 2 pro hơn là dùng Code ,nếu bạn thích code thì trong bài viết Làm sao để tắt chế độ Read Only khi mở file Access qua mạng Lan ? mình đã đề cập đó.

Mình thật kém quá.Mình làm như thế này, nhưng mà vẫn bị báo lỗi trên.Mình nhấn phím SHIFT cái File của mình cần muốn mởi đây.Xong mình diền password vào, thì nó xuất hiện tiếp cái khung để đánh password mới nữa.Rồi mình mở cái File Access mới có code Enable phím Shift nhấn nhưng nó vẫn báo lỗi trên.
Còn cái Code của bạn ở trên thì mình không áp dụng đuọc, nó có thay đổi chỗ nào khi áp dụng không?
Hay là bạn dùng cách Import đây?

 

[glasseggs]

Ðề: Code Mở phím Shift bị lỗi

1.Bạn thực hiện sai quy trình rồi. Nếu làm theo cách xoá pass thủ công thi làm nhu sau :
1) Mình bảo bạn xoá pass chứ có bảo bạn mở p/m lên rồi nhập pass đâu,bạn vào chỗ đổi pass ấy và bỏ pass đi .
2 ) Mình không để ý, p/m này đã bỏ cái Full Menu lên không thể bỏ pass theo kiểu thủ công nên buộc phải dùng Code ,bạn theo cách 2 nhé.
3) Bạn hiểu sai về phím Shift rùi,với những phần mềm có pass thì không cần phải nhấn Shift ngay khi mở p/m vì không có tác dụng đâu. Bạn phải nhập pass xong ,nhấn ok rồi mới giữ phím Shift. Thứ 2 ,theo các bước bạn làm nó báo lỗi là đúng vì cái file Data đó vẫn còn pass,bạn chưa xoá pass(tức là bỏ hẳn pass đi ấy ).
Cách 2 :
1) Trên Form của file hg.mdb.mdb bạn tạo thêm 1 nút Command1 :

Private Sub Command1_Click()
setPass "Karaoke±Å²Æ³Ç´µ¢¶£·", ""
End Sub

2) Paste code sau vào cửa sổ VB của Form đó :

Sub setPass(oldPass As String, newPass As String)
Dim tempDB As Database
Set tempDB = OpenDatabase("CUsers\Pham Anh Tuan\Desktop\Desktop\Data.mdb", True, False, "MS Access;PWD=" & oldPass)
tempDB.NewPassword oldPass, newPass
tempDB.Close
End Sub

Dòng in đậm bạn thay đổi theo đường dẫn của file Data cho phù hợp.

Sau khi làm xong lưu tất cả ,bạn làm theo quy trình sau :
- Nhấn Command1 1 cái ,mục đích để xoá pass.
- Sau đó nhấn Enable 1 cái thôi. Xong.
- Mở file Data lên (bây giờ đã không còn pass) ,nhớ là trong khi mở nhấn Shift ngay nhé vì nó không còn pass rồi.
HẾT

 

[sinhvienpy89]

Ðề: Code Mở phím Shift bị lỗi

Chân thành cảm ơn rất nhiều, vì nhấn chữ Thank chưa hết nghĩa!Thế mà lâu nay cứ nghĩ khoá phím SHIFT là vô địch, không ngờ hôm nay nó vẫn còn kẻ hở.

 

[glasseggs]

Ðề: Code Mở phím Shift bị lỗi

Cá nhân mình thì chưa gặp p/m bằng Acccess nào có khả năng ngăn chặn dù đặt pass hay phân quyền bằng Access,vì mọi thứ sẽ trở nên vô dụng khi hủy Shift .
Cách tốt nhất là dùng pass của chính Access thì bó tay.

 

[sinhvienpy89]

Ðề: Code Mở phím Shift bị lỗi

Cá nhân mình thì chưa gặp p/m bằng Acccess nào có khả năng ngăn chặn dù đặt pass hay phân quyền bằng Access,vì mọi thứ sẽ trở nên vô dụng khi hủy Shift .
Cách tốt nhất là dùng pass của chính Access thì bó tay.

Bạn đặt khoảng bao nhiêu ký tự cho cái pass này, mình có thể dò cái pass trên trong vòng khoảng 5 s đấy, nên dùng password của chính Access là chưa bó tay đâu nghen.Nếu không tin mình có thể thử cho.
- Liệu có cách mã hóa nào hơn chăng?

 

[glasseggs]

Ðề: Code Mở phím Shift bị lỗi

Pass của Access mà bạn dùng cái gì mà dò được nhanh thế,hóa ra Access đểu à. Giờ mình đang dùng đường truyền GPRS nên không up file được,lúc nào nhờ bạn thử mới được.

 

[glasseggs]

Ðề: Code Mở phím Shift bị lỗi

Chào Phuyen89, sau khi nghe bạn bảo phá pass Access trong vài giây,mình cũng bán tín bán nghi.
Lên mạng tìm thử p/m và rốt cuộc mình cũng đã thử,đặt 1 cái pass kỳ quái hơn 20 kí tự. Và thật không ngờ hay nói đúng hơn là thất vọng ,chưa đầy 1s (nhấn next 1 cái ) nó đã hiện lên pass, hình như nó không dò mà nó vào đâu đó lấy ra thì đúng hơn.
Nhưng đó là Access 2003, với 2007 bạn có dò được không ,mình lên website của Microsoft thì thấy như sau :

Encryption and Database Passwords
Since the earliest versions of Access, two of the simplest security measures you could apply to a database were to create a database password and to encode the database. In Access 2007, these two measures have been combined to create a stronger protection measure for ACCDB format files. For the MDB database format, the password and encoding system remains as it was. When you add a database password in Access 2007, Access encrypts the database, with the encryption key being derived from the password. Fortunately, the password is not retained in the file so the file becomes more secure. This style of encryption is common across all 2007 Office system programs.

After Access applies the password encryption, the database file can be opened only after the user enters the password. A benefit of encryption is that users cannot open the database in another program, such as a text editor, and hunt through the file for pockets of valuable information. If you do not encrypt the database, a dedicated person can piece together valuable information from the file.

 

[sinhvienpy89]

Ðề: Code Mở phím Shift bị lỗi

Không được chỉ co Ac2k3 thôi và các phiên bảng trước đó của nó.
Thông qua bài này cho ta thấy, khi muốn mà khoá phim SHIFT ta không nên dùng Code trong Database mà nên để ơ môt File khác rồi dùng Code khoá gián tiếp.
Đặt Code khóa phím Shift tại một Form mà chỉ có nguoi thiết kế mới biết.

 

[glasseggs]

Ðề: Code Mở phím Shift bị lỗi

Hì . Bạn nhầm rùi, như thế cũng không khác gì cả.
Đơn giản chỉ là Allowpasskey thôi mà,ở đâu chả thế.
Mới down được 2 phần mềm phá pass access 2007,tối nay thử xem nó có phá dễ dàng như 2003 không.