[Resolvido]Lançamento de Dados em Lote

Bom dia amigos!

Tenho um formulário que possui os campos: DATA INICIAL, DATA FINAL e VALOR.  Preciso inserir em uma tabela o registro do campo VALOR no intervalo das datas.

Ex:

DATA INICIAL: 21/08/2013
DATA FINAL: 23/08/2013
VALOR: 5

na tabela após a inserção deverá ficar assim:

DATA	VALOR
21/08/2013	5
22/08/2013	5
23/08/2013	5

Alguma solução?

Obrigado!

Ola;

Pensando eu, que você tem 3 caixas de texto no seu formulário;

Caixa de texto 1 = txtDataInicio
Caixa de texto 2 = txtDataFim
Caixa de texto 3 = txtVALOR

Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
'Habilite a referencia VBA
'Microsoft DAO 3.6 Object Library
Dim rst As DAO.Recordset
Dim x As String

   Set rst = CurrentDb.OpenRecordset("SuaTabela", dbOpenDynaset)
   
   If rst.RecordCount = 0 Then Exit Sub
   
   rst.MoveLast
   rst.MoveFirst
   
   Do While Not rst.EOF
   
     If rst!Data >= CDate(Me.txtDataInicio) And rst!Data <= CDate(Me.txtDataFim) Then
        rst.Edit
        rst.Fields("VALOR") = Val(Me.txtVALOR)
        rst.Update
        Else
        End If
      rst.MoveNext
   Loop
 MsgBox "Atualização efetuada com sucesso...", vbInformation
rst.Close
Set rst = Nothing
End Sub

E ae Resolveu ?

Muito Obrigado JPaulo!

Com base em seu código modelei o meu projeto de acordo com o que precisava.

Desculpe pela demora na resposta!

abraços!

Obrigado pelo retorno o forum agradece.