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

[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]

Καλημέρα Γιώργο και χρόνια μας πολλά
Βλέπω ότι το ξενυχτάς έμενα η δουλεία μου δεν μου επιτρέπει ξενύχτια και δεν μπόρεσα να δω το ποστ.
Τελικά ο λαβύρινθος γίνεται ακόμη πιο δαιδαλώδης και όπως φαίνεται είσαι η μονή βοήθεια που έχω σε αυτόν.
Μη ξέροντας αγγλικά και με το Google δεν καταλαβαίνω και πολλά.
Σε ευχαριστώ ακόμη μια φορά.

[anestaki]

Καλησπέρα σε όλους
Συνεχίζω να κανό λάθος
Ενώ διαγράφω από των πινάκα δεν μπορώ από το ερώτημα.

Dim del As String
Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
Dim strSQL As String
    Set dbs = CurrentDb
    Set qdf = dbs.QueryDefs("MenuNodesQuery")
    strSQL = qdf.Fields.Delete(Me.txtInt2)
  DoCmd.RunSQL strSQL
  del = "ALTER TABLE [MenuNodes] DROP COLUMN [" & Me.txtInt2 & "]"
  DoCmd.RunSQL del

[anestaki]

Ξέχασα το συνημμένο

[kapetang]

Καλησπέρα

Γιώργο, παρατήρησα ότι, αν εξαιρέσουμε την ταξινόμηση, ο πίνακας [MenuNodes] και το ερώτημα [MenuNodesQuery] εμφανίζουν τα ίδια στοιχεία.

Με μια απλή αλλαγή στη σχεδίαση του ερωτήματος μπορούμε να πετύχουμε να ενημερώνεται αυτόματα, όταν προσθέτουμε ή διαγράφουμε πεδία στον πίνακα.

Δες τη συνημμένη ΒΔ.

[anestaki]

Καλησπέρα Γιώργο
Δημιούργησα ένα νέο ερώτημα MenuNodesQuery όπως έγραψες και η φόρμα main δεν ανοίγει.

[anestaki]

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