今年Access版块的第2帖——选项卡控件的妙用

roych

众所周知，选项卡控件通常只能作为二级筛选。但在特殊场景下，其实是可以作为三级筛选的。操作步骤只需要3步：
1、新建窗体，插入一个选项卡，添加适当的页控件，在每个页控件下添加适当的标签控件。
2、添加一个子窗体控件（比如，child），绑定数据源。
3、添加适当的VBA代码。最终效果如下所示：

按惯例，还是要贴一段代码的：

1. Sub Page_Click(pg As Page)
   
2.    
   
3.     Dim lbl As Label
   
4.     Dim ctrl As Control
   
5.     Dim rst As New ADODB.Recordset
   
6.     Dim strSQL As String
   
7.     Dim i As Long
   
8.    
   
9.     strSQL = "select distinct ID from tbl_page_data where Year([date])=" & pg.Caption
   
10.     rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    
11.    
    
12.     i = 0
    
13.    
    
14.     If rst.RecordCount > 0 Then
    
15.         
    
16.         Do Until rst.EOF
    
17.         Set lbl = pg.Controls(i)
    
18.         '格式化标签。仅显示使用的标签。
    
19.         lbl.BackStyle = 1
    
20.         lbl.SpecialEffect = 1
    
21.         lbl.BackColor = RGB(51, 160, 44)
    
22.         lbl.ForeColor = RGB(255, 255, 255)
    
23.         lbl.TextAlign = 2
    
24.         lbl.FontWeight = 900
    
25.         lbl.Caption = rst(0)
    
26.         lbl.OnClick = "=Label_Click([" & pg.Name & "], [" & lbl.Name & "])"
    
27.             i = i + 1
    
28.             rst.MoveNext
    
29.         Loop
    
30.     End If
    
31.    
    
32.     rst.Close
    
33.    
    
34. End Sub
    
35. 
    
36. Function Label_Click(ByVal pg As Page, ByVal lbl As Label)
    
37.     Dim qry As DAO.QueryDef
    
38.     Dim strSQL As String
    
39. 
    
40.     Set qry = CurrentDb.QueryDefs("qry_page")
    
41.     strSQL = "SELECT *  FROM tbl_page_data where Year([date])=" & pg.Caption & " and ID=" & lbl.Caption
    
42.     qry.SQL = strSQL
    
43.     qry.Close
    
44.    
    
45.     Me.child_data.SourceObject = "查询.qry_page"
    
46.     Me.child_data.Requery
    
47.    
    
48. End Function
    
49. 
    
50. Private Sub Form_Load()
    
51.     Dim rst As New ADODB.Recordset
    
52.     Dim strSQL As String
    
53.     Dim i As Long
    
54.     Dim tabs As TabControl
    
55.     Dim pg As Page
    
56.    
    
57.     Set tabs = Me.tabs
    
58.    
    
59.     strSQL = "SELECT distinct Year([date]) AS data_year FROM tbl_page_data"
    
60.     rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    
61.    
    
62.     i = 0
    
63.    
    
64.     Do Until rst.EOF
    
65.         Set pg = tabs.Pages(i)
    
66.         pg.Caption = rst(0)
    
67.         pg.OnClick = "[事件过程]"
    
68.         Call Page_Click(pg)
    
69.         i = i + 1
    
70.         rst.MoveNext
    
71.     Loop
    
72.     rst.Close
    
73.    
    
74.    
    
75. End Sub
    

复制代码

代码简要说明：

• Form_Load()事件
  

在窗体加载控件时，通过打开记录集，读取年份数据，将它赋值给对应的页控件的标题（Captain），并生成页控件的单击事件。
关键代码：
pg.OnClick = "[事件过程]"
Call Page_Click(pg)
表示将页控件的OnClick属性设置为“[事件过程]”英文版注意改成[Event Procedure])

• Page_Click(pg)事件
  

主要用于单击页控件时，将每个产品ID赋值给隶属于该页控件的标签（label）的标题，同时对标签进行格式化。

• Label_Click(ByVal pg As Page, ByVal lbl As Label)函数
  

主要用于单击标签时，对子窗体控件的数据进行筛选。核心代码……额，应该算全部吧。
先通过打开已建立的查询，然后通过页控件和标签控件的标题作为参数传入，修改查询的SQL语句。
最后将查询组件传递给子窗体控件的源对象。

• 注意：
  

• Form_Load事件中，OnClick为"[事件过程]"；Page_Click事件中，用的是表达式。返回值为：=Label_Click([pg], [lbl])。对应的pg和lbl为各页控件和标签控件对象（并非控件名称字符串）。
• 由于标签用的是表达式，因此必须使用函数（而不是Sub），否则报错。
  

最后一点：想知道附件在哪里的话，回复一下，我就告诉你。

游客，如果您要查看本帖隐藏内容请回复

yanlj518

谢谢老师分享

xxk8077

太深奥了

smilingkiss

好好好，正好学习学习

shallwxw

感谢分享！

liumporite

下了看看 谢谢

wuwu200222

谢谢老师

luohua

使劲回复使劲回复！！！

ynjxw

roych 的作品必看

gaofei186

看看一下