| スポンサードリンク |
SELECT 国語 + 数学 + 英語 AS 合計点 FROM テーブル名
上のようにフィールド名に式を設定し、ASで列見出し名を指定します
|
|
サンプルソフト
［実行後の成績一覧画面］
［T_成績テーブル］
生徒ID 国語 数学 英語
10 95 90 92
11 80 85 96
13 77 89 52
16 78 65 88
［コード］
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
|
|
ダウンロード