AccessでテーブルにIDというフィールドを追加するＶＢＡ

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

今回はAccess VBAについて発信させてください。
こういったプログラム系統は何を実現したいかを強く頭に描くことが実現への第一歩につながります。
少しずつ発信していってその手助けができれば幸いだと思っています。
今回はAccessでT_○○にIDというフィールドを追加し、さらにデータ型をCounter（オートナンバー型）するＶＢＡについてです。さらにフィールド名を変更するＶＢＡも紹介します。

Option Compare Database						
Option Explicit						
						
sub フィールドを追加しフィールド名を変更する()						
Dim dbs As Database						
						
CurrentProject.Connection.Execute _						
        CommandText:="Alter Table T_○○ " _						
                   & "Add Column ID Counter; "	'①	
												
Set dbs = CurrentDb						
						
'ここでテーブル名を指定します						
With dbs.TableDefs(" T_○○ ")						
'現在のフィールド名（左辺）と新しい名前（右辺）を列挙します。						
    .Fields(8).Name = "F9"		'②
    .Fields.Refresh			'③
End With						
						
Set dbs = Nothing						
						
End Sub

①は T_○○にIDというフィールドを追加し、さらにデータ型をCounter（オートナンバー型）するＶＢＡです。
②は現在のフィールド名（左辺）と新しい名前（右辺）を列挙します。例だと９番目のフィールドにF9という名前を付けます。
③は②の内容を更新します。

以上、T_○○にIDというフィールドを追加し、さらにデータ型をCounter（オートナンバー型）にするＶＢＡについてです。さらにフィールド名を変更するＶＢＡでした。次回もまたよろしくお願いします。

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

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

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

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

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

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

クラッチエンジニア

コメントを残す コメントをキャンセル

コメントを残すコメントをキャンセル