Đánh giá chủ đề:
  • 6 Votes - 2.33 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Khoá phím ctrl-F4 và Alt-F4 , shift
#1
1) Khoá phím ctrl-F4 và Alt-F4

Ý tưởng của hungtano
Bạn tạo 1 macro tên AutoKeys,

- ở cột Macro Name, bạn điền ^{F4}, ở cột Action bạn chọn Msgbox, ở phần dưới Action Argument bạn tạo 1 thông báo "Phím này đã bị khóa"

- ở cột Macro Name, bạn điền %{F4}, ở cột Action bạn chọn Msgbox, ở phần dưới Action Argument bạn tạo 1 thông báo "Phím này đã bị khóa"

2) Phím shisft có công dụng gì ? sao lại khoá phím shift ?
Khi viết xong 1 chương trình trên Access, khi đưa vào sử dụng bạn phải giấu cửa sổ database. Phím shift có công dụng mở cửa sổ database để xem các object của chuơng trình như table, macro, query, ...Để tránh không cho users mở cửa sổ database "quậy phá" các object của CT, người ta phải khóa phím shift.
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
(09-08-10, 02:11 AM)Noname Đã viết: 1) Khoá phím ctrl-F4 và Alt-F4

Ý tưởng của hungtano
Bạn tạo 1 macro tên AutoKeys,

- ở cột Macro Name, bạn điền ^{F4}, ở cột Action bạn chọn Msgbox, ở phần dưới Action Argument bạn tạo 1 thông báo "Phím này đã bị khóa"

- ở cột Macro Name, bạn điền %{F4}, ở cột Action bạn chọn Msgbox, ở phần dưới Action Argument bạn tạo 1 thông báo "Phím này đã bị khóa"

2) Phím shisft có công dụng gì ? sao lại khoá phím shift ?
Khi viết xong 1 chương trình trên Access, khi đưa vào sử dụng bạn phải giấu cửa sổ database. Phím shift có công dụng mở cửa sổ database để xem các object của chuơng trình như table, macro, query, ...Để tránh không cho users mở cửa sổ database "quậy phá" các object của CT, người ta phải khóa phím shift.

Em có một file mdb bị khóa shift, mở theo cách bác giới thiệu không đc, vậy có cách nào mở được không bác?

Cách mở bác giới thiệu đây:

Cách làm:

Trong file .mdb mới, bạn tạo 1 form, tạo 1 command button và :

Trích dẫn:
Private Sub EnableSHIFTButton_Click()

On Error GoTo ErrHandler

Dim db As Database
Dim ThuocTinh As Property
Set db = OpenDatabase("C:\QLNS.mdb")
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

Bác giúp em nhé.
Chữ ký của ngocanhwin Xin chào, mình là ngocanhwin, Tham gia http://thuthuataccess.com/forum từ ngày 08-01 -14.
Reply
Những người đã cảm ơn
#3
Gửi File lên mở cho OK ngay mà !
Khải Nguyến.
Chữ ký của khải nguyên Khải Nguyên Xin Gửi lời chào tới Tất cả các bạn trên Diễn Đàn Thủ Thuật Access
Chúc cả nhà may mắn và  thành đạt ! Lightbulb
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Tạo khóa bản quyền hoanbhxhls 1 474 06-11-15, 02:54 PM
Bài mới nhất: kieu manh
  Enable phím shift khi lỡ chạy module khóa mà quên viết module mở khóa Noname 5 4,235 30-04-11, 04:52 PM
Bài mới nhất: gianglun
  Khóa phím close trong Access Noname 0 1,894 09-08-10, 02:15 AM
Bài mới nhất: Noname
  Mở nút Close(x) khi đã khóa Noname 0 1,214 09-08-10, 02:12 AM
Bài mới nhất: Noname

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