Ανανέωση ιστοσελίδας
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Χρησιμοποιώντας την case

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Κλειστό Θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 15-03-13, 20:53
Όνομα: Θάνος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 09-05-2012
Περιοχή: Λάρισα
Μηνύματα: 49
Προεπιλογή Χρησιμοποιώντας την case

Καλησπέρα εχω δημιουργήσει μια φορμα και μια δευτερευον.
Η πρωτη περιεχει Ονομα και Κωδικό εξόδων

Στην δευτερευον περιχει μια τιμη1 και μια τιμη2 και ενα πεδιο Συνολο

θελω πχ να υπολογίζω μεσα στο Συνολο πχ τιμη1 * τιμη2 + Κωδικό Εξόδων(τιμή).

Πηγα στο πεδίο κωδικο εξόδων και δημιουργησα ενα συμβάν στο got focus

Select Case kae

Case kae = 1431
Total = (Approval1 + aproval2) * 0 + 1431
Case kae = 881
Total = (Approval1 + aproval2) * 0 + 881
Case kae = 1611
Total = (Approval1 + aproval2) * 0 + 1611
End Select

Πως μπορείς να παρεις μια τιμή απο το πρωτο πεδίο της κυρίως φόρμας στην δεύτερη

Ευχαριστώ
  #2  
Παλιά 16-03-13, 04:19
Το avatar του χρήστη Meteora
Συντονιστής
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-12-2008
Περιοχή: Θεσσαλονίκη
Μηνύματα: 1.033
Προεπιλογή

Καλημέρα
Όταν η εστίαση είναι στη δευτερεύουσα φόρμα και θέλεις τιμή από πεδίο της κύριας, γράφεις :
Κώδικας:
me.parent.Onomapediou
Δυο παρατηρήσεις αν επιτρέπεις
  • Ό,τι πολλαπλασιαστεί με το μηδέν, δίνει πάντα μηδέν. Επομένως η έκφραση Total = (Approval1 + aproval2) * 0 + 881 θα δώσει 881, εκτός αν υπάρχουν null καταστάσεις.
  • Δεν είναι συνήθη πρακτική να χρησιμοποιείται ο κωδικός ενός record σε αριθμητικές πράξεις...

Με εκτίμηση

Νίκος Δ
  #3  
Παλιά 16-03-13, 06:54
Όνομα: Θάνος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 09-05-2012
Περιοχή: Λάρισα
Μηνύματα: 49
Προεπιλογή

Ευχαριστώ τώρα δουλεύει
ναι το βλέπω απλως ηταν δοκιμαστικό, οι πράξεις.
Κλειστό Θέμα


Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Πρόβλημα με κώδικα Select Case Yes/No γιώργοςΚ Access - Ερωτήσεις / Απαντήσεις 3 15-01-15 12:05


Η ώρα είναι 18:27.