Emptyだとなんでダメなのでしょうか？

質問

Sub Sample()

Dim cat As ADOX.Catalog
Dim clm As ADOX.Column
Dim cn As New ADODB.Connection
Dim myTable As String
Dim SQL As String

myTable = "T_会社名"

Set cat = CreateObject("ADOX.Catalog")
Set cn = CurrentProject.Connection
cat.ActiveConnection = cn

For Each clm In cat.Tables(myTable).Columns
cn.Execute "UPDATE T_会社名 SET T_会社名.店名 = Replace([T_会社名]![店名],Chr(10),Empty) WHERE (T_会社名.店名=Chr(10));"
Next clm

cn.Close: Set cn = Nothing
End Sub

上記の様に、Emptyだと
実行時エラー　-2147217904
1つ以上の必要なパラメーターの値が設定されていません。
と言うエラーになります。

しかし、Emptyを""""にすると問題なく実行できます。

回答No.1

notnot · ベストアンサー

Emptyはバリアント型の定数で、空文字列 "" とは異なります。
replaceでは文字列を指定します。

お礼

ありがとうございました。