データを追加するときに長さ0の文字列でエラーがでるときに。。
とりあえず動く。
Public Function bn(txtBlank As Variant) As Variant
' 長さ0の文字列をNull値に変換
If txtBlank = "" Or IsNull(txtBlank) Then
bn = Null
Else
bn = txtBlank
End If
End Function
データを追加するときに長さ0の文字列でエラーがでるときに。。
とりあえず動く。
Public Function bn(txtBlank As Variant) As Variant
' 長さ0の文字列をNull値に変換
If txtBlank = "" Or IsNull(txtBlank) Then
bn = Null
Else
bn = txtBlank
End If
End Function