【Access小品】只顾眼前---选项卡当前页标签提醒

简

我把你这个实例改了下，通过对Tag的判断，来做出对选项卡当前页标签的提醒。



代码修改如下：
Private Sub 选项卡控件0_Change()
Dim n As Long
n = Me.选项卡控件0.Value
Me.选项卡控件0.Pages(n).Caption = "【" & Me.选项卡控件0.Pages(n).Tag & "】"
PCaption Me.选项卡控件0, Me.选项卡控件0.Pages(n).Tag
End Sub

Function PCaption(ctl As Control, Pname As String)
Dim p As Page
For Each p In ctl.Pages
    If p.Tag <> Pname Then
        p.Caption = p.Tag
    End If
Next
End Function

改过的实例见附件：


不知如何，还请多多指教。

todaynew

简 发表于 2011-4-4 08:33
怎么下载来无法运行呢，提示说不是有效的路径~~~~怪事。

你的Offic可能需要重装。

简

怎么下载来无法运行呢，提示说不是有效的路径~~~~怪事。

huxinhua

学习学习
谢谢分享

轻风

改用2010，轻松解决。

changweiren

刚才见教