MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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 : 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 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 10 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3326
    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 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 | [Resolvido]Gerar 1 milhão de registros automatico LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    avatar
    SamyEcheverria
    Novato
    Novato

    Respeito às regras : 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 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3326
    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 29/1/2019, 03:14

    Isso aí meu amigo!


    .................................................................................
    Marcelo David | [Resolvido]Gerar 1 milhão de registros automatico LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev

      Data/hora atual: 13/6/2021, 01:09