2016-04-28 10 views
1

AccessDBからいくつかの大きなテーブルを問題なくバックエンドデータベースに分割しました。リンクテーブルのOpenRecordset?

次に、さまざまな面倒な文字を置き換えるためにレコードセットを開く必要があります。次のスニペットは、テーブルがローカルのときにうまくいきましたが、Accessはテーブルがリンクされているので不平を言いますが、詳細は表示されません。

Dim rs3 As DAO.Recordset 

'Step thru the Item table fix ' & " characters 
Set rs3 = db.OpenRecordset("Item", dbOpenTable) 
Do While Not rs3.EOF 
    strDesc = Replace(Nz(rs3!DESC), Chr(39), Chr(39) & Chr(39)) 
    strDesc = Replace(Nz(rs3!DESC), Chr(34), "") 
    rs3.MoveNext 
Loop 
Set rs3 = Nothing 

リンクされたテーブルでこのタスクを達成するための提案はありますか?

+0

する2' UPDATE'文の実行を検討します"[DESC] ALIKE '%"%'; ' – HansUp

答えて

1

dbOpenTableは、ローカルテーブルでのみ使用できます。リンクされたテーブルでは使用できません。 `UPDATE [商品] SET [DESC] =置き換え([DESC]、 "'"、 " ''")[DESC]同様に、「%」%

'Set rs3 = db.OpenRecordset("Item", dbOpenTable) 
Set rs3 = db.OpenRecordset("Item") 
+0

ありがとう、それはうまく動作します! –

関連する問題