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:
- Khái niệm đầu tiên về lập trình trên Access
- Lấy dữ liệu và xóa từ bảng động
- Làm sao để INSERT INTO giá trị DATE trong ACCESS?
- Giúp Đỡ
- Sử dụng hàm Dlookup tra Đơn giá từ bảng
- dữ liệu ngày trả về quý
- Tạo key bản quyền cho access
- Code Mở phím Shift bị lỗi
- Help me: Lọc dữ liệu qua 2 combobox.???
- Xin code để accesc có thể refresh hoặc chạy lại
-
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
Hội y khoa giới tính thế giới định nghĩa xuất tinh sớm là tình trạng rối loạn xuất tinh của nam giới với đặc trưng luôn xuất tinh sớm hơn hoặc trong vòng một phút quan hệ. Bệnh nhân không có khả năng...
Tìm hiểu về loại thuốc dứt điểm bệnh "ra nhanh"