SQL フィールドに式を設定し値を抽出する

SELECT 国語 + 数学 + 英語 AS 合計点 FROM テーブル名
上のようにフィールド名に式を設定し、ASで列見出し名を指定します
［コード］
Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    Me!テキスト1 = "ID：合計点" & vbCrLf
    Me!テキスト1 = Me!テキスト1 & "---------" & vbCrLf
    SQL = "SELECT 生徒ID,国語 + 数学 + 英語 AS 合計点 FROM T_成績"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Do Until rs.EOF
        Me!テキスト1 = Me!テキスト1 & rs![生徒ID] & "：  " & rs![合計点] & vbCrLf
        rs.MoveNext
    Loop
    Set rs = Nothing
End Sub

サンプルソフトのダウンロード