Создать БД, а в ней таблицу (уперся в мелкие шероховатости)

Пятница, 03 Июня 2016 г. 14:52 + в цитатник

Шероховатости есть в комментах:
1. Окно акцеса мелькает, Visible как-то не сработал...
2. Как счетчик сделать ключом?
3. Как созданное логическое поле оформить с галочкой?

Private Sub Кнопка2_Click()
Dim appAccess As Access.Application
Dim dbs As Object, tdf As Object, fld As Variant
Dim strDB As String

    strDB = "C:\db1.mdb"
    Set appAccess = CreateObject("Access.Application")
    appAccess.Visible = False                'не помогает, окно всё равно мелькает
    
    appAccess.NewCurrentDatabase strDB
    Set dbs = appAccess.CurrentDb
    Set tdf = dbs.CreateTableDef("t1")

    Set fld = tdf.CreateField("id", dbLong)
    fld.Attributes = dbAutoIncrField         'что нужно добавить, чтобы стало не только счетчиком, но и ключом ??
    tdf.Fields.Append fld

    Set fld = tdf.CreateField("name", dbText, 255)
    tdf.Fields.Append fld
    
     Set fld = tdf.CreateField("chekbox1", dbBoolean)   ' принимает естественно 0 и -1 как сделать чтоб визуально маячила галочка?
    tdf.Fields.Append fld
    
    dbs.TableDefs.Append tdf
    Set appAccess = Nothing
    
End Sub