MS访问。VBA。如何在临时表不存在时创建包含1条记录的临时表

在MS访问中，可以使用VBA编程语言来创建临时表并添加一条记录。下面是一个示例代码：

Sub CreateTempTable()
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Dim rst As DAO.Recordset
    
    ' 打开当前数据库
    Set db = CurrentDb
    
    ' 检查临时表是否已存在
    If TableExists("TempTable") Then
        ' 如果存在，则删除该表
        db.TableDefs.Delete "TempTable"
    End If
    
    ' 创建新的临时表
    Set tdf = db.CreateTableDef("TempTable")
    
    ' 添加字段到临时表
    Set fld = tdf.CreateField("ID", dbLong)
    tdf.Fields.Append fld
    
    ' 添加临时表到数据库
    db.TableDefs.Append tdf
    
    ' 打开临时表的记录集
    Set rst = db.OpenRecordset("TempTable")
    
    ' 添加一条记录到临时表
    rst.AddNew
    rst("ID").Value = 1
    rst.Update
    
    ' 关闭记录集和数据库
    rst.Close
    db.Close
    
    ' 释放对象变量
    Set rst = Nothing
    Set fld = Nothing
    Set tdf = Nothing
    Set db = Nothing
End Sub

Function TableExists(tableName As String) As Boolean
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    
    ' 打开当前数据库
    Set db = CurrentDb
    
    ' 检查表是否存在
    For Each tdf In db.TableDefs
        If tdf.Name = tableName Then
            TableExists = True
            Exit Function
        End If
    Next tdf
    
    ' 关闭数据库
    db.Close
    
    ' 释放对象变量
    Set tdf = Nothing
    Set db = Nothing
    
    ' 如果表不存在，则返回False
    TableExists = False
End Function

上述代码首先检查临时表是否已存在，如果存在则删除该表。然后创建一个名为"TempTable"的新临时表，并添加一个名为"ID"的字段。接着打开临时表的记录集，添加一条记录并保存。最后关闭记录集和数据库，并释放相关对象变量。

这样，就可以在MS访问中使用VBA创建一个包含一条记录的临时表。请注意，这只是一个示例代码，你可以根据实际需求进行修改和扩展。