No.1ベストアンサー
- 回答日時:
テーブルのフィールドをチェックボックス型にするには、"DisplayControl/表示コントロール" プロパティを設定してやる必要があり、これをVBAで設定するには、DAO(私はADOについては詳しくありませんので、DAOでご容赦ください。
)を使って行います。(DAOを使いますので、はじめにモジュールウィンドウを開いて、ツール→参照設定で、 Microsoft DAO 3.* Object Library がチェックされていないようでしたら、チェックしておいてください。)
以下に、コードを示します。
(せっかくDAOを使いますので、フィールドの追加も ALTER TABLE ではなく、DAOの Append fld で行うようにしています。)
‘各変数を宣言
Dim dbs As DAO.Database, tdf As DAO.TableDef, fld As DAO.Field, prp As DAO.Property
‘変数dbs を現在のデータベースに設定
Set dbs = CurrentDb
‘変数tdf を ”aaaa” テーブルに設定
Set tdf = dbs.TableDefs!aaaa
‘変数fld をブール型のフィールド “bb” とし、”aaaa” テーブルに追加
Set fld = tdf.CreateField("bb", dbBoolean)
tdf.Fields.Append fld
‘変数prp を整数型のプロパティ “DisplayControl” とし、”bb” フィールドに追加
Set prp = fld.CreateProperty("DisplayControl", dbInteger, acCheckBox)
Call fld.Properties.Append(prp)
‘各変数のメモリー領域を開放
Set prp = Nothing
Set fld = Nothing
Set tdf = Nothing
Set dbs = Nothing
ちなみに、DisplayControl プロパティは、明示的に Properties コレクションに追加してやらないとVBAから参照できません(HELPでは、Field オブジェクトのプロパティには載っていません。)ので、Set prp =fld.~ 以下の2行で、追加をしています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- その他(Microsoft Office) excel テーブル 4 2023/03/18 16:11
- Excel(エクセル) 【vba】日付の形式が勝手に変わってしまう。 1 2022/09/29 10:54
- 経営情報システム accessでの請求管理について 12 2022/06/11 16:20
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- SQL Server ACCESSで表が作りたく、そのためのSQL文や設定方法を教えてください。 1 2022/08/15 12:28
- PHP MySql PHP 2つのテーブルをJOINで結合 user_idで抽出 1 2023/01/03 14:04
- Access(アクセス) access フォーム 大分類、小分類 1 2022/08/11 18:03
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
AccessのDAOでフィールド名を配...
-
accessでフィールド追加のあと...
-
ADOX フィールドのRequiredプ...
-
Access 2010で実行時エラー3061
-
クリスタルレポートで困ってい...
-
FTPサーバーから受信したファイ...
-
ノーツ:ユーザ名から別名を取...
-
フィールド名の指定でエラー
-
ACCESSで視覚的タイムテーブル...
-
Access :ALTER TABLE で作成...
-
Accessのフィールド名に半角括...
-
Access クエリで変数を参照する...
-
DataTableに特定のフィールドが...
-
ACCESSのフィールドデータの照...
-
INT64対応のprintf系関数はあり...
-
C#で変数名の取得
-
VB2005のBindingSourceのFilter...
-
NULLを含む文字列の結合で...
-
アクセスでADO 並べ替えが適用...
-
ASP(VBScript)からACCESSデータ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのフィールド名に半角括...
-
DataTableに特定のフィールドが...
-
accessでフィールド追加のあと...
-
INT64対応のprintf系関数はあり...
-
2つ目のレコードの値を取得す...
-
Access 2010で実行時エラー3061
-
日付と文字列を条件としてDLook...
-
AccessのDAOでフィールド名を配...
-
SQLで複数のテーブルと結合した...
-
テーブルのデータ型の変更がで...
-
フィールド名をループの添え字...
-
クリスタルレポート(8.5)の書式...
-
AccessVBAで他テーブルのデータ...
-
アクセスでADO 並べ替えが適用...
-
Accessの画像挿入のVBAコード
-
NULLを含む文字列の結合で...
-
クリスタルレポートで文字列の...
-
ACCESSデータベースにV...
-
ノーツ:ユーザ名から別名を取...
-
Access クエリで変数を参照する...
おすすめ情報