Modelo de código para o evento:
Private Sub btnEvento_Click()
' DEFINIÇÃO DE VARIÁVEIS
Dim a, b, cont As Integer
Dim cmdSQL As String
' DEFININDO VALORES INICIAIS
a = CInt(Texto1)
b = CInt(Texto2)
cont = 0
' INÍCIO DO LOOP
While cont < b
infoStatus.Caption = "Inserindo dados em sua base de dados, aguarde..."
cmdSQL = "INSERT INTO Tabela1 (ID, Coluna1) VALUES " & _
"(" & a & ", 'Softaccess');"
Set conn = CurrentProject.Connection
conn.Execute cmdSQL
a = a + 1
cont = cont + 1
Wend
Caso queira um arquivo com o modelo de aplicação, me envie um e-mail (paulinhoamc@hotmail.com ou
paulo.cesar@mail.com).
Espero ter atendido.
Sem mais.
________________________________ Paulo Cesar paulo.cesar@mail.com