ola
crie um form com dois textbox e um commandbutton que recebem dados
de uma tabela access"Cliente"  que segue assim:
textbox1 = datainicial
textbox2 = datafinal
commandbutton = salvar

gostaria de saber como fazer para salvar em outra tabela chamada "relatorio"
um intervalo de datas entre o textbox1 e o textbox2.

desde já agradeço

obrigado

 

Não entendi muito bem a sua dúvida, voce quer salvar os registro dos clientes "cadastrados entre as data", ou quer apenas salvar as duas datas na tabela relatório?

Gostaria de salvar todos os clientes que estão neste intervalo de datas. Por exemplo:

entre os dias 10/10/2005 até o dia 15/10/2005 existem 30 clientes cadastrados na tabela

NÃO SEI SE ENTENDI, MAS ACHO Q VC ESTA QUERENDO SALVAR OS DADOS DA TABELA [CLIENTE] PARA A TABELA [RELATORIO] DENTRO DE UM INTERVALO, SE FOR ISSO SEGUE ABAIXO :

 

* estou considerando tb que na tabela [CLIENTE] existe uma data que vou chama-la de [DTULTCOMPRA]

DIM SQL AS STRING, DAT1 AS DATE, DAT2 AS DATE

DAT1 = FORMAT(TextBox1, "MM/DD/YYYY")
DAT2 = FORMAT(TextBox2, "MM/DD/YYYY")

SQL="SELECT Nome, Endereço, Cidade, UF, Cep, Fone FROM [CLIENTE] WHERE [DTULTCOMPRA] >= #" & DAT1 & "# AND <= #" & DAT2

DB.rsCLIENTE.OPEN SQL
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'Se vc quiser limpar a tabela RELATORIO antes de preencher com a nova pesquisa 'tire o REM da linha abaixo :
'DB.rsRELATORIO.OPEN "DELETE * FROM RELATORIO"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
DB.rsRELATORIO.OPEN

WITH DB.rsCLIENTE
      .MoveMin
      Do While Not .EOF

      DB.rsRELATORIO.FIELDS("CAMPO1") = .FIELDS("NOME")
      DB.rsRELATORIO.FIELDS("CAMPO2") = .FIELDS("ENDEREÇO")
      DB.rsRELATORIO.FIELDS("CAMPO3") = .FIELDS("CIDADE")
      DB.rsRELATORIO.FIELDS("CAMPO4") = .FIELDS("UF")
      ....

      ..

      .MoveNext
LOOP

 

Espero ter ajudado,

CORREÇÃO :
WITH DB.rsCLIENTE
      .MoveMin   --------------> Trocar para .MoveMin
      ....

      ...

estou tentando escrever ===> [MOVEMin] e não MoveMin!!!!