"Search Key Not Found" Error when running macro

Option Compare Database
 
Public Sub NewParetoGen()
 
'Delete Existing Tables
 
'Declare strSource As String, strTarget As String
    Dim strSource As String
    Dim strTarget As String
 
'set them equal to the intended arguments
    strSource = "FifteenthStWoodqryFPYPareto"
    strTarget = "FifteenthStWoodFPYParetoTable"
 
    'If CheckTableExists(strTarget) = True Then
        'DoCmd.DeleteObject acTable, strTarget
    'End If
 
    Call NewTransposer(strSource, strTarget)
 
End Sub
 
Function NewTransposer(strSource As String, strTarget As String)
 
   Dim db As DAO.Database
   Dim tdfNewDef As DAO.TableDef
   Dim fldNewField As DAO.Field
   Dim rstSource As DAO.Recordset, rstTarget As DAO.Recordset
   Dim i As Integer, j As Integer
 
   'On Error GoTo Transposer_Err
 
   Set db = CurrentDb()
   Set rstSource = db.OpenRecordset(strSource)
   rstSource.MoveLast
 
   ' Create a new table to hold the transposed data.
   ' Create a field for each record in the original table.
   Set tdfNewDef = db.CreateTableDef(strTarget)
   For i = 0 To rstSource.RecordCount
      Set fldNewField = tdfNewDef.CreateField(CStr(i + 1), dbText)
      tdfNewDef.Fields.Append fldNewField
   Next i
   db.TableDefs.Append tdfNewDef
   tdfNewDef.Fields(0).Name = "Defect"               ' <-- added
   tdfNewDef.Fields(1).Name = "QTY"
 
If DoesTblExist(strTarget) = True Then
     DoCmd.SetWarnings False
     DoCmd.DeleteObject acTable, strTarget
     DoCmd.SetWarnings True
End If
 
DoCmd.CopyObject , strTarget, acTable, strSource
 
End Function
 
'-----------------------------------------------------------
'Added function:
'-----------------------------------------------------------
Public Function DoesTblExist(strTblName As String) As Boolean
    On Error Resume Next
    Dim db As Database, tbl As TableDef
    Set db = CurrentDb
    Set tbl = db.TableDefs(strTblName)
    If Err.Number = 3265 Then   ' Item not found.
       DoesTblExist = False
       Exit Function
    End If
    DoesTblExist = True
End Function

Select allOpen in new window