| |
>Caption プロパティは、作らないと有りません（既定では存在しない）。
>CreateProperty で作成してから値を代入する必要があります。
>ヘルプに解説と使用例が有りますので、参照してみてはいかがでしょうか。
>
>ちなみに、手前味噌で恐縮ですが、関連リンク。
>
>http://www.f3.dion.ne.jp/~element/msaccess/AcTipsTblChangeFieldProperty.html
只今少し模索中ですが、とりあえず下記のようなコマンドになりました。
手前味噌ですが、ご参考ください。
Function Moju_標題IME設定()
Dim Prty As Property
Dim STname As String
Dim Ctlg As New ADOX.Catalog
STname = "テーブル名"
' 表名、フィールド情報
Dim db As DAO.Database
Dim tbDef As DAO.TableDef
Dim fld As DAO.Field
Dim lCount As Long
Set db = CurrentDb
Set tbDef = db.TableDefs(STname)
'標準で用意されていないので、このプロパティを作る
For lCount = 0 To tbDef.Fields.Count - 1
Set fld = tbDef.Fields(lCount)
Set Prty = fld.CreateProperty("Caption", dbText, "標題")
fld.Properties.Append Prty
Next
For lCount = 0 To tbDef.Fields.Count - 1
If dbText = (tbDef.Fields(lCount).Type) Then
With tbDef.Fields(lCount)
.Properties("IMESentenceMode") = 3
.Properties("IMEMode") = 3 '３ コントロールなしに
.Properties("Caption") = "おもて"
End With
End If
Next lCount
'テーブル作成
Set tbDef = db.CreateTableDef("フォルダ指定")
With tbDef
.Fields.Append .CreateField("Ftx1", dbText, 5)
.Fields.Append .CreateField("Ftx2", dbText, 6) '
End With
Set tbDef = Nothing
TBLdb.Close
End Function
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
- 05/5/18(水) 15:38 -
- 05/5/19(木) 0:06 -
