Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7700 / 9994

←次へ　｜　前へ→


	【5480】Re:テーブルの作成方法

小僧 - 05/6/22(水) 17:20 -


	引用なし

	パスワード

▼小僧さん：
DAOでなんとかできました。

※要参照設定 Microsoft DAO x.x Object Library

Sub DAOで処理()
　　Dim tdfs As DAO.TableDefs
　　Dim tdf As DAO.TableDef
　　Dim flds As DAO.Fields
　　Dim fld As DAO.Field
　　Dim TName As String
　　Dim FName As String
　　
　　TName = "T_Test"
　　FName = "可否"
　　
　　Set tdf = CurrentDb.CreateTableDef(TName)

　　With tdf
　　　　.Fields.Append .CreateField("備考", dbText, 50)
　　　　.Fields.Append .CreateField("配布週", dbText, 255)
　　　　.Fields.Append .CreateField("回収期限", dbText, 255)
　　　　.Fields.Append .CreateField(FName, dbBoolean)
　　End With
　　
　　CurrentDb.TableDefs.Append tdf

　　Set tdfs = CurrentDb.TableDefs
　　Set tdf = tdfs(TName)
　　Set flds = tdf.Fields
　　Set fld = flds(FName)
　　　　fld.Properties.Append fld.CreateProperty _
　　　　　　　　　　　　　("DisplayControl", dbInteger, acCheckBox, True)
　　Set fld = Nothing: Set flds = Nothing
　　Set tdf = Nothing: Set tdfs = Nothing

End Sub

1,297 hits

▼

【5470】テーブルの作成方法 takataka 05/6/22(水) 9:02