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

[giannisp]

Καλησπέρα στο forum
Στη φόρμα που επισυνάπτω θα ήθελα επιλέγοντας την τιμή στο σύνθετο πλαίσιο
και βάζοντας τιμές στα δύο πλαίσια κειμένου που είναι κάτω από αυτό
να μου δίνει αποτελέσματα από πράξεις που θα του δώσω στα υπόλοιπα πλαίσια κειμένου

Ευχαριστώ

[Morpheas]

Αν γίνεις λίγο πιο συγκεκριμένος στο τι θα γράφεις που και που θα ξέρει η εφαρμογή τι πράξεις θέλεις να κάνεις μπορώ να σε βοηθήσω.

[giannisp]

Καλησπέρα Γιώργο
Άλλαξα το σύνθετο πλαίσιο με τιμές 1,2,3,4
Όταν επιλέγω μία από τις αυτές τις τιμές στο σύνθετο πλαίσιο και συμπληρώσω το Κείμενο2 και το Κείμενο4 με κάποιο νούμερο τα υπόλοιπα πλαίσια κειμένου να υπολογίζουν τη τιμή μετά από αφαίρεση που θα γίνετε
Τα Κείμενο7 - 9 - 15 - 23 θα παίρνουν από το Κείμενο2
Τα Κείμενο11 - 13 - 17 - 19 - 21 θα παίρνουν από το Κείμενο4
Άς πούμε ότι όταν επιλέγω στο σύνθετο πλαίσιο το 1 θα αφαιρείται 1 μονάδα από αυτό που θα έχει επιλεγεί
όταν επιλέγω το 2 θα αφαιρούνται 2 μονάδες
όταν επιλέγω το 3 θα αφαιρούνται 3 μονάδες, και
όταν επιλέγω το 4 θα αφαιρούνται 4 μονάδες
Τις τελικές τιμές θα τις βάλω εγώ όταν ετοιμάσεις τον κώδικα
Σ ευχαριστώ που θα ασχοληθείς

[Morpheas]

Αρχικά να σου πω ότι τα Option Compare Database και Option Explicit δεν μπαίνουν μέσα σε ιδιωτικά Subs και Functions αλλά στην αρχή. Έπειτα δεν μπορείς να έχεις μια ρουτίνα μέσα σε μια άλλη. Μπορείς να καλείς όμως μια άλλη. Από τον κώδικα που είδα υπέθεσα ότι θα έχεις 2 κουμπιά ή πεδία με ονόματα Νο1 και Νο2 και όταν θα κάνεις κλικ πάνω σε αυτά θα γίνονται κάποιες αλλαγές σε κάποια αντικείμενα:
Private Sub Νο1_Click()
Me.Σύνθετο0 = "ROYAL"
Κειμενο7 = Κειμενο2 - 5
Me.Σύνθετο0 = "2006"
Me.Σύνθετο0 = "ΚΕΝΤΡΙΚΟ"
Me.Σύνθετο0 = "ΠΛΕΥΡΙΚΟ"
End Sub

Private Sub Νο2_Click()
Me.ΑΡ_ΔΕΛΤΙΟΥ_2 = Me.Νο2.Column(1)
End Sub

Το Νο1 και Νο2 δεν υπάρχουν όπως και τα (Σύνθετο0,ΑΡ_ΔΕΛΤΙΟΥ_2 )

