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

[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

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