Chủ đề: Code Mở phím Shift bị lỗi
-
06-15-2010, 03:45 AM #1
Junior 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:
- Giúp mình về câu lệnh thống kê từ ngày này đến ngày kia
- Xóa dữ liệu ở 2 bảng cùng lúc
- Nhập dữ liệu vào record nếu trùng thì......??
- Hiện nội dung từng lỗi theo bảng (table) ta dựng sẵn.
- xin code tạo nút save
- Cập nhật phiên bản mới cho chương trình Access?
- Chương trình quản lý dự án
- nhờ các bạn giúp đỡ.
- Tạo key bản quyền cho access
- Hỏi query Xuất Nhập Tồn
-
06-15-2010, 03:27 PM #2
Junior 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 #3
Junior 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 #4
Junior 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 #5
Silver 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 #6
Junior 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 #7
Junior 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 #8
Silver 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 #9
Silver 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 #10
Silver 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
Du lịch Indonesia - Nếu bạn đang tìm kiếm những cảm giác mới lạ thú vị thì "xứ vạn đảo" Indonesia sẽ là một sự lựa chọn không thể bỏ qua. Indonesia với hàng ngàn đảo lớn nhỏ, cùng những cảnh quan...
Tour du lịch Indonesia được Dulichviet tổ chức đặc sắc như thế nào?