[Tasos]

Καλησπέρα!
Γιώργο, έστω ότι το πεδίο με τις τιμές έχει το όνομα FieldValue.

Σε ένα πεδίο πέρασε τον τύπο:

=Switch([FieldValue]<=18,5;"Α";[FieldValue] Between 18,6 And 24,9;"Β";[FieldValue] Between 25 And 29,9;"Γ";
[FieldValue] Between 30 And 34,9;"Δ";[FieldValue] Between 35 And 39,9;"Ε";[FieldValue]>=40;"Ζ")

Μπορείς να χρησιμοποιήσεις όσες εκφράσεις θελήσεις.


Στη VBA


Στον VBE η υποδιαστολή πρέπει να είναι τελεία, όχι κόμμα.

Δες μια συνάρτηση/παράδειγμα με VBA:

Public Function GetStringValue(ValueField As Access.TextBox) As String
    Dim dblValue As Double
    If IsNumeric(ValueField) Then
        dblValue = CDbl(ValueField.Value)
        Select Case True
            Case dblValue < 18.6
                GetStringValue = "Α"
            Case dblValue >= 18.6 And dblValue <= 24.9
                GetStringValue = "Β"
            Case dblValue >= 25 And dblValue <= 29.9
                GetStringValue = "Γ"
            Case dblValue >= 30 And dblValue <= 34.9
                GetStringValue = "Δ"
            Case dblValue >= 35 And dblValue <= 39.9
                GetStringValue = "Ε"
            Case dblValue >= 40
                GetStringValue = "Ζ"
        End Select
    End If
End Function

Ή με ElseIF αν δεν υπάρχουν κενά ανάμεσα στους αριθμούς των κριτηρίων (γίνεται φυσικά και με την παραπάνω συνάρτηση) :

Public Function GetStringValue(ValueField As Access.TextBox) As String
    Dim dblValue As Double
    If IsNumeric(ValueField) Then
        dblValue = CDbl(ValueField.Value)
        If dblValue < 18.6 Then
            GetStringValue = "Α"
        ElseIf dblValue <= 24.9 Then
            GetStringValue = "Β"
        ElseIf dblValue <= 29.9 Then
            GetStringValue = "Γ"
        ElseIf dblValue <= 34.9 Then
            GetStringValue = "Δ"
        ElseIf dblValue <= 39.9 Then
            GetStringValue = "Ε"
        Else
            GetStringValue = "Ζ"
        End If
    End If
End Function

Καλή συνέχεια!

Τάσος