Public Sub SC2(tblname)
Dim tbls()
Dim it As Integer
Dim k As String
Dim dc As Long
Dim j As Long

dc = DCount("*", "Таблица")
it = dc \ 50000
ReDim tbls(0 To it)
   For j = 1 To it
   CurrentDb.Execute "CREATE TABLE [Таблица(" & j & ")] ([cod] INT, [ob] VARCHAR, [ind] FLOAT)"
   CurrentDb.Execute "INSERT INTO [Таблица(" & j & ")] SELECT TOP 50000 * FROM Таблица"
   CurrentDb.Execute "DELETE FROM (SELECT TOP 50000 * FROM Таблица)"
   Next j
   
   If DCount("*", "Таблица") > 0 Then
   k = CStr(it + 1)
   DoCmd.Rename "Таблица(k)", acTable, "Таблица"
   End If
   MsgBox "Парам-парам-ПАМ!"
End Sub