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

[gahocseo]

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

[COLOR=#000000]
[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub EnableSHIFTButton_Click[/COLOR][COLOR=#007700]() [/COLOR][COLOR=#0000BB]On Error [/COLOR][COLOR=#007700]GoTo [/COLOR][COLOR=#0000BB]ErrHandler Dim db [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]DatabaseDim ThuocTinh [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Property   Set db [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]OpenDatabase[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"C:\QLNS.mdb"[/COLOR][COLOR=#007700])[/COLOR][COLOR=#0000BB]db[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Properties[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"AllowBypassKey"[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]TrueSet db [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Nothing [/COLOR][COLOR=#007700]Exit [/COLOR][COLOR=#0000BB]SubErrHandler[/COLOR][COLOR=#007700]:   [/COLOR][COLOR=#0000BB]MsgBox Err[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Number   [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Err[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Number [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]3270 Then   Property not found[/COLOR][COLOR=#007700].       [/COLOR][COLOR=#0000BB]Set ThuocTinh [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]db[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]CreateProperty[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"AllowBypassKey"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]dbBoolean[/COLOR][COLOR=#007700],  [/COLOR][COLOR=#0000BB]True[/COLOR][COLOR=#007700])       [/COLOR][COLOR=#0000BB]db[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Properties[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Append ThuocTinh       Resume Next   [/COLOR][COLOR=#007700]Else       [/COLOR][COLOR=#0000BB]MsgBox Err[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Description    End [/COLOR][COLOR=#007700]If[/COLOR][COLOR=#0000BB]End Sub  [/COLOR] 

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

View more random threads:

• Xin các bác giúp đỡ về phần In ạ
• Vấn đề nan giải về back end và front end . ai rành về nó giúp đở
• Tạo chương trình trắc nghiệm bằng ACcess
• Thêm ảnh chân dung cho từng ID.
• Giúp mình mở file database này với?
• [Hỏi] Biểu tượng hình tam giác màu vàng có dấu chấm thang trong macro !!!
• Gọp các Textbox mà có dữ liệu giống nhau
• Code khóa phím Shift
• Vấn đề ngày tháng trong Access
• Giúp mình bị lỗi phóng to chữ trong Form của Access !

[letit]

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

[COLOR=#000000]
[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub EnableSHIFTButton_Click[/COLOR][COLOR=#007700]() [/COLOR][COLOR=#0000BB]On Error [/COLOR][COLOR=#007700]GoTo [/COLOR][COLOR=#0000BB]ErrHandler Dim db [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]DatabaseDim ThuocTinh [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Property   Set db [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]OpenDatabase[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"C:\QLNS.mdb"[/COLOR][COLOR=#007700])[/COLOR][COLOR=#0000BB]db[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Properties[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"AllowBypassKey"[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]TrueSet db [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Nothing [/COLOR][COLOR=#007700]Exit [/COLOR][COLOR=#0000BB]SubErrHandler[/COLOR][COLOR=#007700]:   [/COLOR][COLOR=#0000BB]MsgBox Err[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Number   [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Err[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Number [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]3270 Then   Property not found[/COLOR][COLOR=#007700].       [/COLOR][COLOR=#0000BB]Set ThuocTinh [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]db[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]CreateProperty[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"AllowBypassKey"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]dbBoolean[/COLOR][COLOR=#007700],  [/COLOR][COLOR=#0000BB]True[/COLOR][COLOR=#007700])       [/COLOR][COLOR=#0000BB]db[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Properties[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Append ThuocTinh       Resume Next   [/COLOR][COLOR=#007700]Else       [/COLOR][COLOR=#0000BB]MsgBox Err[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Description    End [/COLOR][COLOR=#007700]If[/COLOR][COLOR=#0000BB]End Sub  [/COLOR] 

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 (')

[diengiadung]

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

[devico]

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

[noithatquangvinh]

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

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

[queen98]

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

[Jumbo]

Ðề: 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("D:-/Customer 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 .

[seochoikiemgao]

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

​

[lekhahieu]

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

[quataovang]

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