Ошибка «Требуется объект» при вызове подпрограммы другой формы - PullRequest
Новая
       16

Ошибка «Требуется объект» при вызове подпрограммы другой формы

0 голосов
/ 01 октября 2019

Я пытаюсь вызвать форму Private Sub из другой формы, и когда я запускаю ее, я получаю Run-time error 424: Object Required. Код ошибки: Call frm_Main.add_arg(filt_key, filt) в конце: 

Private Sub btn_go_to_pat_Click()

Dim filt_key As String
Dim filt As String

filt_key = "cont_hist_filter"
filt = "MRN = " & Me.MRN

DoCmd.OpenForm "frm_Main"
Call frm_Main.add_arg(filt_key, filt)

End Sub

Целевой сабвуфер: 

Public Sub add_arg(arg_key As String, arg_value As String)

MsgBox "Received arg_key " & arg_key & " with value " & arg_value

my_args.Add arg_key, arg_value

End Sub

1 Ответ

1 голос
/ 01 октября 2019

Имя класса формы - Form_<form name>, как вы видите его в Project Explorer в VBE.

Так что вам нужно 

Call Form_frm_Main.add_arg(filt_key, filt)

или 

Dim fMain As Form_frm_Main
Set fMain = Forms!frm_Main
Call fMain.add_arg(filt_key, filt)
...