Создание «пузыря уведомлений» в MS Access - PullRequest
Новая
       35

Создание «пузыря уведомлений» в MS Access

0 голосов
/ 31 октября 2018

Я работал над этим некоторое время и не могу понять это. У меня есть домашняя страница в 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

1 Ответ

0 голосов
/ 31 октября 2018

Попробуйте щелкнуть правой кнопкой мыши элемент управления, в котором вы хотите запустить событие On Click, и щелкните Build Event. Это должно привести вас к подпункту Recent_Click в вашем модуле, если нет, ваш элемент управления не связан должным образом, и я бы предложил удалить подпрограмму в вашем модуле, используя метод правой кнопки мыши выше, нажмите на Code Builder, а затем повторно введите код в своем коде .

...