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] Lồng Select SQL Query Append vào trong VBA
- Code Access lỗi khi chạy trên win7-64bit
- Có nên hoc VB.net thay vì ms access
- Treeview trong access
- xin hỏi cách tìm record giống nhau giữa hai table
- Giúp mình mở file database này với?
- Access
- Hiển thị thông tin từ table lên form
- Bẫy lỗi trong Access bằng VBA
- tìm kiếm qua các điều kiện chọn textbox
-
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
Bao cao su đôn dên là sản phẩm tương trợ dục tình được người dùng tại Việt Nam ưa chuộng. Hiện tại trên thị trường sản phẩm này có rất nhiều dòng với mẫu mã đa dạng. Dưới đây là Top 5 bao cao su đôn...
Bao cao su đôn dên X78PM gai toàn thân để làm mới cuộc vui