• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Khoá phím ctrl-F4 và Alt-F4 , shift

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • Khoá phím ctrl-F4 và Alt-F4 , shift
• Khoá phím ctrl-F4 và Alt-F4 , shift

• Khoá phím ctrl-F4 và Alt-F4 , shift

  Noname > 09-08-10, 02:11 AM

  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.

• RE: Khoá phím ctrl-F4 và Alt-F4 , shift

  ngocanhwin > 08-01-14, 09:13 PM

  (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é.

• RE: Khoá phím ctrl-F4 và Alt-F4 , shift

  khải nguyên > 09-01-14, 01:54 AM

  Gửi File lên mở cho OK ngay mà !
  Khải Nguyến.
• Bài trước Bài tiếp