Code:
Function ResponseAlias(Question As Integer) As String
Select Case Question
Case 10, 17, 24, 31, 38, 45, 52, 59
ResponseAlias = "strongly agree"
Case 11, 18, 25, 32, 39, 46, 53, 60
ResponseAlias = "agree"
Case 12, 19, 26, 33, 40, 47, 54, 61
ResponseAlias = "somewhat agree"
Case 13, 20, 37, 34, 41, 48, 55, 62
ResponseAlias = "somewhat disagree"
Case 14, 21, 38, 35, 42, 49, 56, 63
ResponseAlias = "disagree"
Case 15, 22, 39, 36, 43, 50, 57, 64
ResponseAlias = "strongly disagree"
End Select
End Function
That function can be called in a query or even in a textbox on form or report to display the alias, like: