Как решить ошибку 438 времени выполнения при попытке создать простой код VBA, который извлекает данные из подчиненной формы доступа?

Question

Когда я нажимаю кнопку «Рассчитать итоги» (которая работала до вчерашнего дня), я получаю сообщение об ошибке времени выполнения 438. Объект не поддерживает это свойство или метод. Как мне решить эту проблему?

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

Private Sub Command91_Click()

Me.Plates = Me.MealPlannerSubformsf!TotalMeals
Me.MealSubtotal = Me.Plates * Me.MealRate
Me.Sleeps = Me.LodgingDetailsSubformsf!TotSleepers
Me.LodgingSubtotal = Me.Sleeps * Me.LodgingRate
Me.ExpectedTotal = Me.MealSubtotal + Me.LodgingSubtotal + Me.ReservationFee

End Sub

Answer 1

Вы должны обращаться к элементам управления с помощью подчиненной формы * Форма свойство:

Private Sub Command91_Click()

Me.Plates = Me.MealPlannerSubformsf.Form!TotalMeals
Me.MealSubtotal = Me.Plates * Me.MealRate
Me.Sleeps = Me.LodgingDetailsSubformsf.Form!TotSleepers
Me.LodgingSubtotal = Me.Sleeps * Me.LodgingRate
Me.ExpectedTotal = Me.MealSubtotal + Me.LodgingSubtotal + Me.ReservationFee

End Sub