MS Access调用函数

Question

我正在为Access中的俱乐部会员编写一个程序。单元格1将包含一个数字，单元格2将包含罗马数字的单元格1。

我有一个函数可以转换数字，但是在将单元格1值转换为函数并将答案转换为单元格2时遇到了问题。函数的开头是

Public Function RomanNumeral(ByVal aValue As Long) As String

以

结束

RomanNumeral = strResult 

如果有人可以提供帮助，我会很高兴

Answer 1

好的，这将是一个计算字段。为此，您使用=myFunction()作为ControlSource。

在您的情况下，如果数字字段的名称为myNumber，请将其用于罗马数字字段：

=RomanNumeral([myNumber])

修改

如果您不想要计算字段，而是表格中的字段，请为数字字段创建 AfterUpdate 事件过程，您可以在其中设置第二个字段：

Private Sub myNumber_AfterUpdate()
    ' Use Nz to avoid runtime error when myNumber is NULL
    Me!RomanNumber = RomanNumeral(Nz(Me!myNumber, 0))
End Sub