過去ログ

                                Page     498
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼空白データの加工  ひろ 04/2/1(日) 1:18
   ┗Re:空白データの加工  クロ 04/2/1(日) 11:58

 ───────────────────────────────────────
 ■題名 : 空白データの加工
 ■名前 : ひろ <mura_hiroyuki@yahoo.co.jp>
 ■日付 : 04/2/1(日) 1:18
 -------------------------------------------------------------------------
   あるテーブルの空データに任意の文字を挿入したいのです。そこで下記VBAをつくったのですがうまくいきません。おしえてください

Dim DB As Database
Dim strFldName As String
Dim tdf As TableDef
Dim fld As Field
Set DB = CurrentDb
Set tdf = DB.TableDefs("テーブルA")
For Each fld In tdf.Fields
strFldName = fld.Name
DB.Execute "UPDATE SP2_空白FLD SET " & _
 "'" & strFldName & "'= '任意の文字' " & _
 "WHERE ( '" & strFldName & "' Is Null)"(SQLまちがってますか?)
Next fld

以上ですが

ちなみに文字列、数値列混合のテーブルも同様の加工を行うとしたらどうしたら
いいでしょうか?

 ───────────────────────────────────────  ■題名 : Re:空白データの加工  ■名前 : クロ  ■日付 : 04/2/1(日) 11:58  -------------------------------------------------------------------------
   strFldNameに「'」は要らないのでは?

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 498