Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
601 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11004】テーブルの数値型 　デフォルト値の変更 なか 09/2/18(水) 11:03 質問[未読]
【11005】Re:テーブルの数値型 　デフォルト値の変更 トト 09/2/18(水) 14:31 回答[未読]
【11006】Re:テーブルの数値型 　デフォルト値の変更 なか 09/2/18(水) 17:04 お礼[未読]
【11004】テーブルの数値型 　デフォルト値の変更
質問  なか  - 09/2/18(水) 11:03 -
引用なし
パスワード
   いつもお世話になっております。

ACCESSの複数のテーブルにある数値型に全てデフォルト値「0」がついてます。
そのデフォルト値をなくしたいのですが、一括で変更する方法またはクエリはありますか？

恐れ入りますが、何卒宜しくお願いいたします。
【11005】Re:テーブルの数値型 　デフォルト値の変...
回答  トト  - 09/2/18(水) 14:31 -
引用なし
パスワード
   ▼なか さん：
バックアップを取ってから実行してください。

Private Sub sub_tabledefault()
　　Dim myDB As DAO.Database
　　Dim myTD As DAO.TableDef
　　Dim myFld As DAO.Field
　　
　　Set myDB = CurrentDb
　　Set myTD = myDB.TableDefs("TABLE-A")　　'変更したいテーブル
　　
　　For Each myFld In myTD.Fields
　　　　If myFld.DefaultValue = 0 Then　　　'規定値が 0 なら
　　　　　　myFld.DefaultValue = ""　　　　 '規定値を""に
　　　　End If
　　Next myFld
　　
　　Set myTD = Nothing
　　Set myDB = Nothing
End Sub

複数テーブルに対して行うのであれば、テーブル名を変数等に
格納してLoop等で実施して下さい。
【11006】Re:テーブルの数値型 　デフォルト値の変...
お礼  なか  - 09/2/18(水) 17:04 -
引用なし
パスワード
   ▼トト さん：

ご返信、ありがとうございます。
早速、試させていただきます。

本当にありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
601 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078197
(SS)C-BOARD v3.8 is Free