Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια! |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
Ανάθεση τιμής σε μεταβλητή τύπου string απο ερώτημα
Καλησπέρα και πάλι. Πρώτα από όλα ευχαριστώ πάρα πολύ τα παιδιά που έχουν την όρεξη και την θέληση να βοηθάνε αρχάριους χρήστες σαν εμένα. Μου έχει προκύψει ένα πρόβλημα σε σχέση με Public μεταβλητές Μέχρι τώρα αυτό που έκανα ήταν να ορίζω από πριν αυτές τις τιμές μέσα σε ένα κώδικα και ανάλογα με το τι ήθελα την ανέθετα. Πως μπορώ τις τιμές να τις δίνω από πεδίο ενός ερωτήματος (το ερώτημα περιέχει μόνο μία γραμμή).(πάντα την εκάστοτε τιμή που θέλω να δώσω). |
#2
| |||
| |||
Αν κατάλαβα καλά το ζητούμενο σου τότε θα πρέπει μέσα στο ερώτημα να βάλεις κριτήριο να ζητάει την τιμή που θέλεις να δίνεις, αλλά αν δεν μας δώσεις παραπάνω πληροφορίες τι ακριβώς θέλεις να κάνεις δεν νομίζω να μπορούμε να σε βοηθήσουμε.
|
#3
| |||
| |||
Vba querry
Σε ευχαριστώ για το ενδιαφέρον σου να με βοηθήσεις. Σε συνέχεια αυτού που μου έφτιαξες να κάνει έξοδο σε txt αρχείο ανεβάζω το δείγμα . έχω φτιάξει ένα ερώτημα metavliti που θέλω να δίνει κάθε φορά στην μεταβλητή όνομα. Αντί δηλαδή να έχω τις τιμές από πριν μέσα στον κώδικα να μπορώ να του αναθέτω τιμή με βάση το ερώτημα και να μπορεί αυτή η τιμή να χρησιμοποιηθεί από ολόκληρο το πρότζεκτ και όχι μόνο μέσα στο συγκεκριμένο κομμάτι του κώδικα. Ελπίζω αν έγινα κατανοητός έτσι το έχω στο μυαλό μου δεν ξέρω φυσικά αν γίνεται αυτό και πόσο θα καθυστερεί τον κώδικα όσο αναφορά το χρόνο εκτέλεσης του. |
#4
| |||
| |||
Βάλε μέσα σε μια λειτουργική μονάδα Public strPeopleResult As String Function strPeople(criteria As String) As String Dim rs As DAO.Recordset Dim strSql As String strSql = "SELECT * FROM MEtavliti WHERE Peoples = '" & criteria & "'" ' Open the recordset Set rs = CurrentDb.OpenRecordset(strSql) ' Check if there are any records If Not rs.EOF Then ' If there are records, store the value of 'Peoples' field in the public variable strPeopleResult = rs!Peoples Else ' If no records match the criteria, store an empty string in the public variable strPeopleResult = "" End If ' Close the recordset rs.Close Set rs = Nothing End Function Και μετά για να το καλέσεις Dim myCriteria As String myCriteria = InputBox("Εισάγετε το όνομα:") strPeople(myCriteria) ' Δείξε μου το αποτέλεσμα Debug.Print strPeopleResult Κάτι τέτοιο θέλεις? |
#5
| |||
| |||
Κώδικας
Καλησπέρα. Δεν καταλαβαίνω τι ακριβώς κάνει αυτός ο κώδικας που μου γράψατε αλλά δεν πειράζει μην σας παιδεύω δεν είναι κάτι. Απλά είχα ένα σκεπτικό για το πως μπορώ να αναθέσω τιμή σε μια public μεταβλητή από ερώτημα (το κριτήριο για την ανάθεση τιμής είναι προεπιλεγμένο δεν το βάζω εκείνη την ώρα) |
#6
| |||
| |||
Καλησπέρα. "Απλά είχα ένα σκεπτικό για το πως μπορώ να αναθέσω τιμή σε μια public μεταβλητή" Αυτό κάνει ο κώδικας. Που θέλεις να χρησιμοποιήσεις την τιμή αυτήν και πώς? |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
Πέρασμα τιμής σε ερώτημα μετά από επιλογή σε σύνθετο πλαίσιο | wanaka | Access - Ερωτήσεις / Απαντήσεις | 1 | 02-11-23 13:51 |
Αναφορά σε String μεσα απο Public Function | γιώργοςΚ | Access - Ερωτήσεις / Απαντήσεις | 1 | 31-01-23 13:22 |
[Συναρτήσεις] IF και αντικατάσταση σε ποιοτική μεταβλητή | aggelaki83 | Excel - Ερωτήσεις / Απαντήσεις | 7 | 20-06-19 12:11 |
[Γενικά] Χρώματα στα κελιά με ανάθεση αριθμού | ΣΟΥΜΟΥ | Excel - Ερωτήσεις / Απαντήσεις | 6 | 18-05-12 11:34 |
Η ώρα είναι 10:32.