VBA访问数据类型不匹配

Question

我在访问数据库中使用以下代码收到数据类型不匹配错误。

If IsNull(NewZipBox) = False Then
DoCmd.RunSQL ("UPDATE ShipAddressTest SET Zip = NewZipBox WHERE [ShipAddressTest.Zip]= '" &      Me.List90.Column(5) & "';")
End If

我将字段Zip设置为数字数据类型。当我将其更改为文本时，此错误消失。任何人都可以解释为什么我会收到这个错误以及我可以做些什么呢？

我会提供您需要的任何其他信息。

Answer 1

NewZipBox输入是字符串数据（文本），因此如果将其分配给声明为数字（整数？）数据类型的变量，则这就是发生不匹配错误的原因。您可以使用CInt（）函数转换输入文本，然后再将其分配给Zip。