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

Thủ Thuật Access

• Trang chủ

  • Thủ Thuật Access
  • Trang chủ
•   Thuộc tính Startup MS Access toàn tập với VBA
  

  Viết bởi: Noname 26-08-10, 08:49 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (2)

• 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:
  
  
  
  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.
  


•   So sánh - tổng hợp 2 table với Union
  

  Viết bởi: Noname 26-08-10, 08:46 PM Chuyên mục: Query - Bài trả lời (4)

• Hỏi:Mình hiện nay có 2 table A và table B :
  Giờ mình muốn lọc bằng lệnh SQL hoặc query :
  điều kiện
  1_những record nào trùng file mahang và tenhang trùng giữa 2 table A và B .
  2_Lọc ra những record không trùng giữa 2 table A và B .
  3 -Làm thế nào để Hợp nhất hai table A và B: lấy tất cả những record trùng và không trùng của 2 table (các record trùng nhau sẽ thành 1 record)
  Đáp: Ví dụ bạn có 2 table
  tableA có các mahang: 001, 002, 003.
  TableB có các mahang: 001, 004, 005.
  
  1_những record nào trùng file mahang và tenhang trùng giữa 2 table A và B .
  
  
  Mã:

  SELECT ArticleNo FROM TableA WHERE ArticleNo In (select ArticleNo from TableB)
    Union
    SELECT ArticleNo FROM TableB WHERE ArticleNo In (select ArticleNo from TableA)
  
  kết quả ví dụ tabletonghop có mã: 001
  2_Lọc ra những record không trùng giữa 2 table A và B .
  
  
  Mã:

  SELECT ArticleNo FROM TableA WHERE ArticleNo Not In (select ArticleNo from TableB)
    Union
    SELECT ArticleNo FROM TableB WHERE ArticleNo Not In (select ArticleNo from TableA);
  
  kết quả ví dụ: 002,003,004,005
  3/ -Làm thế nào để Hợp nhất hai table A và B: lấy tất cả những record trùng và không trùng của 2 table (các record trùng nhau sẽ thành 1 record)
  
  Mã:

  SELECT ArticleNo FROM TableA
    Union
    SELECT ArticleNo FROM TableB ;
  
  kết quả ví dụ: 001,002,003,004,005
  4/ Làm thế nào lấy tổng hợp tất cả các record không quan tâm chúng có trùng mã hay không?
  
  
  Mã:

  SELECT ArticleNo FROM TableA
    Union All
    SELECT ArticleNo FROM TableB ;
  
  kết quả ví dụ: 001,001,002,003,004,005
  


•   Đồng Bộ hai table
  

  Viết bởi: Noname 26-08-10, 08:43 PM Chuyên mục: Table - Bài trả lời (2)

• Hỏi: Tôi có 2 table có cấu trúc gần giống nhau. Tuy nhiên có khác biệt 1 ít về dữ liệu. Xin hướng dẫn đồng bộ table1 sang table 2.
  Ví dụ: table1( Maso, ten). Table2(maso, ten, diachi, ...)
  Tôi muốn
  1/Thêm maso,ten từ table 1 sang table nếu trong table 2 thiếu.
  2/Update lại tên nếu cùng 1 mã số nhưng tên table1 khác trong table 2
  3/ xóa những recode trong table2 không có mã trong table1
  
  Đáp run các query sau:
  
  1/Thêm maso,ten từ table 1 sang table nếu trong table 2 thiếu
  
  
  Mã:

  INSERT INTO Table2 ( Maso, TEN )
    SELECT Table1.Maso, Table1.Ten
    FROM Table1
    WHERE (((Table1.Maso) Not In (select maso from table2)));
  
  2/Update lại tên nếu cùng 1 mã số nhưng tên table1 khác trong table 2
  
  
  Mã:

  UPDATE Table1 INNER JOIN Table2 ON Table1.Maso = Table2.Maso SET Table2.TEN = table1.ten
    WHERE (((Table2.TEN)<>[table1].[ten]));
  3/ xóa những recode trong table2 không có mã trong table1
  
  
  Mã:

  DELETE Table2.*
    FROM Table2
    WHERE (((Table2.Maso) Not In (select maso from table1)));
  
  DownLoaddemo
  


•   Lập Hàm có lượng tham số thay đổi
  

  Viết bởi: Noname 26-08-10, 08:38 PM Chuyên mục: Thư Viện Hàm - Không có hồi đáp

