Tips150 - 新規にYes/No型フィールド（列）を追加する ALTER TABLE ADD COLUMN BIT

引き続きYes/No型のフィールドを追加します。

構文例：
SQL = "ALTER TABLE テーブル名 ADD COLUMN 追加するフィールド名 BIT"
CurrentDb.Execute SQL, dbFailOnError

使用例：顧客テーブルに性別フィールドを追加します。
SQL = "ALTER TABLE 顧客 ADD COLUMN 性別 BIT"
CurrentDb.Execute SQL, dbFailOnError

Tips149 - 新規にテキスト型フィールド（列）を追加する ALTER TABLE ADD COLUMN TEXT()

前回に引き続きテキスト型のフィールドを追加します。

構文例：
SQL = "ALTER TABLE テーブル名 ADD COLUMN 追加するフィールド名 TEXT(フィールドサイズ)"
CurrentDb.Execute SQL, dbFailOnError

使用例：顧客テーブルに出身地フィールドを追加します。
SQL = "ALTER TABLE 顧客 ADD COLUMN 出身地 TEXT(30)"
CurrentDb.Execute SQL, dbFailOnError

Tips148 - 新規に倍精度浮動小数点数型フィールド（列）を追加する ALTER TABLE ADD COLUMN DOUBLE

前回に引き続き小数点型のフィールドを追加します。

構文例：
SQL = "ALTER TABLE テーブル名 ADD COLUMN 追加するフィールド名 DOUBLE"
CurrentDb.Execute SQL, dbFailOnError

使用例：製品カタログテーブルに重量フィールドを追加します。
SQL = "ALTER TABLE 製品カタログ ADD COLUMN 重量 DOUBLE"
CurrentDb.Execute SQL, dbFailOnError

Tips147 - 新規に整数型フィールド（列）を追加する ALTER TABLE ADD COLUMN INTEGER

データベースをカスタマイズする際、現在のデータをそのままでフィールドを追加する場合があります。
ここでは整数型の数値フィールドを追加します。

構文例：
SQL = "ALTER TABLE テーブル名 ADD COLUMN 追加するフィールド名 INTEGER"
CurrentDb.Execute SQL, dbFailOnError

使用例：顧客管理テーブルに年齢フィールドを追加します。
SQL = "ALTER TABLE 顧客管理 ADD COLUMN 年齢 INTEGER"
CurrentDb.Execute SQL, dbFailOnError

Tips146 - 空き番号の最小値を取得する MIN・サブクエリ

連番の場合、データが削除されると空き番号が発生します。
新規にデータを追加した時、その番号を使いたい場合があります。
その番号を取得する方法です。
オートナンバー型の場合、取得はできますが変更はできません。
空き番号がない場合、MAX値＋1が返ります。

構文例：
SQL = "SELECT MIN(フィールド名+1) FROM テーブル名 WHERE フィールド名+1 NOT IN (SELECT フィールド名 FROM テーブル名)"
Set rs = CurrentDb.OpenRecordset(SQL)

使用例：
SQL = "SELECT MIN(製品コード+1) FROM 製品管理 WHERE 製品コード+1 NOT IN (SELECT 製品コード FROM 製品管理)"
Set rs = CurrentDb.OpenRecordset(SQL)