[Tasos]

Καλησπέρα σε όλους!
Αγαπητέ Γιώργο σε υπολογισμένο πεδίο δοκίμασε:

=IIf([ΑρΚλήρωσης] Is Null;Null;ChrW$(Int([ΑρΚλήρωσης]/3)+Abs([ΑρΚλήρωσης] Mod 3<>0)+912))


όπου [ΑρΚλήρωσης] είναι το όνομα του πεδίου της φόρμας σου που παίρνει τα δεδομένα του από το πεδίο [ΔΙΑΔΡΟΜΗ] του πίνακα

Σε περιβάλλον VB:

Function GetGroup(Course As Variant) As Variant 'Course = το πεδίο της φόρμας [ΑρΚλήρωσης] 
    If Not IsNull(Course) Then
        GetGroup = ChrW$(Int(Course / 3) + Abs(Course Mod 3 <> 0) + 912)
    Else
        GetGroup = Null
    End If
End Function

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

Τάσος