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

[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

[anestaki]

Καλησπέρα σε όλους
Γιώργο για ακόμη μια φορά πιο σωστός
Τώρα μήπως γνωρίζεις πως μπορούμε να ενημερώνουμε την MenuNodesQuery μόλις προστίθεται μια στήλη στον πινάκα MenuNodes γιατί αυτά είναι βαθιά νερά για έμενα.

SELECT MenuNodes.nodeParent, MenuNodes.nodeKey, MenuNodes.nodeText, 
MenuNodes.nodePictureNormal, MenuNodes.nodePictureExpanded, 
MenuNodes.nodeTag, MenuNodes.noteUsers1, MenuNodes.noteUsers9, MenuNodes.noteUsers12
FROM MenuNodes
ORDER BY MenuNodes.nodeKey;

[kapetang]

Καλησπέρα

Γιώργο, δες ένα παράδειγμα στη συνημμένη ΒΔ

[anestaki]

Γιώργο συγγνώμη δουλεύει κανονικά