テーブル作成クエリーでYes/No型のフィールドを作成する際の注意点

CREATE TABLE や CreateTableDefメソッドでYes/No型のフィールドを作成したときは
デフォルト設定として表示コントロールはTextBoxとなってしまいます。(チェックボックスでなく0,-1の表現)

マイクロソフトサポート情報

表示コントロールをチェックボックスにしたい場合は、フィールドのDisplayControlプロパティーを設定する必要があります。

On Error Resume Next
Dim objPrp As DAO.Property 'DAO.Propertyで明示的に宣言すること
Set objPrp = objField.Properties("DisplayControl")
If Err.Number = 3270 Then
    'プロパティが存在しない場合はプロパティを作成する
    On Error GoTo SysError_Handler
    Err.Clear
    Set objPrp = objField.CreateProperty("DisplayControl", dbInteger, acCheckBox)
    objField.Properties.Append objPrp
End If

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です