[Resolvido]Executa loop em um registro e adicionar valor em mais de um campo

Olá mestres!

Então venho solicitar a ajuda de vocês para esse problema...

Tenho um form com dois botões, Salvar e Excluir.
Quero que ao clicar em Salve ele vá na Tbl, encontre o registro e marque de FI a FF.
E antes de  Excluir ele vá na Tbl, encontre o registro e desmarque de FI a FF.  

Desde já muito obrigado a todos.

Olá Alexandre.

Desculpa a minha falha por não ter me expresado bem...
Cada registro vai de F001 á F200, logo terei que formatar o texto pois no formulario so é digitado os numeros, por exemplo: 004, 060, 149.

Olá Alexandre Fim.

Ótimo código!

Mais quero que ele fique mais altomatico.

Minha sugestão e a seguinte...

Partindo do principio de tenho o campo principal que seria o Livro e mais dois campos em que coloco a Folha inicial e Folha Final.

Qual a possibilidade de geral esses campos sequencial no subformulário?

Exemplo:

no livro: 1218-N, FI: 008, FF: 020, ele gerar um subformulário com a sequencia ficaria...

1;Livro;F008;F009;F010;F011;F012;F013;F014;F015;F016;F017;F018;F019;F020

E logo apos geral o subformulário ele ativa o laço como você avia criado.

Desde já muito obrigado vou usar este código em outro que estava em mente, muito grato!

Olá Alexandre Fim

Para esse projeto não!

A tbl em questão tem exatas 207 colunas, basicamente a função que quero executar e pegar essa folha inicial e final e marca-las em sequencia na tabela que não faz parte do formulário por isso minha insistência nesse método de gerar uma sequência de campos automático baseado na sequencia que sara informado no formulário, assim marca-las e desmarca-las conforme comando.

Muito obrigado pelo seu auxílio!

Alexandre Fim,

No inicio do projeto eu avia cogitado esse formato mas identifiquei que iria adicionar muitas linhas sem a devida necessidade das mesmas.
Respondendo seu argumento eu utilizo as 200 folhas!

Esse formulario em questão vai alimentar outra tabela adicionado estas sequencia em um protocolo, afirmo que esse formulario ja esta em uso minha dificuldade esta em manipular essa sequencia e marca essas folhas completando assim a tabela livro...

O codigo que você desenvolveu e sim oque eu estava procurando ajudou muito vou tentar agora manipular a sequencia pra executar o msm

Muito obrigado pela ajuda meu caro...

Colega Alexandre obrigado pelo código!

Apos uma analisada no código que avia escrito eu compilei da seguinte maneira...

Código:

Option Compare Database
Dim db          As DAO.Database 'variavel que assume as propriedados do banco de dados
Dim rs          As DAO.Recordset 'variavel que assume as propriedades da tabela
Dim msql        As String 'variavel que armazena instrução SQL
Dim i, FI1, FF2 As Integer 'variavel utilizada como contador

'Instrução genériaca utilizada conforme parametro (nValor) informado
Public Sub GravaDados(nValor As Integer)

    Set db = CurrentDb
    msql = "SELECT * FROM nometabela WHERE campocod=" & Me.campocodnoform & ""
    Set rs = db.OpenRecordset(msql, dbOpenDynaset)
    FI1 = FI
    FF2 = FF
    
        With rs
           'Laço da folha inicial a folha final na tabela, comecando do FI
            For i = FI1 To FF2   'define o index do campo na tabela
            .Edit
            .Fields(i).Value = nValor 'Altera o devido campo
            .Update 'Atualiza o campo na tabela
            Next i
        End With

    rs.Close 'Fecha o recordset
    Set rs = Nothing 'Limpa da memória
    
End Sub

Dasta maneira posso escolher os campo inicial e final para devidas marcações...


Encerro esse tópico muito feliz com e resultado.