Ms Access: Από γράμματα σε αριθμούς

[Pleasure]

Χαιρετώ τους συνπρογραμματιστάς. Έχω το εξής πρόβλημα

 

Για παράδειγμα ας υποθέσουμε πως έχω ένα String της τάξης:

 

"125,15 gr/100 lt". Μέσα σε ένα query (κι εδώ είναι το δύσκολο), κάνω

 

Val("125,15 γρ/100 lt) και μου επιστρέφει 125

 

θα ήθελα, εφόσον είναι εφικτό να μου επιστρέφει και το δεκαδικό, δηλαδή 125,15 (μήπως 125.15 ??? δεν γνωρίζω).

 

Όλα αυτά όμως μέσασ σε ένα Query ( το πηγαίο Text που θέλω να επεξεργαστώ είναι τιμή ενός πεδίου)

 

Ευχαριστώ ...

[Pleasure]

Το βρήκα μόνος μου. Έφτιαξα σε ένα module μια Public Function που το κάνει και μετά την τοποθέτησα μέσα στο ερώτημα. Για δείτε κι εσείς :

 

Public Function katharismos(pigaio As String) As Single

Dim i As Integer

Dim Sourcer As String

Dim trabigma As String

 

For i = 1 To Len(pigaio)

trabigma = Mid(pigaio, i, 1)

If trabigma = "," Then trabigma = "."

Sourcer = Sourcer & trabigma

Next i

 

katharismos = Val(Sourcer)

End Function