按钮控制选项卡的页码

gxy1000

用几个LABEL控件按钮能打开选项卡中的页码吗？
例如按钮1打开选项卡中的页1
       按钮2打开选项卡中的页2
代码怎么写？
能用宏来控制吗？

todaynew

假设选项卡名曰【选项】，则按钮１的单击事件为：
me.选项.value=1
同理按钮2的单击事件为：
me.选项.value=2

gxy1000

Private Sub Label32_Click()
On Error GoTo Err_Label32_Click

   选项卡控件4.Value = 0
   ' Screen.PreviousControl.SetFocus
   ' DoCmd.FindNext

Exit_Label32_Click:
    Exit Sub

Err_Label32_Click:
    MsgBox Err.Description
    Resume Exit_Label32_Click
   
End Sub
Private Sub Label33_Click()
On Error GoTo Err_Label33_Click

  选项卡控件4.Value = 1
   ' Screen.PreviousControl.SetFocus
   ' DoCmd.FindNext

Exit_Label33_Click:
    Exit Sub

Err_Label33_Click:
    MsgBox Err.Description
    Resume Exit_Label33_Click
   
End Sub
Private Sub Label34_Click()
On Error GoTo Err_Label34_Click

   选项卡控件4.Value = 2
   ' Screen.PreviousControl.SetFocus
   ' DoCmd.FindNext

Exit_Label34_Click:
    Exit Sub

Err_Label34_Click:
    MsgBox Err.Description
    Resume Exit_Label34_Click
   
End Sub

gxy1000

gxy1000 发表于 2011-3-3 15:30
Private Sub Label32_Click()
On Error GoTo Err_Label32_Click

这个可以吗？

todaynew

gxy1000 发表于 2011-3-3 15:30
这个可以吗？

可以，但无必要。还不如直接点选项卡方便了事。本来推门即可进去，你非要还搞一通按钮去开门。多少有些脱了裤子扑哧的意味。

gxy1000

回复 todaynew 的帖子

做界面用呀！