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

Ẩn/ Hiện các đối tượng trong Access

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • Ẩn/ Hiện các đối tượng trong Access
• Ẩn/ Hiện các đối tượng trong Access

• Ẩn/ Hiện các đối tượng trong Access

  Noname > 26-08-10, 11:03 AM

  Show / Hide Object ( tables, querys, forms, reports )
  Question : Làm thế nào để có thể ẩn nhiều bảng cùng lúc.Hay là ta phải chọn từng bảng rôi ẩn.Vì trong CSDL có nhiều bảng mà ẩn từng cái bảng một thì rất là lâu.Tưng tụ với Form hay Report
  
  
  
  Bạn làm copy thủ tục sau:
  
  

  Mã:

  Sub hideTable(H As Boolean)
On Error Resume Next
Dim DB As Database
Dim N As Byte
Dim i As Byte
Set DB = DBEngine.Workspaces(0).Databases(0)
N = DB.TableDefs.Count
For i = 1 To N - 1
Application.SetHiddenAttribute acTable, DB.TableDefs(i).Name, H
Next

End Sub

  Tương tự với query, form, report, bạn thay các dòng :
  

  Mã:

  N = DB.TableDefs.Count

  bằng:
  

  Mã:

  N = DB.QueryDefs.Count
N= Forms.Count
N = Reports.Count

  
  Và thay dòng
  

  Mã:

  Application.SetHiddenAttribute acTable, DB.TableDefs(i).Name, H

  
  bằng
  

  Mã:

  Application.SetHiddenAttribute acQuery, DB.QueryDefs(i).Name, H
Application.SetHiddenAttribute acForm, Forms(i).Name, H
Application.SetHiddenAttribute acReport, Reports(i).Name, H

  trong thủ tục
  
  
  Giờ bạn muốn có thể tạo 2 nút nhấn và gọi:
  

  Mã:

  Hidetable True

  Để ẩn
  và
  

  Mã:

  HideTable false

  để hiện trở lại
  DemoDowload

• RE: Ẩn/ Hiện các đối tượng trong Access

  haquocquan > 31-08-10, 10:50 PM

  Tôi áp dụng phương pháp này để Set Hide Table ở một DB khác không được. Noname chỉ giúp với.

• RE: Ẩn/ Hiện các đối tượng trong Access

  Noname > 31-08-10, 10:59 PM

  Có có báo lỗi hay gì không bạn?
  Có phải những table đó là link table?
  

• RE: Ẩn/ Hiện các đối tượng trong Access

  haquocquan > 31-08-10, 11:09 PM

  Mã:

  Sub hideTable(H As Boolean)
