Đánh giá chủ đề:
  • 3 Votes - 1.33 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Thuộc tính Startup MS Access toàn tập với VBA
#1
Xin chào các tín đồ Access. Có lẽ nhiều người biết các ngăn chặn vọc phá cũng như tùy biến thuộc tính startup Access bằng cách vào Tool--> Startup.
Tuy nhiên, không phải bao giờ điều đó cũng làm các bạn hài lòng, và chúng ta luôn luôn muốn hơn nữa với VBA.Sau đây, mình xin giới thiệu các lệnh sửa thuộc tính trong VBA. Có lẽ vài bạn đã từng thử với việc Disable phím shift. Nhưng trong phạm vi bài viết này, mình sẽ nêu đầy đủ hơn về các thuộc tính đó.Để thuận tiện hơn trong việc thay đổi thuộc tính, bạn nên tạo 1 module và copy hàm sau:
[Hình: startup.jpg]

Mã:
Function ChangeProperty(strPropName, varPropType, varPropValue)
      Dim dbs As Database, prp As Property
      Const conPropNotFoundError = 3270
      Set dbs = CurrentDb
      On Error GoTo Change_XuLyLoi
      dbs.Properties(strPropName) = varPropValue
      ChangeProperty = True
    Change_KetThuc:
      Exit Function
    Change_XuLyLoi:
      'Thuộc tính không thấy
      If Err = conPropNotFoundError Then
      Set prp = dbs.CreateProperty(strPropName, _
      varPropType, varPropValue)
      dbs.Properties.Append prp
      Resume Next
      Else
      'Không có thuộc tính đó
      ChangeProperty = False
      Resume Change_KetThuc
      End If
    End Function

Và dưới đây là tập hợp các thuộc tính trong (ngoài) form Startup mà bạn có thể gọi bất cứ đâu. Sau khi gọi, nó sẽ có hiệu lực từ lần mở chương trình kế tiếp:

Mã:
Sub SercurityDB(locker As Boolean)
    ' Gọi đoạn module này ở form lock hay chỗ nào bạn thích.
    'SecurityDB True ( False)
    ' Thuộc tính nào không cần dùng, abn5 chỉ việc cho dấu nháy (') đằng trước là được
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' Đổi tên Tiêu đề ứng dụng
      ChangeProperty "Apptitle", dbText," Tên Tiêu Đề"
    ' Đặt lại Form gọi khi mở chương trình
      ChangeProperty "StartupForm", dbText, "MainForm"
    ' Cho nhìn thấy Khung Database hay không
      ChangeProperty "StartupShowDBWindow", dbBoolean, locker
    'Cho nhìn thấy thanh Status hay không
      ChangeProperty "StartupShowStatusBar", dbBoolean, True
    ' Cho phép hiển thị thanh  design hay không
      ChangeProperty "AllowBuiltinToolbars", dbBoolean, locker
    ' Cho phép thêm bớt 1 item vào các thanh công cụ hay không
      ChangeProperty "AllowToolbarChanges", dbBoolean, locker
    ' Cho phép hiện thanh bar khi nhấn chuột phải hay không
      ChangeProperty "AllowShortcutMenus", dbBoolean, locker
      ' Cho phép hiện toàn bộ thanh menu hay không
      ChangeProperty "AllowFullMenus", dbBoolean, locker
    'Cho phép ngừng chương trình lại bằng phím Ctrl+ Break khi đang run hay không
      ChangeProperty "AllowBreakIntoCode", dbBoolean, locker
    ' Vô hiệu hóa phím đặc biệt như F11
      ChangeProperty "AllowSpecialKeys", dbBoolean, locker
    ' Vô hiệu hóa phím shift
      ChangeProperty "AllowBypassKey", dbBoolean, locker
    'Cho phép design/ sửa thuộc tính form/ report khi đang mở hay không.
      ChangeProperty "AllowDesignChanges", dbBoolean, locker
    ' Set lại đường dẫn Icon cùng với nơi lưu chương trình
     ChangeProperty "AppIcon", dbText, Access.CurrentProject.Path & "Icon1.ico"
      ' Gắn lại tên menubar tự tạo:
    Application.MenuBar = "My menubar"
    'Gắn lại tên shotcuts menubar ( tạo bằng macro)
    Application.ShotcutMenuBar = "My ShotCut Menubar"
    End Sub

Các đoạn mình tô màu xanh đậm, các bạn có thể thay đổi cho phù hợp với chương trình của bạn.
Các thuộc tính không cần thay đổi, bạn có thể xóa bỏ hoặc đặt dấu nháy đơn (') đằng trước.
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
#2
Noname ơi, mình muốn không cho design form từ menu chuột phải thì phải gắn code vào đâu nhỉ, mình gà access lắm
Chữ ký của hungle2006 hungle2006,gia nhập Thủ Thuật Access từ 10-10 -15.
Reply
Những người đã cảm ơn
#3
(18-04-16, 04:32 PM)hungle2006 Đã viết: Noname ơi, mình muốn không cho design form từ menu chuột phải thì phải gắn code vào đâu nhỉ, mình gà access lắm

Không cần code.
Vào Form Properties | Other -> Shortcut menu: No
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , maidinhdan


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Lấy về số seri CPU, ổ cứng MainBoard trong Access Noname 33 12,300 08-06-16, 11:23 PM
Bài mới nhất: maidinhdan
  Hàm đọc số dùng mã Unicode trong Access Noname 28 11,705 23-03-16, 11:45 PM
Bài mới nhất: thiennamlong
  [Thủ Thuật] Hỏi_Xác định phiên bản Access đang dùng maidinhdan 1 380 18-12-15, 08:43 AM
Bài mới nhất: ongke0711
Star Code tạo Serial, License Key cho Access nguoilinh229 3 502 06-11-15, 02:07 PM
Bài mới nhất: kieu manh
  Set Security Low cho Access Noname 10 4,699 24-06-15, 07:21 PM
Bài mới nhất: kieu manh

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ơ