| |
▼独覚 さん：
>▼kok さん：
>私ならば年度を追加するような定型業務はそれこそVBAでやらせちゃいますが。
>例えばフォームで追加する年度を入力させて顧客マスタをもとに追加クエリで
>まとめて追加とか。
>
>少なくとも新年度を追加する分にはテーブル構造を変更したほうが楽だと思いますが。
ご無沙汰しております。
別件で少し手が回らくなってしまい、返事のお返しが遅くなり申し訳ございません。
前回からいろいろネットで調べた結果、下記のようなVBAを見つけ、実行したらできました。
Private Sub 登録ボタン_Click()
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim prp As DAO.Property
Set dbs = CurrentDb
Set tdf = dbs.TableDefs!T発送
Set fld = tdf.CreateField(項目追加, dbBoolean)
tdf.Fields.Append fld
Set prp = fld.CreateProperty("displaycontrol", dbInteger, acCheckBox)
Call fld.Properties.Append(prp)
Set prp = Nothing
Set fld = Nothing
Set tdf = Nothing
Set dbs = Nothing
End Sub
ただ、この形で進めていくと別の問題が発生してしまいました。
後日、改めて質問させていただきたいと思います。
遅ればせながらありがとうございました。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
