[Resolvido]Vários registros através do botão

Pessoal, boa tarde.

Preciso de uma sugestão de como incluir numa tabela, vários registros de uma vez... ou seja, por exemplo:
No formulário tenho o campo de "nome", "data_inicial", "data_final" e "atividade"

Preencho todos os campos, mas digamos que a data inicial seja "01/01/13" e data final seja "07/01/13".
eu preciso criar na tabela sete registros através de um botão e nos campos "nome" e "atividade" deve repetir conforme o que foi preenchido neste campo.

Alguem pode ajudar?

Abs

Olá cvasborg, tente assim:

'Código do seu botão

Dim strSQL As String
Dim sNome As String
Dim sDataInicial As Date
Dim sDataFinal As Date
Dim sAtividade As String

sNome = Forms!NomedoSeuForm!nome
sDataInicial = Format(Forms!NomedoSeuForm!data_inicial, "dd/mm/yyyy")
sDataFinal = Format(Forms!NomedoSeuForm!data_final, "dd/mm/yyyy")
sAtividade = Forms!NomedoSeuForm!atividade

'tblSelecao é a sua tabela onde serão inseridos os valores do formulário. (Coloque o campo Codigo com Numeração Automática)
strSQL = "INSERT INTO tblSelecao(nome,datainicial,datafinal,atividade)VALUES ('" & sNome & "','" & sDataInicial & "','" & sDataFinal & "','" & sAtividade & "')"
CurrentDb.Execute strSQL

Obrigado good guy!
só não entendi como que este processo vai repetir 7 vezes a gravação do registro... ou seja, seria os seguintes registros com as datas:
01/01/13
02/01/13
03/01/13
04/01/13
05/01/13
06/01/13
07/01/13
abravés de um botão...
Absss

Olá cvasborg,

Não entendi se essas datas são de DataInicial e DataFinal.

Private Sub cmdInserir_Click()
Dim rs As DAO.Recordset
Dim strSQL As String
Dim sNome As String
Dim sDataInicial(7) As Date
Dim sDataFinal(7) As Date
Dim sAtividade As String
Dim i As Integer

sNome = Nz(Forms!Clientes!cboNomes.Column(0), 0)
sDataInicial = Format(Forms!Clientes!data_inicial, "dd/mm/yyyy") 'Aqui você varia as datas
sDataFinal = Format(Forms!Clientes!data_final, "dd/mm/yyyy") 'Aqui você varia as datas
sAtividade = Forms!Clientes!Atividade

Set rs = CurrentDb.OpenRecordset("SELECT * FROM Clientes") 'Ou "SuaTabela", dbOpenTable)

i = rs.fields("ID")
For i = 1 To rs.RecordCount

strSQL = "insert into Clientes(Nome,DataInicial,DataFinal,Atividade)VALUES ('" & sNome & "','" & sDataInicial & "','" & sDataFinal & "','" & sAtividade & "')"
CurrentDb.Execute strSQL
Next i
End Sub

Obrigado pessoal...
acabei resolvendo o problema desta forma:

Private Sub BotaoEx_Click()
If [datafinal] >= [datainicial] Then
Do While (datafinal >= datainicial)
data = datainicial
datainicial = datainicial + 1
nome = nomefrm
atividade = atividadefrm
DoCmd.GoToRecord , , acNewRec
Loop
End If
DoCmd.GoToRecord , , acNewRec
datainicial = ""
datafinal = ""
nomefrm = ""
atividadefrm = ""