命令按钮与列表框组合的菜单栏示例
时 间:2013-07-25 20:51:22
作 者:沈军 ID:2469 城市:东莞
摘 要:为了更加方便放置功能按钮,并与WINDOWS OFFICE相关程序界面接轨,我们可以利用命令按钮和列表框的组合构成比较完美的菜单体系,其实很简单但非常实用!
正 文:
'以下为源码
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群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access源码示例】VBA...(10.12)
- Access累乘示例,Acce...(10.09)
- 数值8.88,把整数8去掉,转...(10.08)
- 【Access自定义函数】一个...(09.30)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
学习心得
最新文章
- 获取文件修改日期的函数(10.18)
- Access快速开发平台--lis...(10.17)
- Access快速开发平台--普通用...(10.14)
- 【Access源码示例】VBA代码...(10.12)
- Access累乘示例,Access...(10.09)
- 数值8.88,把整数8去掉,转化成...(10.08)
- 用ACCESS开发的销售数据分析软...(10.06)
- 【中秋及国庆优惠】Access培训...(10.05)
- 2024欢度国庆--庆祝国庆华诞7...(10.01)
- 【Access自定义函数】一个繁简...(09.30)