使用函数重新格式化邮政编码

Question

我正在使用下面的函数尝试重新格式化“ ZIP_CD”字段中所有仅显示4位数字的值，以包括前导零。该功能如下。当我逐步执行该功能时，它会按预期工作。当我在查询中使用它时，我逐步执行它，似乎输出了我要查找的内容（适当时前导零）。但是，当我运行查询时，它询问我是否要更新所有行。然后我看一下表，每条记录中的每个ZIP_CD值都是空白。我不知道为什么要这么做。任何帮助将非常感激。

Option Compare Database

Function EditLeadingZeroes(ZipCode As String)
    If Len(ZipCode) < 5 Then
        ZipCode = Format(ZipCode, "00000")
    Else
        ZipCode = ZipCode
    End If
End Function