Как решить «Ошибка времени выполнения: требуется 424 объекта» в коде расчета расстояния

Question

Я скопировал этот код из https://www.geodatasource.com/developers/vb и пытаюсь использовать его в ms-access для вычисления расстояния между двумя наборами широты и долготы (которые находятся в текстовых полях).Желательно показать результат в подчиненной форме, но я не уверен, возможно ли это.Если нет, я бы хотел вставить результат расчета в текстовое поле, нажав кнопку.Новое в кодировании, любая помощь приветствуется.

код с ошибкой

остаток кода

Answer 1

Ссылка на вопрос VB-код.VB похож на VBA.Придется изменить.Удалите строки response.write или используйте вместо этого Debug.Print.

Функция может быть вызвана выражением в текстовом поле свойства ControlSource.Результат не будет сохранен в записи.
=distance([txtJobLat], -96.80322, 29.46786, -98.53506, "M") & " Miles"

Код события может установить значение текстового поля.Если текстовое поле привязано к полю, вычисленный результат будет сохранен в записи.Событие клика зависит от пользователя.Если вы хотите убедиться, что значение сохранено в записи, используйте другое событие для автоматизации, например, форму BeforeUpdate или Close.
Me.textboxname = distance(Me.txtJobLat, -96.80322, 29.46786, -98.53506, "M") & " Miles"