快速开发平台首页按钮代码及提醒功能代码

时　间:2017-10-16 17:38:08
作　者:张志   ID：8  城市：上海  QQ：2851379730
摘　要:《Access快速开发一日通》课程首页用到的代码，供学员复制、学习用
正　文:

特别提醒：在平台2.X版本后，单击图片打开窗体的功能作了修改，请参考：http://www.accessoft.com/article-show.asp?id=19968

在快速开发平台里，可以在启动后的界面窗体，即：SysFrmMain_HomePage 窗体上放置按钮图片，从而方便操作员通过按钮来打开对应的窗体。那么，在单击事件中可以采用如下代码：

=DoMenuCmd("按钮名称")

在这里使用了 DoMenuCmd函数，具体函数代码如下：

Function DoMenuCmd(MenuText As String)
    Dim MenuID As String
    RunMenuCommand Nz(DLookup("Command", "SysLocalNavigationMenus", "MenuText=" & SQLText(MenuText))), Nothing
    MenuID = Nz(DLookup("ID", "SysLocalNavigationMenus", "MenuText=" & SQLText(MenuText)))
    With Forms!SysFrmMain
        RunDefaultRDPNavMenu MenuID
        !lblNodePath.Caption = .mclsNavTree.GetNodeFullPath(MenuID, " > ")
        !lblNodePath.Visible = True
        If !sfrChild.Top <> !lblNodePath.Top + !lblNodePath.Height Then
            !sfrChild.Height = !sfrChild.Height - !lblNodePath.Height
            !sfrChild.Top = !lblNodePath.Top + !lblNodePath.Height
        End If
    End With
End Function

在课程《Access快速开发一日通》中，用到了提醒功能，提醒功能的代码为：

Public Sub CalRemind()
    Dim x As Long '待审核
    Dim y As Long '待财务确认
    x = DCount("[ID]", "tblExpense", "[Examine]=0")
    y = DCount("[ID]", "tblExpense", "[Accounting]=0")
    If x + y = 0 Then
        Form_SysFrmMain_HomePage!lblRemind.Caption = "( 暂无提醒 )"
    Else
        
        If x > 0 And y = 0 Then
            Form_SysFrmMain_HomePage!lblRemind.Caption = vbNewLine + "待主管审核的明细 (" & x & ") 笔"
        End If
        If x > 0 And y > 0 Then
            Form_SysFrmMain_HomePage!lblRemind.Caption = vbNewLine + "1.待主管审核的明细 (" & x & ") 笔" + vbNewLine + "2.待财务确认的明细 (" & y & ") 笔"
        End If
        If x = 0 And y > 0 Then
            Form_SysFrmMain_HomePage!lblRemind.Caption = vbNewLine + "待财务确认的明细 (" & y & ") 笔"
        End If
        
    End If
End Sub