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


    loop para inserir dados em uma tabela

    avatar
    samueldrun
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 22/09/2017

    loop para inserir dados em uma tabela  Empty loop para inserir dados em uma tabela

    Mensagem  samueldrun em 9/8/2019, 13:26

    Bom dia mestres,

    como poderia desenvolver um loop para adicionar registros em uma tabela ? estou tentando assim porem não está dando certo:

    Dim d As DAO.Recordset
    Dim s As Integer

    d.AddNew

    Me.txtteste.Value = "seila"
    d.MoveNext
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 418
    Registrado : 01/08/2011

    loop para inserir dados em uma tabela  Empty Re: loop para inserir dados em uma tabela

    Mensagem  ronaldojr1 em 9/8/2019, 13:47

    bom dia

    segue estrutura basica de repetição junto com a adição de dados na tabela

    Código:
    Dim rs As recordset
    Dim i As Integer
    Dim xVezes As Integer

    'abre a tabela
    Set rs = CurrentDb().OpenRecordset("tabela1")

    'numero de vezes q ira repetir
    xVezes = 5

    'estrutura de repetição
    For i = 1 To xVezes
        'comando usado para adicionar um novo registro
        rs.AddNew
            'atribuição de valores no campo nmCampo.
            rs!nmCampo = "Sei la " & i 'o comando & i ira colocar no final da frase Sei la a posição atual do loop, iniciando com 1
        'comando usado para salvar o registro recém criado
        rs.Update  
    Next i 'avança

    'fecha a tabela
    Set recordset = Nothing

      Data/hora atual: 21/8/2019, 13:17