Μάζεψα τον κώδικά σου στο Νο1 on_Click event και το έκανα σχόλιο:
'Me.Σύνθετο0 = "ROYAL"
'Me.Σύνθετο0 = "2006"
'Me.Σύνθετο0 = "ΚΕΝΤΡΙΚΟ"
'Me.Σύνθετο0 = "ΠΛΕΥΡΙΚΟ"
το παραπάνω απλώς αντικαθιστά στο ίδιο πεδίο, στο Σύνθετο0, τις τιμές "ROYAL", "2006","ΚΕΝΤΡΙΚΟ", "ΠΛΕΥΡΙΚΟ". Στο τέλος μένει η τιμή "ΠΛΕΥΡΙΚΟ" μιας και την τοποθετείς τελευταία. Επίσης έχεις δηλώσει ως τιμή προορισμού στις ιδιότητες του Σύνθετο0 τις τιμές (1,2,3,4) γι' αυτό σου τις εμφανίζει ώς επιλογές του σύνθετου. Εάν θέλεις να έχει το σύνθετο τις τιμές "ROYAL", "2006","ΚΕΝΤΡΙΚΟ", "ΠΛΕΥΡΙΚΟ" βάλε τις στο σημείο που έβαλες τις τιμές 1;2;3;4 στην προέλευση Γραμμής.

Με βάση το Me.ΑΡ_ΔΕΛΤΙΟΥ_2 = Me.No2.Column(1):
Αυτό Χτυπάει λάθος επειδή δεν έχεις στη φόρμα πεδίο με όνομα ΑΡ_ΔΕΛΤΙΟΥ_2 αλλά ούτε το No2 είναι σύνθετο να έχει 2 ή περισσότερες στήλες δεδομένων για να μπορέσεις να διαλέξεις τη δεύτερη.( Me.No2.Column(1) ). Γι΄αυτό το έβαλα ως σχόλιο.

Έφτιαξα, λοιπόν, τα δύο κουμπιά: Νο1 και Νο2 και όταν πατάς το Νο1 διαβάζει την τιμή του Κείμενο2 και αφαιρώντας την τιμή του Σύνθετο0. Στη τιμή του Κείμενο2 αφαιρεί τον αριθμό του Σύνθετο0 και την τοποθετεί στο Κείμενο9 κοκ.

Το ίδιο συμβαίνει και με το Νο2 απλώς ξεκινά με τον αριθμό του Κείμενο4.

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

Επίσης όταν πατάς τα κουμπιά ελέγχει το καθένα εάν τα Κείμενο2 και Κείμενο4 είναι άδεια και βγαίνει μήνυμα...

Σαν παρατήρηση. Τα στοιχεία αυτά δεν αποθηκεύονται κάπου. Εάν είναι αυτό που θέλεις οκ, αλλιώς θα πρέπει να γίνει και πίνακας να τα αποθηκεύει.

Καλή επιτυχία.

Κι αυτό είναι μια εικόνα από τα αποτελέσματα:
http://prntscr.com/jecxbl

[giannisp]

Γιώργο ευχαριστώ για το χρόνο σου
Θα δοκιμάσω κάποιες αλλαγές και αν δεν τα καταφέρω θα ενοχλήσω πάλι
Το παράδειγμά σου μου έδωσε κάποιες ιδέες
Σ ευχαριστώ

[giannisp]

Κάνοντας κάποιες αλλαγές κατέληξα σε αυτό

[Morpheas]

Αν είναι αυτό που θέλεις, εντάξει... ;)

[Spirosgr]

Καλησπέρα
Μπορεί κανείς να με βοηθήσει να καταλάβω,
για ποιό λόγο χρειάζονται όλα αυτά τα πεδία,
με ίδιο αποτέλεσμα, για μια απλή... αφαίρεση;
θα είχε ενδιαφέρον (εγκυκλοπαιδικά ρωτάω)...

[giannisp]

Στο σύνθετο πλαίσιο επιλέγω ένα συγκεκριμένο αντικείμενο
Το κάθε αντικείμενο αποτελείται από 6 έως 10 κομμάτια
Το κάθε πεδίο μου λέει πόσο να κόψω το κάθε κομμάτι για τη συγκεκριμένη διάσταση που επιλέγω
Δεν αφαιρώ τον ίδιο αριθμό αλλά τον προσαρμόζω σε αυτόν που θέλω σε κάθε πεδίο

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