如何在Microsoft Access中将下一条记录字段数据复制到当前记录

前提准备 #

先确保你的临时表（假设名为Temp_Student_Data）已添加Email_2和Phone_Number_2字段，字段类型与Email、Phone_Number保持一致（比如短文本）。

步骤1：生成原始行与更新行的ID关联查询 #

如果还没有原始行和更新行的ID对应关系，先创建一个查询（命名为Query_ID_Pairs）来匹配每一条有效记录（有Student_Name）和它的下一行更新记录（无Student_Name）：

SELECT 
    Original.ID AS Original_ID,
    UpdateRow.ID AS Update_ID
FROM 
    Temp_Student_Data AS Original
INNER JOIN 
    Temp_Student_Data AS UpdateRow 
ON 
    UpdateRow.ID = Original.ID + 1
WHERE 
    Original.Student_Name IS NOT NULL 
    AND UpdateRow.Student_Name IS NULL;

步骤2：将更新行数据写入原始行的扩展字段 #

创建并运行Update查询，把更新行的邮箱、电话复制到对应原始行的Email_2、Phone_Number_2：

UPDATE Temp_Student_Data AS Original
INNER JOIN Query_ID_Pairs AS Pairs ON Original.ID = Pairs.Original_ID
INNER JOIN Temp_Student_Data AS UpdateRow ON Pairs.Update_ID = UpdateRow.ID
SET Original.Email_2 = UpdateRow.Email, Original.Phone_Number_2 = UpdateRow.Phone_Number;

步骤3：清理无Student_Name的无效记录 #

运行Delete查询删除所有没有学生姓名的行：

DELETE * FROM Temp_Student_Data WHERE Student_Name IS NULL;

步骤4：将规范后的数据追加到目标表 #

创建Append查询，把临时表的有效数据导入到你的目标工作表/表（假设目标表名为Target_Student_Table）：

INSERT INTO Target_Student_Table (Student_Name, Email, Phone_Number, Email_2, Phone_Number_2)
SELECT Student_Name, Email, Phone_Number, Email_2, Phone_Number_2
FROM Temp_Student_Data;

批量导入Excel文件的补充（如果还未完成导入） #

如果还没把600个Excel文件批量导入临时表，可使用Access VBA快速完成：

Sub BatchImportExcel()
    Dim fd As FileDialog
    Dim folderPath As String
    Dim fileName As String
    Dim db As DAO.Database
    
    Set db = CurrentDb()
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    
    If fd.Show = -1 Then
        folderPath = fd.SelectedItems(1) & "\"
        fileName = Dir(folderPath & "*.xlsx")
        
        Do While fileName <> ""
            ' 导入Excel数据到临时表，参数可根据实际调整（比如表头行、工作表名）
            DoCmd.TransferSpreadsheet _
                TransferType:=acImport, _
                SpreadsheetType:=acSpreadsheetTypeExcel12Xml, _
                TableName:="Temp_Student_Data", _
                FileName:=folderPath & fileName, _
                HasFieldNames:=True ' 如果Excel第一行是表头则设为True
            fileName = Dir()
        Loop
    End If
    
    Set fd = Nothing
    Set db = Nothing
End Sub

内容的提问来源于stack exchange，提问作者user5331890