Открыть отчет с помощью кнопки на основе значения флажка - PullRequest
0 голосов
/ 21 сентября 2019

У меня есть кнопка, которая уже назначена для открытия отчета.Я хочу, чтобы, когда пользователь установил флажок, я хотел, чтобы действие OnClick кнопки, которую я уже назначил, изменило, чтобы открыть другой отчет.

Поэтому моя логика выглядит следующим образом:

button 1 = docmd.openreport 
when user checkbox = true 
button 1 = docmd.openreport2

Возможно ли это?

Private Sub Check130_Click()
    If Me.Check130.Value = True Then
    Me.Command1871.OnClick() = DoCmd.OpenReport "rptLoansNew", acViewReport, "", "", acNormal
End Sub

Но он показывает синтаксическую ошибку.

На самом деле я не знаю, как этого добиться.

1 Ответ

1 голос
/ 21 сентября 2019

Вы можете сделать что-то вроде этого:

Private Sub YourButton_Click()

    Dim ReportName As String

    If Me!Check130.Value = True Then
        ReportName = "rptLoansNew"
    Else
        ReportName = "rptLoansOld"
    End If
    DoCmd.OpenReport ReportName, acViewReport, "", "", acNormal

End Sub

И переименовать ваши элементы управления во что-то значимое.

...