テーブル作成クエリーで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