命令按钮与列表框组合的菜单栏示例-沈军
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> 源码示例


命令按钮与列表框组合的菜单栏示例

发表时间:2013/7/25 20:51:22 评论(6) 浏览(11704)  评论 | 加入收藏 | 复制
   
摘 要:为了更加方便放置功能按钮,并与WINDOWS OFFICE相关程序界面接轨,我们可以利用命令按钮和列表框的组合构成比较完美的菜单体系,其实很简单但非常实用!
正 文:

点击下载此附件(Accdb格式)

点击下载此附件(mdb格式)

 


'以下为源码

Option Compare Database
Dim Tts As Long
Private Sub Command24_Click()
    On Error Resume Next
    If Me.菜单栏1.Visible = False Then
        Me.菜单栏1.RowSource = "·添加新记录;·删除当前记录; ───────────;·转到最前记录;·转到下一记录;·转到上一记录;·转到最后记录; ───────────;·设置状态完成与否;"
        Me.菜单栏1.Visible = True
        Me.菜单栏1.Width = 2150
        Me.菜单栏1.Left = Me.Command24.Left
        Me.菜单栏1.Height = Me.菜单栏1.ListCount * 235 + 30
        Me.菜单栏1.SetFocus
        Me.菜单栏1.Value = Null
    Else
        Me.菜单栏1.Visible = False
    End If
    Command24.SetFocus
End Sub
Private Sub Command88_Click()
    On Error Resume Next
    If Me.菜单栏1.Visible = False Then
        Me.菜单栏1.RowSource = "·预览打印当前日程计划;·预览打印所有日程计划;──────────────;·关闭;·退出"
        Me.菜单栏1.Visible = True
        Me.菜单栏1.Width = 2350
        Me.菜单栏1.Left = Me.Command88.Left
        Me.菜单栏1.Height = Me.菜单栏1.ListCount * 235 + 10
        Me.菜单栏1.SetFocus
        Me.菜单栏1.Value = Null
    Else
        Me.菜单栏1.Visible = False
    End If
    Command88.SetFocus
End Sub
Public Function sjYC()
    Me.菜单栏1.Visible = False
End Function
Public Function SelectAfterUpdate()
    On Error Resume Next
    If Me.菜单栏1.ListIndex >= 0 Then
        Select Case Me.菜单栏1
        Case "·添加新记录"
            DoCmd.GoToRecord , , acNewRec
        Case "·删除当前记录"
            If Not IsNull(Me.日程ID) Then
                Tts = MsgBox("确定要删除当前的记录吗?", 36, "删除")
                If Tts = 6 Then
                    DoCmd.RunCommand acCmdSelectRecord
                    DoCmd.RunCommand acCmdDeleteRecord
                End If
            End If
        Case "·转到最前记录"
            DoCmd.GoToRecord , , acFirst
        Case "·转到下一记录"
            DoCmd.GoToRecord , , acNext
        Case "·转到上一记录"
            DoCmd.GoToRecord , , acPrevious
        Case "·转到最后记录"
            DoCmd.GoToRecord , , acLast
        Case "·设置状态完成与否"
            If 完成 = -1 Then
                完成 = 0
                完成时间 = Null
            Else
                完成 = -1
                完成时间 = Now()
            End If
        Case "·预览打印当前日程计划"
            Tts = MsgBox("功能模块还未制作好!", 48, "日程管理")
        Case "·预览打印所有日程计划"
            Tts = MsgBox("功能模块还未制作好!", 48, "日程管理")
        Case "·关闭"
            DoCmd.Close
        Case "·退出"
            DoCmd.Quit
        End Select
        Me.日期.SetFocus
        Me.菜单栏1.Visible = False
    End If
End Function
Private Sub 完成_AfterUpdate()
    If 完成 = -1 Then
        完成时间 = Now()
    Else
        完成时间 = Null
    End If
End Sub




Access软件网交流QQ群(群号:198465573)
 
 相关文章
十个步骤实现自定义菜单栏   【竹笛  2004/4/11】
一个简单的显示/隐藏菜单栏源码  【qing  2009/7/14】
自定义菜单栏和工具栏的程序范例(新修改)  【wqm099  2010/3/20】
隐藏菜单栏上的提问框\隐藏提问栏  【咱家是猫  2010/4/2】
Access列表框联动示例  【陈慧超  2013/5/8】
Access文本框列表框代替组合框的联动查询  【在水一方  2013/6/25】
常见问答
技术分类
相关资源
文章搜索
关于作者

沈军

文章分类

文章存档

友情链接