Ανάθεση τιμής σε μεταβλητή τύπου string απο ερώτημα

[jimrenoir]

Καλησπέρα και πάλι. Πρώτα από όλα ευχαριστώ πάρα πολύ τα παιδιά που έχουν την όρεξη και την θέληση να βοηθάνε αρχάριους χρήστες σαν εμένα. Μου έχει προκύψει ένα πρόβλημα σε σχέση με Public μεταβλητές
Μέχρι τώρα αυτό που έκανα ήταν να ορίζω από πριν αυτές τις τιμές μέσα σε ένα κώδικα και ανάλογα με το τι ήθελα την ανέθετα.
Πως μπορώ τις τιμές να τις δίνω από πεδίο ενός ερωτήματος (το ερώτημα περιέχει μόνο μία γραμμή).(πάντα την εκάστοτε τιμή που θέλω να δώσω).

[pctechdr]

Αν κατάλαβα καλά το ζητούμενο σου τότε θα πρέπει μέσα στο ερώτημα να βάλεις κριτήριο να ζητάει την τιμή που θέλεις να δίνεις, αλλά αν δεν μας δώσεις παραπάνω πληροφορίες τι ακριβώς θέλεις να κάνεις δεν νομίζω να μπορούμε να σε βοηθήσουμε.

[jimrenoir]

Σε ευχαριστώ για το ενδιαφέρον σου να με βοηθήσεις.
Σε συνέχεια αυτού που μου έφτιαξες να κάνει έξοδο σε txt αρχείο ανεβάζω το δείγμα .
έχω φτιάξει ένα ερώτημα metavliti που θέλω να δίνει κάθε φορά στην μεταβλητή όνομα.
Αντί δηλαδή να έχω τις τιμές από πριν μέσα στον κώδικα να μπορώ να του αναθέτω τιμή με βάση το ερώτημα και να μπορεί αυτή η τιμή να χρησιμοποιηθεί από ολόκληρο το πρότζεκτ και όχι μόνο μέσα στο συγκεκριμένο κομμάτι του κώδικα.
Ελπίζω αν έγινα κατανοητός έτσι το έχω στο μυαλό μου δεν ξέρω φυσικά αν γίνεται αυτό και πόσο θα καθυστερεί τον κώδικα όσο αναφορά το χρόνο εκτέλεσης του.

[pctechdr]

Βάλε μέσα σε μια λειτουργική μονάδα

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

Κάτι τέτοιο θέλεις?

[jimrenoir]

Καλησπέρα. Δεν καταλαβαίνω τι ακριβώς κάνει αυτός ο κώδικας που μου γράψατε αλλά δεν πειράζει μην σας παιδεύω δεν είναι κάτι.
Απλά είχα ένα σκεπτικό για το πως μπορώ να αναθέσω τιμή σε μια public μεταβλητή από ερώτημα (το κριτήριο για την ανάθεση τιμής είναι προεπιλεγμένο δεν το βάζω εκείνη την ώρα)

[pctechdr]

Καλησπέρα.
"Απλά είχα ένα σκεπτικό για το πως μπορώ να αναθέσω τιμή σε μια public μεταβλητή" Αυτό κάνει ο κώδικας.
Που θέλεις να χρησιμοποιήσεις την τιμή αυτήν και πώς?