如何解决“运行时错误：424所需的对象”的距离计算代码

Question

我复制从https://www.geodatasource.com/developers/vb此代码，我试图用它在MS-访问计算两组纬度和经度（这是在文本框）之间的距离。最好，我想显示的结果子窗体，但我不知道这是可能的。如果不是这样，我想通过点击一个按钮来计算的结果插入一个文本框。新来编码，任何帮助表示赞赏。

错误代码行

代码休息

Answer 1

有问题的链接是VB代码。 VB类似于VBA。必须修改。取出的Response.Write线或使用Debug.Print来代替。

功能可以通过在文本框控件属性的表达被调用。结果将不会被保存记录。 =distance([txtJobLat], -96.80322, 29.46786, -98.53506, "M") & " Miles"

事件代码可以设置文本框的值。如果文本框绑定到外地，计算出的结果将被保存到记录。点击事件依赖于用户。如果你想确保值保存到记录，使用一些其他事件自动化，如表单前或关闭。 Me.textboxname = distance(Me.txtJobLat, -96.80322, 29.46786, -98.53506, "M") & " Miles"