Установите имя формы для использования в функциях

Question

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

Set FrmNamn = Forms!Fathantering_Frm

И тогда я вызываю функцию:

Tomt_Formulär

Function Tomt_Formulär()
FrmNamn!Hämta_MätNr.Enabled = False
FrmNamn!Skapa_AvfBesk.Enabled = False
FrmNamn!Lasta_Emb.Enabled = False
End Function

Это прекрасно работает! :)

Теперь я создал форму навигации для всех этих различных форм, и Access не принимает переменную FrmNamn.

Как мне установить FrmNamn? Я пробовал все, но не могу понять: (

Answer 1

Большое вам спасибо, вы направили меня в правильном направлении.Мне пришлось изменить код для установки имени формы на:

Set FrmNamn = Forms!Nav_Hant!NavUnd.Form 

Форма навигации называется «Nav_Hant», а подчиненная форма называется «NavUnd».Похоже, мне не нужно включать форму "Fathantering_Frm", я думаю, что это будет работать.Я проверю это немного больше:)

Answer 2

Передайте его в качестве аргумента:

TomtFormulär(Forms!Fathantering_Frm)

Function TomtFormulär(ByRef frm As Form)

    frm!Hämta_MätNr.Enabled = False
    frm!Skapa_AvfBesk.Enabled = False
    frm!Lasta_Emb.Enabled = False

End Function

Кроме того, избегайте подчеркивания в именах функций.

Для адресации подчиненной формы:

TomtFormulär(Forms!NameOfParentForm!NameOfSubformCONTROL.Form)