[ Ερωτήματα ] Τι κάνω λάθος

[kapetang]

Γιώργο, με τον αρχικό κώδικα τα πεδία ήταν τύπου Yes/No, αλλά δεν εμφάνιζαν το βολικό τετραγωνάκι (CheckBox).

Τον κώδικα που ανέβασες θα μπορούσες να τον διαμορφώσεις και ως εξής:

Private Sub cmdAppend_Click()
    Dim dbs As dao.Database
    Dim tdf As dao.TableDef
    Dim fld As dao.Field
    Dim p As dao.Property
    
    Set dbs = CurrentDb
    Set tdf = dbs.TableDefs("MenuNodes")
    Set fld = tdf.CreateField("noteUsers" & Me.txtInt, dbBoolean)
    fld.DefaultValue = True
    tdf.Fields.Append fld
    Set p = fld.CreateProperty("DisplayControl", dbInteger, 106)
    fld.Properties.Append p
End Sub