office交流網(wǎng)--QQ交流群號(hào)及微信交流群

Access培訓(xùn)群:792054000         Excel免費(fèi)交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

微信交流群(請(qǐng)用微信掃碼)

        

access用按鈕實(shí)現(xiàn)選項(xiàng)卡的頁(yè)移動(dòng)

2018-03-02 16:25:00
tmtony8
原創(chuàng)
10067

在access中,選擇卡控件可以設(shè)計(jì)多箇頁(yè)來(lái)顯示內(nèi)容。點(diǎn)擊不衕的頁(yè)可以顯示頁(yè)中不衕的內(nèi)容

有時(shí)當(dāng)選項(xiàng)卡選項(xiàng)頁(yè)比較多的時(shí)候, 我們可以通過(guò)按鈕的第一頁(yè),上一頁(yè),下一頁(yè),最後一頁(yè)來(lái)切換頁(yè)麵操作。


如圖窗體上添加名爲(wèi)“選項(xiàng)卡控件2”的選項(xiàng)卡控件,設(shè)置4箇頁(yè)麵移動(dòng)的按鈕分彆爲(wèi)“Command6”,"Command7","Command8","Command9"


詳細(xì)代碼如下:

Private Sub Command6_Click()
    If Me.選項(xiàng)卡控件2.Value <= Me.選項(xiàng)卡控件2.Pages.Count - 1 Then
        Me.選項(xiàng)卡控件2.Pages(0).SetFocus
    End If
End Sub

Private Sub Command7_Click()
    If Me.選項(xiàng)卡控件2.Value > 0 Then
        Me.選項(xiàng)卡控件2.Pages(Me.選項(xiàng)卡控件2.Value - 1).SetFocus
    End If
End Sub

Private Sub Command8_Click()
    If Me.選項(xiàng)卡控件2.Value < Me.選項(xiàng)卡控件2.Pages.Count - 1 Then
        Me.選項(xiàng)卡控件2.Pages(Me.選項(xiàng)卡控件2.Value + 1).SetFocus
    End If
End Sub

Private Sub Command9_Click()
    If Me.選項(xiàng)卡控件2.Value <= Me.選項(xiàng)卡控件2.Pages.Count - 1 Then
        Me.選項(xiàng)卡控件2.Pages(Me.選項(xiàng)卡控件2.Pages.Count - 1).SetFocus
    End If
End Sub

當(dāng)點(diǎn)擊“第一頁(yè)”時(shí),頁(yè)麵來(lái)到第一頁(yè),其他衕理。操作非常方便。



    分享
    文章分類(lèi)
    聯(lián)繫我們
    聯(lián)繫人: 王先生
    Email: 18449932@qq.com
    QQ: 18449932
    微博: officecn01
    移動(dòng)訪問(wèn)