Access使用VBA实现表或查询每相邻两行字段相减

为了实现如下的功能：表或查询每相邻两行字段相减。例如下面的这张表或查询，结果是成绩列的每两行相减。

姓名 学号 成绩
小王 001 240
大王 002 260
小王 001 280
大王 002 290
大王 002 260

思路如下：
1、先把表另存一份表1，加一个自增长的ID。
2、表1再另存一份表2。
3、表1和表2用“表1的ID=表2ID-1”来连接，就是相邻两行连接起来。
4、将上面的连接表成绩字段相减，再另存一份。
5、删除表1和表2.

示例模板下载

代码如下：

Option Compare DatabasePrivate Sub Command0_Click()    On Error GoTo Err_Command0_Click        Dim TableName, FieldName, Temp_TableName, Temp_TableName_2, NewTableName As String '变量定义,分别表示表名 字段名 临时表 临时表2 生成新表表名        TableName = Trim(Text7) '表名    FieldName = Trim(Text9) '字段名    Temp_TableName = "Temp_" & TableName '临时表    Temp_TableName_2 = "Temp_" & TableName & "_2" '临时表2    NewTableName = "New_" & TableName & FieldName '生成新表表名            str1 = "select * into " & Temp_TableName & " from " & TableName '将查询或表另存为临时表        str2 = "Alter table " & Temp_TableName & " Add column ID counter (1,1)" '增加字段ID,自增长        str3 = "select * into " & Temp_TableName_2 & "  from " & Temp_TableName '将临时表复制一份        CurrentDb.Execute (str1) '执行上述三条SQL语句        CurrentDb.Execute (str2)        CurrentDb.Execute (str3)        '将临时表和临时表2用ID连接,然后另存为新表        str4 = "select * into " & NewTableName & "  from ( select [" & Temp_TableName & "].*,[" & Temp_TableName_2 & "]." & FieldName & "-[" & Temp_TableName & "]." & FieldName & " AS " & FieldName & "_差值 from " & Temp_TableName & "  left Join " & Temp_TableName_2 & " on [" & Temp_TableName & "].ID = [" & Temp_TableName_2 & "].ID-1)"        CurrentDb.Execute (str4) '执行上述SQL语句        MsgBox "新表已生成，请稍后按F5刷新", vbOKOnly, "完成提示"        DoCmd.Close '关闭当前窗口            CurrentDb.Execute ("drop table " & Temp_TableName & "") '删除临时表    CurrentDb.Execute ("drop table " & Temp_TableName_2 & "")  '删除临时表2Exit_Command0_Click:    Exit SubErr_Command0_Click: '上述语句执行出错的话,跳转到这里:类似于TRY CATH的功能(VBA没有)    MsgBox Err.Description    CurrentDb.Execute ("drop table " & Temp_TableName & "") '报错的话删除复制的临时表    CurrentDb.Execute ("drop table " & Temp_TableName_2 & "")    Resume Exit_Command0_Click    End Sub'取消按钮事件,关闭窗口Private Sub Command11_Click()   DoCmd.CloseEnd Sub