[Resolvido]Criar 100 milhões de registros divididos em tabelas com 1 milhão cada tabela

Preciso criar 100 tabelas com 1 milhão de registros cada uma.

Tabela_01:
CodigoObjeto1: Numeração Automática
NumeroObjeto: Texto

Primeiro registro (campo "NumeroObjeto"): JC00000001BR
Ultimo Registro (campo "NumeroObjeto"):   JC01000000BR



Tabela_02:
CodigoObjeto2: Numeração Automática
NumeroObjeto: Texto

Primeiro registro (campo "NumeroObjeto"): JC01000001BR
Ultimo Registro (campo "NumeroObjeto"):   JC02000000BR
.
.
.
e assim por diante ate o registro de numero JC99999999BR

Alguem pode ajudar?
Estou criando os registros pelo excel, fazendo manualmente e importando, mas cada planilha demora séculos para finalizar a importação.

Alguem poderia me dar uma luz?
obrigado

Olá Flavio Leal,

Creio ser possível apesar do numero de registos (só testando o espaço em disco que vai opcupar).

Entretento, verifico que tem vários tópicos abertos o qual não deu retorno nem deu como Resolvido.
Verifique e regularize a situação.

Abraço

Boa noite ahteixeira
Infelizmente só achei hoje o botão "resolvido".
Se puder me ajudar serei grato.
Prestarei mais atenção e terei mais cuidado.

Olá, Olá Flavio Leal,

Tem aqui um esboço do caminho das pedras é só ajustar:

Código:

Sub teste()
'ahteixeira 2019
    Dim nTabela, numObj As String
    Dim iTab, iObj, i As Long
    Dim rs As DAO.Recordset
   
    'aqui faz da tabela 1 a 2, ajustar para pretendido
    For iTab = 1 To 2
   
        nTabela = "Tabela_" & Format(iTab, "00")
        CurrentDb.Execute "CREATE TABLE " & nTabela & " (CodigoObjeto1 AutoIncrement CONSTRAINT CodObj1 PRIMARY KEY, NumeroObjeto CHAR(15));"
   
        Set rs = CurrentDb.OpenRecordset(nTabela)
   
        'aqui faz registos 1 a 10000 por tabela, ajustar para pretendido
        For i = 1 To 10000
            iObj = iObj + 1
            numObj = "JC" & Format(iObj, "00000000") & "BR"
            rs.AddNew
                rs!NumeroObjeto = numObj
            rs.Update
            DoEvents
        Next
       
        rs.Close
        Set rs = Nothing
    Next
End Sub

Está a fazer para duas tabelas 10000 registos em cada com a sequencia pretendida.
Creio que o ideal será ajustar codigo para cada tabela ser uma base de dados separada.

Abraço

Perfeito ahteixeira
Muito obrigado. Deu Certo!
Mas estou passando por um problema: apos determinada etapa, da erro e a criação dos registros para em determinado numero.
Como fazer para iniciar em determinado numero?

Olá Flávio,

Altere na parte do FOR, tem de 1 a 10000 aqui é onde deve alterar.

Abraço

Muito obrigado pela ajuda.
Tudo certo!!!

Olá Flavio,

Obrigado pelo retorno, o fórum agrafece.

Abraço