Chủ đề: Code Mở phím Shift bị lỗi
-
06-15-2010, 03:45 AM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
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:
Run-times Error '3112"
Record can not be read,no read Permission on MsySDb
db.Properties.Append ThuocTinhMã nguồn PHP:[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]
View more random threads:
- Kế toán tiền gửi trong một Ngân hàng
- Khóa ko cho sử dụng chuột phải
- Mỗi ngày thêm 1 code hay
- liên kết giữa textbox và listbox
- Giúp lệnh RecordsGoToNew
- Gọp các Textbox mà có dữ liệu giống nhau
- giúp sửa lỗi reports
- Em có hai thắc mắc mong được anh chị giúp đỡ
- Lập trình VBA trên Access - hình như ít người để ý
- xuất dữ liệu ra máy in qua cổng com (sử dụng winsock)
-
06-15-2010, 03:27 PM #2Junior Member
- Ngày tham gia
- Dec 2015
- Bài viết
- 25
Ðề: Code Mở phím Shift bị lỗi
Gửi bởi phuyen89
-
06-15-2010, 03:30 PM #3Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 3
Ðề: 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
-
06-16-2010, 07:47 AM #4Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 5
Ðề: Code Mở phím Shift bị lỗi
Gửi bởi glasseggs
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
-
06-17-2010, 03:32 PM #5Silver member
- Ngày tham gia
- Apr 2016
- Bài viết
- 64
Ðề: Code Mở phím Shift bị lỗi
Vậy sau khi sửa nó còn bị lỗi gì nữa .
-
06-17-2010, 08:00 PM #6Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Code Mở phím Shift bị lỗi
Gửi bởi glasseggs
-
06-18-2010, 01:13 AM #7Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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
-
06-18-2010, 02:36 AM #8Silver member
- Ngày tham gia
- Aug 2015
- Bài viết
- 392
Ðề: Code Mở phím Shift bị lỗi
Gửi bởi glasseggs
Password thử thách cho bạn lần I là:Karaoke±Å²Æ³Ç´µ¢¶£·
Pass thứ hai là phím Shift he he.
-
06-18-2010, 06:37 PM #9Silver member
- Ngày tham gia
- Sep 2015
- Bài viết
- 12
Ðề: 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 à.
-
06-19-2010, 12:28 AM #10Silver member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Code Mở phím Shift bị lỗi
Gửi bởi glasseggs
Các mẫu cột cổng đá đẹp nhất được làm từ đá xanh tự nhiên có độ bền coi như vĩnh cửu dù cột đá được đặt ngoài hiên có thể chịu mưa , chịu nắng. Mẫu mã đẹp nhất, chạm khắc hoa văn đẹp, tinh tế. ...
Mẫu mẫu cột cổng đá được làm bằng đá xanh tự nhiên đẹp nhất hiện nay