Αρχικά να σου πω ότι τα 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