On Error Resume Next
Dim DB As Database
Dim N As Byte
Dim i As Byte
Set DB = opendatabase(application.currentProject.Path & "\data.mdb")
N = DB.TableDefs.Count
For i = 1 To N - 1
[color=#FF0000]DB.SetHiddenAttribute acTable, DB.TableDefs(i).Name, H[/color]
Next

End Sub

  Báo lỗi tại phần đỏ.

• RE: Ẩn/ Hiện các đối tượng trong Access

  Noname > 31-08-10, 11:20 PM

  (31-08-10, 11:09 PM)haquocquan Đã viết:

  Mã:

  Sub hideTable(H As Boolean)
On Error Resume Next
Dim DB As Database
Dim N As Byte
Dim i As Byte
Set DB = opendatabase(application.currentProject.Path & "\data.mdb")
N = DB.TableDefs.Count
For i = 1 To N - 1
[color=#FF0000]DB.SetHiddenAttribute acTable, DB.TableDefs(i).Name, H[/color]
Next

End Sub

  Báo lỗi tại phần đỏ.

  kỳ vậy! Vì mình đã có câu lệnh On Error Resume Next, nếu gặp lỗi nó bỏ qua hết mới phải,
  

• RE: Ẩn/ Hiện các đối tượng trong Access

  haquocquan > 31-08-10, 11:37 PM

  Không rõ lắm. Khi thay đổi thành:
  

  Mã:

  Sub hideTable(H As Boolean)
On Error Resume Next
Dim DB As Database
Dim N As Byte
Dim i As Byte
Set DB = opendatabase(application.currentProject.Path & "\data.mdb")
N = DB.TableDefs.Count
For i = 1 To N - 1
Application.SetHiddenAttribute acTable, DB.TableDefs(i).Name, H
Next

End Sub

  Thì các bảng trong currentdb hide hết (link table cũng hide)

• RE: Ẩn/ Hiện các đối tượng trong Access

  haquocquan > 16-03-11, 02:42 PM

  (26-08-10, 11:03 AM)Noname Đã viết: Show / Hide Object ( tables, querys, forms, reports )
  Question : Làm thế nào để có thể ẩn nhiều bảng cùng lúc.Hay là ta phải chọn từng bảng rôi ẩn.Vì trong CSDL có nhiều bảng mà ẩn từng cái bảng một thì rất là lâu.Tưng tụ với Form hay Report
  
  Bạn làm copy thủ tục sau:
  
  

  Mã:

  Sub hideTable(H As Boolean)
On Error Resume Next
Dim DB As Database
Dim N As Byte
Dim i As Byte
Set DB = DBEngine.Workspaces(0).Databases(0)
N = DB.TableDefs.Count
For i = 1 To N - 1
Application.SetHiddenAttribute acTable, DB.TableDefs(i).Name, H
Next

End Sub

  Tương tự với query, form, report, bạn thay các dòng :
  

  Mã:

  N = DB.TableDefs.Count

  bằng:
  

  Mã:

  N = DB.QueryDefs.Count
N= Forms.Count
N = Reports.Count

  
  Và thay dòng
  

  Mã:

  Application.SetHiddenAttribute acTable, DB.TableDefs(i).Name, H

  
  bằng
  

  Mã:

  Application.SetHiddenAttribute acQuery, DB.QueryDefs(i).Name, H
Application.SetHiddenAttribute acForm, Forms(i).Name, H
Application.SetHiddenAttribute acReport, Reports(i).Name, H

  trong thủ tục
  
  
  Giờ bạn muốn có thể tạo 2 nút nhấn và gọi:
  

  Mã:

  Hidetable True

  Để ẩn
  và
  

  Mã:

  HideTable false

  để hiện trở lại

  
  Chạy thử nhiều lần hàm trên của Noname, thấy rằng: chỉ ẩn được các đối tượng trong currentdb.
  Muốn ẩn các đối tượng trong một file MDB khác. Chúng ta sử dụng:
  
  

  Mã:

  Public Sub HideTable()
Dim dbdata As Database
Dim i As Byte
Set dbdata = OpenDatabase(Getthumuc() & "\datasys\data.mdb")
For i = 0 To dbdata.TableDefs.Count - 1
  dbdata.TableDefs(i).Properties("Attributes").Value = dbHiddenObject
Next
End Sub

  
  Để hiện trở lại:thay dòng trên bằng
  

  Mã:

  dbdata.TableDefs(i).Properties("Attributes").Value = 0

  
  Đối với query: thay vào cho phù hợp
  
  N= Forms.Count
  N = Reports.Count
  Lưu ý: các forms, reports chỉ mở thì mới count được.

• RE: Ẩn/ Hiện các đối tượng trong Access

  haquocquan > 16-03-11, 04:10 PM

  Trong trường hợp muốn ẩn tất cả các forms, reports cả mở và không mở (vì forms.count, reports.count chỉ đếm được các forms, reports đang mở) thì dùng lệnh sau (chỉ áp dụng cho file MDB hiện tại, MDB khác chưa tìm ra cách):
  
  

  Mã:

  Sub HideForms()
On Error Resume Next
Dim i As Long
For i = 0 To CurrentProject.AllForms.Count - 1
    Application.SetHiddenAttribute acForm, CurrentProject.AllForms.Item(i).Name, True
Next
End Sub

  Còn Reports, áp dụng tương tự.
  Có ai có đoạn code ẩn, hiện các forms và reports trong file MDB khác, post cho mọi người cùng tham khảo nhé
  
• Bài trước Bài tiếp