[Resolvido]registro sequencial de acordo com caixa de texto

tenho uma caixa de texto onde coloco um valor numerico "100", e outra caixa de texto que coloco outro valor "5"

preciso que com essa informação aconteça o seguinte
seja incluido em uma tabela
100
101
102
103
104

se colocar outro numero "y" na primeira caixa e na segunda colocar "x"
onde o "y" é o numero inicical e "x" será o numero de vezes a serem somados.

Olá, veja se atende:

Código:

Option Compare Database

Sub gera_seq()
   
    intInicial = 100
    intNumVezes = 5
   
    intSequencia = intInicial
   
    For intSequencia = intInicial To intInicial + intNumVezes
        MsgBox intSequencia
        ' Aqui coloca o que pretende efetuar
    Next

End Sub


Abraço

teixeira

fiz conforme abaixo, mas ele fica infinitamente

Dim strSql As String, rstTemp As dao.Recordset

intInicial = txtregistro
intNumVezes = txtnum
'intsequencia = intInicial

For intsequencia = intInicial To intInicial + intNumVezes
MsgBox intsequencia
strSql = "Select * from tbnumero where numero = '" & txtregistro & "'"
Set rstTemp = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)
rstTemp.AddNew
rstTemp("numero") = intsequencia
rstTemp.Update
rstTemp.Close
' Aqui coloca o que pretende efetuar

Next

coloquei 100 no txtregistro e 5 no txtnum, mas tive que brecar pq ficou loop infinito.

Bom, estou no telemóvel e não posso ajudar muito.
Testou a dar só a mensagem? Pendurou?
Também se a ideia é fazer os registos seguidos, não precisa estar abrir e fechar o recordset, bastava movenext
Pode também optar por colocar logo a instrução sql, exeplo

Docmd.execute"insert into ...."

Abraço

entendi. está fazendo a função corretamente mas exemplo coloquei no txtregistro = 100 e txtnum = 5
ele deveria passar pelo for 5 vezes e incluir na tabela até o 105, mas a mensagem passa do 105 e vai embora.

Olá o problema está por ser campo txt (string), então 100 + 5 é igual a 1005 (vezes).
Coloque antes de iniciar assim:

Código:

Dim intInicial As Integer
Dim intNumVezes As Integer
Dim intSequencia As Integer

Veja o meu teste do_ifahidalgo.zip
Abraço

perfeito. obrigado

Olá, obrigado pelo retorno, os utilizadores do fórum agradecem.
Abraço