Question

我已经为此工作了一段时间，似乎无法弄清楚。我在Microsoft Access中有一个主页，其中包含许多嵌入子窗体。这些子表单之一是最近的活动提要，类似于您在大多数社交媒体平台上可能看到的内容。它是一个带有选项卡的子来源，带有“近期事件”和“注释”部分。我试图在过去24小时内添加该子表单中的项目时出现“通知气泡”，然后在用户单击相应的选项卡时消失。

“通知气泡”是称为“ recentalert”的图片。目前，气泡仅在满足24小时标准时出现，但是单击相应的选项卡后我无法消失。我尝试了多种格式和不同的事件，但是没有运气。我的代码如下。请帮忙！

    Private Sub Recent_Click()
        If Me.recentalert.Visible = True Then
            Me.recentalert.Visible = False
        End If
    End Sub

    Private Sub Form_Load
        If [Forms]![Navigation Form]![NavigationSub]![Activity Feed]![RAevents_frm].[Form].[today_date] >= Date -1 Then
            Me.recentalert.visible = True
        End If
    End Sub

Answer 1

尝试右键单击您希望在其上触发On Click事件的控件，然后单击Build Event。这应该带您到模块中的“ Recent_Click”子目录，如果不正确，则说明控件未正确链接，建议您使用上面的右键单击方法，单击“代码生成器”，然后重新键入代码，以删除模块中的子目录。

在MS Access中创建“通知气泡”

1 个答案: