Forum - Φόρμες Σύνθετο πλαίσιο κειμένου

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/3317-sintheto-plaisio-keimenoy.html)

Σύνθετο πλαίσιο κειμένου

Καλησπέρα σε όλους και όλες
Θέλω μια βοήθεια σχετικά με σύνθετο πλαίσιο κειμένου

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

Καλησπέρα

Γιώργο, μάλλον μπορείς.

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

Φιλικά/Γιώργος

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

Τώρα όσων αφορά την ερώτηση μου σαφέστατα σε ένα επόμενο ποστ (για τη δεν την έχω σε αυτό το pc την βάση) θα την ανεβάσω. Επειδή όμως ξέρω πως αν την ανεβάσω θα έχω μια «λύση στο πιάτο» και θέλω να παιδευτώ λίγο μπας και θυμηθώ θα κάνω δυο ερωτήσεις και αύριο που θα είμαι στην έδρα μου θα ανεβάσω βάση.

Ερώτηση πρώτη σε ένα σύνθετο πλαίσιο κειμένου η παρακάτω έκφραση είναι σωστή ;

Κώδικας:

Private Sub Προιον_AfterUpdate()

Dim y As Integer

y = Me.συνθετο πλαισιο.Column(0)

δεύτερη ερώτηση
ένα παράδειγμα της select case

ευχαριστώ και πάλι

Καλησπέρα
Γιώργο, δεν πρέπει να χρησιμοποιείς, για τα στοιχεία ελέγχου, ονόματα με κενά.

Κανονικά ούτε και ελληνικά.

Η έκφραση: y = Me.συνθετο πλαισιο.Column(0) θα χτυπήσει λόγω του κενού.

Πιθανόν να γίνει αποδεκτή η: y = Me.[συνθετο πλαισιο].Column(0) ή η VBA να την αλλάξει σε y = Me.συνθετο_ πλαισιο.Column(0).

Δες και ένα παράδειγμα με την πρόταση Select case:

Κώδικας:

Public Sub SelectCase()

    Dim j As Long

    

    j = 1    'Εδώ αλλάζουμε το j και βλέπουμε το μήνυμα

    

    Select Case j

    Case 0

        MsgBox "To j=0"

    Case 1

        MsgBox "To j=1"

    Case Else

        MsgBox "To j<>0 και J<>1"

    End Select

End Sub

Γιώργο σε ευχαριστώ και πάλι
Το ξέρω για το κενό το ερώτημα μου αναφέρετε στο Column(0) αν είναι αποδεκτό και αν θα μου φέρει (λογικά ) τον κωδικό που δεν εμφανίζετε στο πλαίσιο κειμένου

Αν υπήρχε πρόβλημα στο Column(0), θα το σημείωνα.
Εξάλλου μπορούμε να κάνουμε δοκιμές.
Είναι ο καλύτερος τρόπος εκμάθησης.