Forum

Visual Basic for Applications (VBA) Ερωτήσεις / Απαντήσεις σε σχέση με τη χρήση της VBA.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 19-02-10, 13:32
Όνομα: Γιώργος Καψάλης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 18-11-2009
Μηνύματα: 126
Προεπιλογή vba const

Καλημερά σε όλους

Να ρωτήσω..!!

αυτο εδώ πέζει (const kodikos_Pelati as long = 12589..)

αυτό εδώ γιατι δεν πέζει το ρημάδη (const kodikos_Pelati as long = forms!onomaFormas!OnomaPediou)

Βρε τη λουκουμια του εταξα..!! τη σάμαλη..!! τίποτα αυτό..!!

Φιλικά Γιώργος
Απάντηση με παράθεση
  #2  
Παλιά 19-02-10, 13:49
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 1.157
Προεπιλογή

Καλησπέρα Γιώργο
Τα Const (=σταθερά) δέχονται μόνο σταθερές τιμές. Δεν υπολογίζουν τιμές στο χρόνο εκτέλεσης.

Γιατί όχι: Private ή Public ή Dim kodikos_Pelati as long ??

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών σε VB.Net, Access, Excel, Outlook, Word
Απάντηση με παράθεση
  #3  
Παλιά 19-02-10, 14:25
Όνομα: Γιώργος Καψάλης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 18-11-2009
Μηνύματα: 126
Προεπιλογή

Καλησπερα Τασο

Εχω όπως φαντάζεσε τοπικούς κώδικες στις φορμες και αρκετα μεγάλους.. Δυστιχος..!!!!!

Το πρόβλημα είναι ότι επαναλαμβάνω τα ιδια κριτιρια στον τοπικο κωδικα πολλές φορές..

μπορει ενα τοπικος κωδικας να έχει 15 - 16 sub

Π.χ ο κωδικος πελάτη και 3 - 4 αλλα κρητιρια μπορεί να επναλαμβάνε και στα 16 sub

Ελεγα μήπως τον καταχωρούσα στην αρχή (όπως const) και μετά τον διαβαζα σε όλο τον τοπικο κωδικα..!!

έχεις καμία ιδέα..?

Γιώργος
Απάντηση με παράθεση
  #4  
Παλιά 19-02-10, 14:44
Όνομα: Γιώργος Καψάλης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 18-11-2009
Μηνύματα: 126
Προεπιλογή

Υ.Γ

Option Compare Database
1 κρητιριο
2 κρητιριο
κλπ
κλπ
Απάντηση με παράθεση
  #5  
Παλιά 19-02-10, 20:22
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 1.157
Προεπιλογή

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

Private xxx as long


και στο Form_Load() : xxx = me.field1


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

Αν θέλεις να υπάρχει πρόσβαση στις μεταβλητές από οποιοδήποτε σημείο του Έργου
VBA μπορείς να τις βάλεις σε μια κοινή λειτουργική μονάδα (Module) τις διαμορφώνεις έτσι:

Public xxx as long

Στις μεταβλητές τύπου Public μπορείς να ορίσεις τιμές από οποιοδήποτε σημείο του
Έργου VBA και κρατούν τις τιμές τους όσο το αρχείο είναι ανοιχτό.

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών σε VB.Net, Access, Excel, Outlook, Word
Απάντηση με παράθεση
  #6  
Παλιά 20-02-10, 15:15
Όνομα: Γιώργος Καψάλης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 18-11-2009
Μηνύματα: 126
Προεπιλογή

Καλησπέρα Τάσο

"Αν θέλεις να υπάρχει πρόσβαση στις μεταβλητές από οποιοδήποτε σημείο του Έργου
VBA μπορείς να τις βάλεις σε μια κοινή λειτουργική μονάδα (Module) τις διαμορφώνεις έτσι:

Public xxx as long"

Αυτό το σκέλος των δημόσιων μεταβλητών το κάνω ήδη..


"Private xxx as long
και στο Form_Load() : xxx = me.field1"

αυτό όχι δεν το γνώριζα και απο ότι βλέπω είναι πολυ πιο νορμάλ ο τρόπος σου σε αυτό το σκέλος

Τάσο σε ευχαριστώ πολύ.

Καλο απόγευμα Γιώργος
Απάντηση με παράθεση
  #7  
Παλιά 20-02-10, 15:18
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 1.157
Προεπιλογή

Νάσαι καλά φίλε μου!
Τα λέμε...
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών σε VB.Net, Access, Excel, Outlook, Word
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

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

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



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