DAO建立临时表

Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld1 As DAO.Field
    Dim fld2 As DAO.Field
    Dim fld3 As DAO.Field
    Dim rst As DAO.Recordset
    Dim strSQL As String
    Dim strTableName As String
 
    strSQL = "SELECT RYOHANCD, OSComputerName " & _
             "INTO tblTemp " & _
             "FROM DDPSLOCK"
    EosDdpsDb.Execute strSQL
 
    Set db = EosDdpsDb
    Set tdf = db.TableDefs("tblTemp")
    Set fld1 = tdf.CreateField("RYOHANCD", dbLong)
    Set fld2 = tdf.CreateField("OSComputerName", dbText, 200)
    Set fld3 = tdf.CreateField("RYOHAN", dbText, 30)
 
    'テーブルにフィールドを追加する
    tdf.Fields.Append fld3
 
    Set rst = db.OpenRecordset("tblTemp", dbOpenTable)
 
    With rst
        .MoveFirst
        Do
            .Edit
            .Fields("RYOHAN") = GetRYOHANNAM(.Fields("RYOHANCD"))
            .Update
            .MoveNext
        Loop Until .EOF
    End With
 
    rst.Close
    Set rst = Nothing
 
    db.TableDefs.Delete ("tblTemp")