MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Gerar 1 milhão de registros automatico

    avatar
    SamyEcheverria
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 11/01/2019

    [Resolvido]Gerar 1 milhão de registros automatico Empty [Resolvido]Gerar 1 milhão de registros automatico

    Mensagem  SamyEcheverria em 27/1/2019, 19:20

    Boa tarde, pesoal!

    Eu peguei este codigo para preencher uma tabela com dados em um site, mas não consigo entender qual o problema. Está dando erro de compilação na linha que está em vermelho! Segue o código...


    Option Compare Database

    Private Sub btCriarRegistros_Click()
    Dim NomeCliente
    Dim SobreNome
    Dim Rnv
    Dim Ope
    Dim j As Long
    Dim k As Long
    Dim strSql As String
    Dim rs As DAO.Recordset
    Dim Escala As Single

    If Len(Me!txTotal & "") = 0 Or Me!txTotal > 5000000 Or Me!txTotal <= 0 Then
      MsgBox "Valor fora da escala (1 a 5 milhões)...", vbInformation, "Aviso"
      Exit Sub
    End If
    '-----------------------
    'Abre tabela tblTeste
    '-----------------------
    Set rs = CurrentDb.OpenRecordset("tblTeste")
    '---------------------------
    'Habilita botão Abortar
    '---------------------------
    Me!btAbortar.Enabled = True
    '-------------------------------------------
    '66 nomes armazenados na matriz NomeCliente
    '--------------------------------------------
    NomeCliente = "Avelino,Pedro,Luiz,Elizabete,Thais,kelly,Gilberto,Claudio,..."
    NomeCliente = Split(NomeCliente, ",")
    '-----------------------------------------------
    '34 sobre nomes armazenados na matriz SobreNome
    '-----------------------------------------------
    SobreNome = "Sampaio,Henrique,Barbosa,Carvalho,Santana,Abreu,Santos,.."
    SobreNome = Split(SobreNome, ",")
    '----------------------------------------
    'False e True armazenados na matriz Rnv
    '----------------------------------------
    Rnv = Split("0,-1", ",")
    '------------------------------------------------
    '6 nomes de operadoras armazenados na matriz Ope
    '------------------------------------------------
    Ope = Split("Vivo,Claro,Tim,OI,Nextel,GVT", ",")
    '---------------------------------------
    'Definindo escala da barra de progresso
    '---------------------------------------
    Me!Caixa.Width = 0.01
    Escala = (567 * 3) / Me!txTotal
    '-------------------------------------------------------------------
    ' Adicionando os registros, com dados aleatórios, na tabela tblTeste
    '--------------------------------------------------------------------
    For j = 0 To (Nz(Me!txTotal, 0)) - 1
      rs.AddNew
         rs!NomeCliente = NomeCliente(Int(Rnd() * 66)) & " " & SobreNome(Int(Rnd() * 34))
         rs!dataNascimento = CDate(Int(Rnd() * 29949) + 10959)
         rs!Operadora = Ope(Int(Rnd() * 6))
         rs!ValorCobrado = Round(Int(Rnd() * 450) * 1.3457, 2)
         rs!Nota = Int(Rnd() * 11)
         rs!Renovar = Rnv(Int(Rnd() * 2))
      rs.Update
      Randomize
      k = k + 1
      DoEvents
      If booAbortar Then: Exit For
      If Sel = 0 Then: Me!Caixa.Width = Escala * k
    Next
    booAbortar = False
    MsgBox "Foram criados " & k & " registros...", vbInformation, "Aviso"
    Me!Caixa.Width = 0.01
    Me!TxInforme.Requery
    Me!txTotal = Null
    Me!txTotal.SetFocus
    Me!btAbortar.Enabled = False
    End Sub
    Anexos
    [Resolvido]Gerar 1 milhão de registros automatico Attachmentdadostabela.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (29 Kb) Baixado 8 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2708
    Registrado : 21/04/2011

    [Resolvido]Gerar 1 milhão de registros automatico Empty Re: [Resolvido]Gerar 1 milhão de registros automatico

    Mensagem  Marcelo David em 27/1/2019, 20:04

    Olá, boa tarde...

    Código:
    '66 nomes armazenados na matriz NomeCliente
    '--------------------------------------------
    NomeCliente = "Avelino,Pedro,Luiz,Elizabete,Thais,kelly,Gilberto,Claudio,..."

    NomeCliente = "Avelino,Pedro,Luiz,Elizabete,Thais,kelly,Gilberto,Claudio,..."
    Não há 66 nomes e sim 9, contando com as ....

    Precisa haver 66 nomes separados por vírgulas.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    SamyEcheverria
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 11/01/2019

    [Resolvido]Gerar 1 milhão de registros automatico Empty Re: [Resolvido]Gerar 1 milhão de registros automatico

    Mensagem  SamyEcheverria em 29/1/2019, 01:38

    Muito obrigado!

    Eu achei que o problema era não ter declarado como matriz, mas depois eu vi que não era isto.

    Salvou!!!
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2708
    Registrado : 21/04/2011

    [Resolvido]Gerar 1 milhão de registros automatico Empty Re: [Resolvido]Gerar 1 milhão de registros automatico

    Mensagem  Marcelo David em 29/1/2019, 03:14

    Isso aí meu amigo!


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)

    Conteúdo patrocinado

    [Resolvido]Gerar 1 milhão de registros automatico Empty Re: [Resolvido]Gerar 1 milhão de registros automatico

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/5/2019, 02:46