[Resolvido]Formulario de criar tabela de horas

Boa tarde amigos

Neste exemplo que anexo:

Queria que ao marcar na hora inicial 08:00 horas e na última hora 20:00 com a duração de 60 minutos

marcava ás 08:00

marcava ás 09:00

marcava ás 10:00  etc ...........

e a ultima seria marcada ás 19:00

Fala Assis. Bom, vamos supor uma tabela chamada tblHorarios e um formulário com os campos txtHoraInicial, txtHoraFinal e txtIntervalo:

Código:

Dim D As Date

For D = Me.txtDataInicial To Me.txtDataFinal
    CurrentDb.Execute "INSERT INTO tblHorarios(CampoHoras) VALUES(#" & DateAdd("d", Me.txtIntervalo, D) & "#"
Next


Mais ou menos isso.

Boa tarde

Criquio

Tem ai o exemplo anexado ..

Na altura que criei foi com uma dica sua ...

Veja um pequeno exemplo que preparei aqui. Nesse exemplo há um grupo com dois botões de opção para escolher se quer inserir horas ou minutos. Eu coloquei 60 na linha "Valor de opção" da aba "Dados" nas propriedades do botão de opção da hora e 1 na mesma linha do botão de opção do minuto. Assim, na hora de inserir, será feita uma multiplicação entre esse valor e a quantidade de tempo. Se a quantidade for 1 e for escolhido hora, serão adicionadas as horas de 1 a 1 entre a hora inicial e a hora final. Se tiver escolhido minuto, serão inseridos os minutos de 1 a 1.
↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓

Grande Criquio

Obrigado