首页 > 软件编程 > Access使用VBA实现表或查询每相邻两行字段相减

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 Database
 
Private 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 & "")  '删除临时表2
 
 
 
Exit_Command0_Click:
    Exit Sub
 
Err_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.Close
End Sub

此文系静风说原创,转载请注明出处: http://www.jingfengshuo.com/archives/1286.html

分类: 软件编程 标签: 浏览量:442 次阅读
  1. 本文目前尚无任何评论.
  1. 本文目前尚无任何 trackbacks 和 pingbacks.