Forum

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

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

 

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

Καλησπέρα...!! Σε όλη την παρέα..!

Μπορει καποιος βηοθήσει...!!

Εχω ένα πλαισιο λίστας και έχω δύο βασικά προβλήματα..!!

Το πρώτο

Μπορώ να κανώ αυτό...

dim Diadromi as string , kritirio as string

Diadromi = "SELECT * from...."
kritirio = "kodikos = 1256903"

me.lista.RowSource = Diadromi & kritirio

μεχρι τώρα το παραπάνω το δουλευώ έτσι "SELECT * from.... WHERE KODIKOS = " & kodikos " και δουλεύει μια χαρα.. Αλλα επειδει έχω πολλά και διαφορετικά κριτήρια 8ελω να κάνω "me.lista.RowSource = Diadromi & kritirio"

Γιατί δεν μου πέζει..???

και το δεύτερο κανω ORDER BY με ημερομηνία και δεν το κάνει..!!

"SELECT * from.... WHERE KODIKOS = " & kodikos & "ORDER BY Hmer"


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

Υ.Γ
SELECT * from.... WHERE KODIKOS = " & kodikos & "ORDER BY Hmer" μου φερνει κανονικα τα δεδομενα αλλα δεν τα ταξινομή είτε με φθίνουσα είτε μα αυξουσα κατασταση..!!
Απάντηση με παράθεση
  #3  
Παλιά 10-03-10, 22:24
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 1.157
Προεπιλογή

Γιώργο καλησπέρα!

Είναι δύσκολο να σου δώσει κανείς απάντηση στην ερώτηση σου όταν δεν γνωρίζει τη δόμηση της βάσης σου.

Σου προτείνω να δημιουργήσεις χειροκίνητα ένα νέο Combo με χρήση του οδηγού για να δεις τη σωστή σύνταξη SQL που είναι αποδεκτή από την εφαρμογή και να την περάσεις στη VBA.

Αν πάλι πρόκειται για κάτι πιο πολύπλοκο, απλά δώσε μας τις πληροφορίες που χρειάζονται για να το κοιτάξουμε όλοι μαζί.

Φιλικά

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών σε VB.Net, Access, Excel, Outlook, Word
Απάντηση με παράθεση
  #4  
Παλιά 11-03-10, 00:12
Το avatar του χρήστη gr8styl
Super Moderator
Όνομα: Θανάσης Στυλιανίδης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 19-10-2009
Περιοχή: Βρυξέλλες, Βέλγιο
Μηνύματα: 412
Προεπιλογή

Παράθεση:
Αρχική Δημοσίευση από Giorgos Εμφάνιση μηνυμάτων
Υ.Γ
SELECT * from.... WHERE KODIKOS = " & kodikos & "ORDER BY Hmer" μου φερνει κανονικα τα δεδομενα αλλα δεν τα ταξινομή είτε με φθίνουσα είτε μα αυξουσα κατασταση..!!
Δοκίμασες & "ORDER BY Ν" αντί & "ORDER BY Hmer"
όπου Ν ο αριθμός στήλης της ημερομηνίας.

Απάντηση με παράθεση
  #5  
Παλιά 11-03-10, 01:28
Το avatar του χρήστη editolis
Super Moderator
Όνομα: Τολης
Έκδοση λογισμικού Office: Ms-Office 2000, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-01-2010
Περιοχή: ATHENS-GREECE
Μηνύματα: 189
Προεπιλογή

Αγαπητε Φιλε,

Εαν θελεις με φθινουσα ημερομηνια (που εχεις βαλει στο "ORDER BY Hmer") τοτε θα το κανεις ετσι: "ORDER BY Hmer ASC"

Εαν θελεις με αυξουσα θα το κανεις "ORDER BY Hmer DESC"

Καλη συνεχεια...

Τελευταία επεξεργασία από το χρήστη editolis : 11-03-10 στις 01:44.
Απάντηση με παράθεση
  #6  
Παλιά 11-03-10, 12:00
Όνομα: Γιώργος Καψάλης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 18-11-2009
Μηνύματα: 126
Προεπιλογή

Καλημέρα σε όλη την παρέα...!!

Δοκίμασα όσα έχουν αναφερθεί σχετικά με την ταξινόμηση αλλα το ρημάδι "αγρόν αγορασε.."
και το Ν'' δινοντάς του αριθμό στήλης ή και το πεδιο κατευθίαν.. δλδ ORDER BY N'Hmer' kai ORDER BY N'3' επίσης και το DESC- ASC αντιστοιχα.. αλλα δεν θέλει...!!

τώρα ως αφορά το άλλο ερώτημα

επειδη έχω μια λίστα (πλαισιο λιστας) και του δίνω δεδομενα απο πολλά κρητιρια σκεφτικα μήπως αντι να γράφω "SELECT * FROM...." πολλές φορές να δινω τισ διαδρομές αναλογα με το κριτιριο..


δλδ να κανω το παρακατω σε κα8ε περιπτωση κρητιριου

Diadromi = "SELECT * from...."
kritirio = "kodikos = 1256903"

και στο τελος να κανω αυτο

me.lista.RowSource = Diadromi & kritirio


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

Γιώργο, δημιούργησε 2 -3 διαφορετικά RowSource σε ένα ComboBox χειροκίνητα
και ανέβασε τον κώδικα που περιέχεται στο φόρουμ για να δούμε τι ακριβώς γίνεται.
Φρόντισε όταν φτιάχνεις το ερώτημα για το ComboBox να περάσεις και την ταξινόμηση.
Πες μας ακόμα αν τα κριτήρια παίρνονται από πεδία φόρμας καθώς και τη μορφοποίηση των πεδίων αυτών.

Τα λέμε

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

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

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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
vba RowSource Giorgos Visual Basic for Applications (VBA) 1 02-05-10 13:09


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