Accessでテーブルのデータ型を変更するVBA


こんにちは脇村です。僕のブログでは、本業での実務上のEXCEL、ACCESSマクロ&VBAの使えそうなコードの紹介、コールドリーディングの実践例、人生の難易度を下げる方法、自己啓発コラム最近読んでいいなと思った本等について、主に発信していきたいと思っています。

今回はAccess VBAについて発信させてください。
こういったプログラム系統は何を実現したいかを強く頭に描くことが実現への第一歩につながります。
少しずつ発信していってその手助けができれば幸いだと思っています。
今回はAccessでテーブルのデータ型を変更するVBAについてです。

Option Compare Database	
Option Explicit	
	
Sub テーブルのデータ型を変更()	
	
'テキスト型 …TEXT	
'数値型 …NUMBER	
'通貨型 …CURRENCY	
'日付/時刻型 …DATE	
オートナンバー型 …COUNTER	
	
CurrentDb.Execute "ALTER TABLE TEIANデータ ALTER COLUMN 納品開始日 DATE"	
CurrentDb.Execute "ALTER TABLE TEIANデータ ALTER COLUMN 納品終了日 DATE"	
CurrentDb.Execute "ALTER TABLE TEIANデータ ALTER COLUMN 在庫番号呼出コード5 NUMBER"	
CurrentDb.Execute "ALTER TABLE TEIANデータ ALTER COLUMN 呼出名称6 NUMBER"	
CurrentDb.Execute "ALTER TABLE TEIANデータ ALTER COLUMN 在庫番号 NUMBER"	
CurrentDb.Execute "ALTER TABLE TEIANデータ ALTER COLUMN 自社商品コード NUMBER"	
CurrentDb.Execute "ALTER TABLE TEIANデータ ALTER COLUMN 枝コード NUMBER"	
	
End Sub	
																																																										

例えば、TEIANデータというテーブルの納品開始日フィールドをDATE型に変更します。上記の5つのデータ型だけ覚えれば十分でしょう。

以上、テーブルのデータ型を変更するVBAでした。次回もまたよろしくお願いします。

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
今回の記事はこれで締め切らせていただきます。 脇村の日常で役に立つ技術ー雑記ブログ記事、次回もよろしくお願い致します。

末筆ながら、本サイトのカテゴリーごとの記事です。
各記事の一番下の方に、関連記事のリンクが貼ってあるので、興味があれば参照お願い致します。
せどりで月商70万円達成する方法(ノーブランド品)
ダイナマイトモチベーションDM6「自分を愛すること」
日常のつぶやき―脇村(24年2月14日)
今の時代に必要な考え方(人間関係のトラブルを防ぐ方法)
コールドリーディング実践例その48
コールドリーディング講義(コールドリーディングの使えるフレーズ集)
おすすめ本「君しかいない!と言われる人になる」
今の時代を生き抜くために-脇村( 正社員と非正社員はどちらが得か)
Excel VBA L列規格半角文字にするVBA
電話占いの現場での嫌な質問が来た時について

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

  • Kindle本 (電子書籍)も出版しております。

タイトル:人生の難易度を下げる知識・思考法2: テクニックの前にマインドセットが重要
リンク: https://www.amazon.co.jp/dp/B0D9ZKZF88/
タイトル:人生の難易度を下げる知識・思考法!ストレスを減らして楽になる
リンク: https://www.amazon.co.jp/dp/B0DK5TLVC8/
タイトル:どんな女も口説き落とす話術!コールドリーディングの秘技
リンク: https://www.amazon.co.jp/ebook/dp/B0DD8R2SP5/

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆

アクセルファクター

関連記事
Accessでテーブルに主力キーを2つ設定するVBA
AccessでDoCmd.TransferDatabaseメソッドで自DBへテーブルをエクスポートするVBA
Accessで本体右上の×を無効するVBA
Accessでフォームに変更した内容を保存するVBA
AccessでEXCELの最終行は指定しないでインポートする時のVBA
AccessでCSVを指定してインポートする時のVBA
Accessでカンマ区切りのCSVを書き出す時のVBA


コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

CAPTCHA