Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-视频教程

《Access快速开发基础教程》免费视频(13)

时 间:2022-05-22 08:56:27
作 者:张志   ID:8  城市:上海  QQ:2851379730点击这里给张志发消息
摘 要:《Access快速开发基础教程》第13课 2.3首页图标按钮设计
正 文:

首页图标按钮设计

    通过图片按钮方便用户执行相应的功能(例如打开窗体、报表、执行特定的操作等),在窗体SysFrmMain_HomePage的基础上来完成首页功能的设计。

    上一章资料管理的学习,已开发【账号密码】和【扫描件】管理两个功能。当前是通过双击导航菜单中的项目来打开相应的窗体,接下来我们在导航菜单右边的窗口,设计两个图片按钮,实现同样的打开对应菜单的功能,因为图片菜单更醒目一些,可以将重要的常用操作,放置在主窗口。


相关代码

Function DoMenuCmd(MenuText As String)
    On Error GoTo ErrorHandler
    Dim strMenuID As String
    strMenuID = Nz(DLookup("ID", "SysLocalNavigationMenus", "MenuText=" & SQLText(MenuText)))
    If IsChildForm(Me) Then
        Call Me.Parent.DoTreeMenuItemAction(Me.Parent.mclsNavTree.Nodes("K" & strMenuID))
    Else
        RunMenuCommand "" & DLookup("Command", "SysLocalNavigationMenus", "ID='" & strMenuID & "'")
    End If
ExitHere:
    Exit Function
ErrorHandler:
    MsgBoxEx Err.Description, vbCritical
    Resume ExitHere
End Function

视频讲解

    点击:https://m.qlchat.com/wechat/page/topic-intro?topicId=2000016584815044   (打开网页后用微信扫描登录)



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助