Forum
Σελίδα 2 από 2 1 2
Εμφάνιση 40 μηνυμάτων αυτού του θέματος σε μία σελίδα

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   [ Ερωτήματα ] Τι κάνω λάθος (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/3648-ti-kano-lathos.html)

kapetang 22-04-15 15:24
Γιώργο, με τον αρχικό κώδικα τα πεδία ήταν τύπου 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 22-04-15 19:00
Καλησπέρα σε όλους
Γιώργο για ακόμη μια φορά πιο σωστός:icon_superman:
Τώρα μήπως γνωρίζεις πως μπορούμε να ενημερώνουμε την 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 22-04-15 23:42
1 Συνημμένο(α)
Καλησπέρα

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

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

anestaki 25-04-15 16:01
Καλησπέρα σε όλους
Συνεχίζω να κανό λάθος
Ενώ διαγράφω από των πινάκα δεν μπορώ από το ερώτημα.:oeo:
Κώδικας:
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 25-04-15 16:37
1 Συνημμένο(α)
:oooops:Ξέχασα το συνημμένο

kapetang 25-04-15 19:06
1 Συνημμένο(α)
Καλησπέρα

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

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

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

anestaki 25-04-15 19:40
Καλησπέρα Γιώργο
Δημιούργησα ένα νέο ερώτημα MenuNodesQuery όπως έγραψες και η φόρμα main δεν ανοίγει.:too_angry:

anestaki 25-04-15 19:50
Γιώργο συγγνώμη δουλεύει κανονικά:fryingpan:


Η ώρα είναι 04:37.
Σελίδα 2 από 2 1 2
Εμφάνιση 40 μηνυμάτων αυτού του θέματος σε μία σελίδα

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2