Const SQL_APPEND_TABLE_OCEAN_TA = "INSERT INTO tempTAOcean ( TAid ) " _
                                    & "SELECT dbo_D00_tblTA_TLEU.*, [TA CreCode] & '-' & [TA CreType] & '-' & [TA No] AS TAid " _
                                    & "FROM dbo_D00_tblTA_TLEU " _
                                    & "WHERE ((([TA CreCode] & '-' & [TA CreType] & '-' & [TA No])='@@TAid@@'))"

Public Sub CreateTAOcean()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("dbo_vwD51ValidTA")
'Create the table
    
DoCmd.SetWarnings False

Do While Not rs.EOF
    strSQL = SQL_APPEND_TABLE_OCEAN_TA
    strSQL = Replace(strSQL, "@@TAid@@", rs!ta_id)
    DoCmd.RunSQL strSQL
    rs.MoveNext
    Debug.Print rs!ta_id
Loop