• Hỏi: Bạn HaQuocQuan có hỏi làm sao tạo một hàm có số lượng tham số tùy ý.
  Đáp: Điển hình của các hàm có tham số tùy ý ta có thể thấy ở Excel, nó thường ở dạng
  Hàm( mảng các tham số, hằng số 1, hằng số 2...)
  
  Với hằng số để cho ta biết trong trường hợp nào thì trả về giá trị nào.
  Dưới đây, mình xin tạo 1 hàm có số tham số thay đổi tương tự hàm sum của Excel
  
  
  Mã:

  Function SumC(A As Variant)
    Dim tong
       tong = 0
       For Each I In A
       tong = tong + I
       Next I
       SumC = tong
    End Function
  Và bây giờ ta có thể gọi hàm sum như sau:
  
  
  Mã:

  Private Sub Command7_Click()
       MsgBox "Tong cua 10,20,50,60 la " & SumC(Array(10,20,50,60))
    End Sub
  
  Kết quả hiện lên 1 messenge: 170
  


•   Phân quyền truy cập menu trong Access
  

  Viết bởi: Noname 26-08-10, 08:35 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (21)

• 
  Mình đã giới thiệu với các bạn chương trình phân quyền
  thiet-ke-ctrinh-phan-quyen
  Mình cũng giới thiệu các bạn cách bạn cách tạo 1 thanh menu
  huong-dan-tao-menu-trong-access.html
  Hôm nay mình xin giới thiệu cách để hiển thị 1 menu với user này và ẩn với user khác.
  
  
  Ta hãy mở 1 module và soạn thủ tục sau:
  
  
  Mã:

  Sub ViewMenu(User as String, mnBar as string, mnItem as String, IsView as Boolean)

If currUser= User Then  
    CommandBars(mnBar).Controls(mnItem).Visible = isView
End If
End Sub
  Thủ tục trên cho ta hiện 1 menu với
  
  Mã:

  User
  : user muốn cho phép xem
  
  Mã:

  CurrUser
  : User hiện tại đăng nhập vào hệ thống. ( bạn có thể gán 1 biến toàn cục, mỗi khi có người đăng nhập thành công, thì gán : CurrUser bằng UserName)
  
  Mã:

  mnBar
  : tên thanh menu do bạn tự tạo
  
  Mã:

  mnItem
  : tên menu (caption) do bạn tạo và gắn trên thanh Menu
  
  Ví dụ:
  Trong bài đăng về tạo menu http://thuthuataccess.blogspot.com/2009/...ccess.html
  
  Bạn tạo 1 thanh menu "QuanLyCongVan" với 2 Item là : "Cập Nhật", và "Thoát".Bây giờ bạn muốn chỉ hiện menu "Cập Nhật" cho User, và Admin. ( nhóm guest không được thấy) ta gọi sau khi người dùng đăng nhập thành công:
  
  Mã:

  ViewMenu "User", "QuanLyCongVan", "Cập Nhật", True
    ViewMenu "Admin", "QuanLyCongVan", "Cập Nhật", True
    ViewMenu "Guest", "QuanLyCongVan", "Cập Nhật", False
  
  



Chủ đề Mới nhất

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: thaominhtam-11-09-25, 11:47 AM- » Bài trả lời: 69- » Lượt xem: 5,471

Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: tt1212-09-09-25, 05:03 PM- » Bài trả lời: 32- » Lượt xem: 7,109

Thử nghiệm upload hình -Chuyên mục: Phòng thử nghiệm-Đăng bởi lần cuối: Noname-29-08-25, 09:44 AM- » Bài trả lời: 2- » Lượt xem: 687

Quản Lý Công Văn -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Adung-23-07-25, 10:05 AM- » Bài trả lời: 8- » Lượt xem: 12,948

(Update v.1.0.85 - 30/06/... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: Adung-22-07-25, 10:46 AM- » Bài trả lời: 270- » Lượt xem: 113,414

Video Tự học Access ( Cơ ... -Chuyên mục: Thư Viện Giáo Trình-Đăng bởi lần cuối: Nguyễn Đình Thọ-21-07-25, 10:42 AM- » Bài trả lời: 7- » Lượt xem: 9,046

E chia sẽ Quản lý nhà trọ -Chuyên mục: Forms-Đăng bởi lần cuối: hoaithanh-18-07-25, 02:28 PM- » Bài trả lời: 0- » Lượt xem: 143

E xin chia sẻ kiểm phiếu ... -Chuyên mục: Forms-Đăng bởi lần cuối: hoaithanh-18-07-25, 09:17 AM- » Bài trả lời: 14- » Lượt xem: 856

Giải pháp Chuyển đổi từ đ... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-09-07-25, 09:52 PM- » Bài trả lời: 6- » Lượt xem: 205

File Sổ Quỹ Tiền Mặt cho ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: gatayvn-08-07-25, 04:59 PM- » Bài trả lời: 31- » Lượt xem: 4,218




Diễn đàn Thống kê

» Thành viên: 6,411 » Thành viên mới nhất: hbetbid1 » Các chủ đề diễn đàn: 9,898 » Các bài viết diễn: 48,825 Thống kê đầy đủ