Boa noite, tenho uma tabela “agenda” ao qual gostaria de gerar um critério para quando eu digitar nos campos do meu formulário Data Inicio e a Data Termino, as datas serão preenchidas automaticamente. Até ai eu consegui. Porem queria filtrar a seqüência pelas datas da semana por exemplo somente as segundas-feiras deverão ser preenchidas.

Segue abaixo o código que estou utilizando.

Function Recorrencia()

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Dim Inicio As String
Dim Termino As String
Dim DataInicio As Date
Dim DataFinal As Date
Dim Contador As Integer
Dim NovaData As Date

Set db = CurrentDb()
Set rs = db.OpenRecordset("OrigemDatas")
Set rs1 = db.OpenRecordset("Datas")

Do While Not rs.EOF
Contador = 0
DataInicio = rs.Fields("Start")
DataFinal = rs.Fields("Finish")
Do
Contador = Contador + 1
NovaData = DateAdd("d", Contador -1, DataInicio)
'Grava data na tabela
rs1.AddNew
rs1!Dias = NovaData
rs1.Update
'Se gravou a última data sai do loop "DO"
' e vai para o próximo Colaborador
If NovaData = DataFinal Then Exit Do
Loop
rs.MoveNext
Loop
rs.Close
rs1.Close
End Function

Forte abraço a todos.

Ramon

Olá bom dia.

Tenho uma agenda que lanço alguns afazeres nesta, porem tenho que lançar registro por registro.

Gostaria de gerar uma instrução ao qual eu digito um período, exemplo: 09/10/2010 a 29/11/2010, nos seguintes dias Terças / Quartas / Domingo, no horário das 17:45, com o registro “Culto Evangélico na Igreja Batista”.

Grato

Ramon

Tenho uma agenda que lanço alguns afazeres nesta, porem tenho que lançar registro por registro.

Gostaria de gerar uma instrução ao qual eu digito um período, exemplo: 09/10/2010 a 29/11/2010, nos Dias seguintes dias Terças / Quartas / Domingo, no horário das 17:45, com o registro “Culto Evangélico na Igreja Batista”.

teria como voces me ajudarem nisto

Grato

Ramon