[Resolvido]Gerar Agenda

Boa Noite pessoal!

Gostaria de saber se alguém tem algum código pasra gerar uma agenda (Ou seja datas e horários), por um determinado período (Intervalo)

Exemplo:
Um código que no evento do botão ao clicar gerara datas e horários na tabela:

Tabela: TAB_AGENDAMENTO
Campo: DATA_AGEND e HORA_AGEND, escolheria um intervalo ( 24/10/2011 à 25/10/2011 )e que fosse horários de 30 em 30 minutos

Ficaria assim:

24/10/2011 08:00
24/10/2011 08:30 e assim por diante até o dia 25/10 ( que foi o intevalo escolhido)

Achei um exemplo na maneira que queria aqui noi repositório do Mestre JPaulo (AGENDA2000), mas não consigo acessar a estrutura com a tecla shift

Fico no aguardo e sei que posso mais uma vez contar com todos...

Vamos supor uma tabela de nome tblAgenda com os campos Dta e Hra e um formulário com os campos txtDataInicial e txtDataFinal. No clique do botão, algo assim:

Dim D As Date
D = Me.txtDataInicial

    Do While D <= Me.txtDataFinal
        CurrentDb.Execute "INSERT INTO tblAgenda(Dta, Hra) VALUES('" & Format(D, "dd/mm/yyyy") & "', '" & DateAdd("n", 30, D) & "')"
        D = DateAdd("n", 30, D)
    Loop

MsgBox "Concluído", vbInformation, "Aviso"

Clicão, Grande amigo!

Não consego fazer o teste hoje, pois estou no bagaço, mas agradeço o seu rápido retorno e certo que terei a solução como mencionado.

mais uma vez agradeço e amnhã lhe respondo

Abraços

Boas Criquio!

Até gerou a Agenda!!! mas com um problema no intervalo! Coloco de 15/10 Até 31/10 e cria as datas, mas no horário só cria um horário por data Ex: 12:30 para todas as datas (Uma única vez). o que eu queria é que gerasse as datas e nestas datas os horários de 30 em 30 minutos. Se possível até com intervalo também. Ex: de 07:00 até as 19:00 hs (Que eu pudesse escolher), como ficaria:

25/10/2011 08:00
25/10/2011 08:30
25/10/2011 09:00
aSSIM POR DIANTE

Desculpe se não fui claro o suficiente na mensagem anterior e desgastar seu tempo neste tópico e conto com você

Mais uma vez agradeço antecipadamente...

Pois eu fiz dessa forma e funcionou direitinho. Dê uma olhada no anexo ↓abaixo↓

Criqu]ao, vc é o cara!!!!

realmente eu estava errando! Não coloquei a chave primária na tabela e o mesmo assumiu como o campo data e não gerava. Agradeço de montão (Está funfando). Mas um desafio aproveitando o ensejo Tem como o loop iniciar em 07:00 da manhã? ou eu escolher um intervalo para determinar qual horário eu quero trabalhar? Exigente~..Não? rsrsrsrsrs

Valeu e fico no aguardo.

Coloque mais duas textbox nesse exemplo que eu lhe enviei de nome txtHoraInicial e txtHoraFinal e altere o código para:

		
			
Dim D As Date
D = Format(Me.txtDataInicial, "dd/mm/yyyy") & " " & DateAdd("n", -30, Me.txtHoraInicial)

    Do While D < DateAdd("h", Format(Me.txtHoraFinal, "hh"), Me.txtDataFinal)
    If Format(D, "hh:nn") >= Format(Me.txtHoraFinal, "hh:nn") Then
        D = DateAdd("d", 1, Format(D, "dd/mm/yyyy")) & " " & DateAdd("n", -30, Format(Me.txtHoraInicial, "hh:nn"))
    End If
        CurrentDb.Execute "INSERT INTO tblAgenda(Dta, Hra) VALUES('" & Format(D, "dd/mm/yyyy") & "', '" & Format(DateAdd("n", 30, D), "hh:nn") & "')"
        D = DateAdd("n", 30, D)
    Loop

MsgBox "Horas inseridas com sucesso.", vbInformation, "Sucesso"
		

Críquio, mais uma vez... Tá valendo!!

Muitissimo obrigado.

Abraço Fraterno

RESOLVIDO!!!

Obrigado pelo retorno. O forum agradece!

Caros colegas,

Mto bom o exemplo anexado pelo amigo Criquio, porem ao clicar no botao aprarece erro (biblioteca invalida)... Alguem poderia me ajudar?

Ola galera, peço licença a todos, aproveitei o exemplo do criquio, o que é ótimo e dei uma incrementada
para adapta-lo as minhas necessidades, junto as datas e horarios inclui uma txtbox de intervalo de tempo
onde pode-se determinar qual o intervalo de tempo entre um horaro e outro.

No meu caso tbm deu erro na biblioteca, mas era no seguinte arquivo barcodex.ocx(esta no anexo), resolvi o problema fazendo o download do msm, para instala-lo va em
C:\Program Files\Microsoft Office\Office14

espero ter ajudado.


Um abraço a todos, e claro muito obrigado pela ajuda, ja estava a muito tempo procurando por essa solução de gerar uma agenda.

Alguem sabe me dizer se existe a possibilidade de nesse exemplo eu colocar 7 checkbox seg,ter,qua,qui,sex,sab,dom
pelo seguinte, tem medicos que nao atendem todos os dias, mas atende na seg, qua, e na sex, assim poderia selecionar os dias da semana em que ele atende, e geraria apenas datas e horarios, para aqueles dias da semana selecionados.

DEsculpa norbis, mas nao entendi sua resposta

Desculpa, valeu pelo toque, coloquei o arquivo a disposição, só pelo fato de no meu ter dado o erro, e caso alguem tenha a mesma dificuldade, mas o que você disse é mais simples... rsrsrsrs...

Brigadão!

Alguem poderia me ajudar, surgiu a seguinte questao na hora de criar a agenda de um medico
ele atende em dias alternados, ex: seg, qua, sex, teria como colocar essa opção no gerador, ja quebrei a cabeça em como fazer mas ainda não consegui, se puderem me ajudar agradeço.

Talvez adicionando na linha abaixo:

If Format(D, "hh:nn") >= Format(Me.txtHoraFinal, "hh:nn") And (Format(D, "w") = 2 Or Format(D, "w") = 4 Or Format(D, "w") = 6) Then

O "w" retorna o número do dia da semana.

Ok, criquio vou testar

Obrigado!

Cara.. nao rolou
caramba nao consegui fazer

Vo anexar um exemplo de como eu queria fazer... se puderem dar uma forca mais uma vez agradeco.
Não consegui postar aqui o arquivo, por isso coloquei nesse endereço

https://www.dropbox.com/home?select=gerador%20agenda.zip#!/home

O link está incorreto. Verifique aí.

link correto

http://dl.dropbox.com/u/66900159/gerador%20agenda.zip

Ando meio sem tempo para poder me dedicar a implementar exemplos, mas uma dica pode ser você nomear os checkbox de acordo os dias da semana, por exemplo:

Domingo = D1
Segunda = D2
...
Sábado = D7

Depois, pode usar esse número para comparar com o dia da semana na função, mais ou menos assim:

If Me("D" & Format(D, "w")) = 0 Then
D = DateAdd("d", 1, Format(D, "dd/mm/yyyy")) & " " & DateAdd("n", -i, Format(Me.txtHoraInicial, "hh:nn"))
...

Obrigado, vou testar.

Ola pessoal

tentei desta forma, porem dava erro, ai tentei entao fazer isto, porem to com problema no if

[code]Dim i As String
Dim D As Date
Dim prof As String
Dim s As String


s = Me.d1
i = Me.intervalo
prof = Me.Combinação34.Column(0)

e = Format(Me.txtDataInicial, "dd/mm/yyyy")
y = Format(e, "w")
If Me("D" & Format(e, "w")) = -1 Then

D = Format(Me.txtDataInicial, "dd/mm/yyyy") & " " & DateAdd("n", -i, Me.txtHoraInicial)
Do While D < DateAdd("h", Format(Me.txthorafinal, "hh"), Me.txtDataFinal)
If Format(D, "hh:nn") >= Format(Me.txthorafinal, "hh:nn") Then
D = DateAdd("d", 1, Format(D, "dd/mm/yyyy")) & " " & DateAdd("n", -i, Format(Me.txtHoraInicial, "hh:nn"))

End If
CurrentDb.Execute "INSERT INTO tblAgenda(Dta, Hra, tbl_cod_prof, seg) VALUES('" & Format(D, "dd/mm/yyyy") & "', '" & Format(DateAdd("n", i, D), "hh:nn") & "','" & prof & "','" & s & "')"
D = DateAdd("n", i, D)
Loop

MsgBox "Horas inseridas com sucesso.", vbInformation, "Sucesso"

Ola pessoal,

Seguinte, como encasquetei com o fato da agenda medica sendo populada atraves dos dias da semana, pensei da seguinte forma

que preciso colocar uma restricao no comando para que ele execute apenas o que quero, e como coloquei os dias da semana como ckbox, seria da seguinte maneira

caso o valor de dia da semana seja -1 (isso quando o usuario seleciona a ckbox no formulario), entao

ele executaria o loop para gerar as datas e horarios da agenda dentro do dia da semana selecionado pelo usuario, porem toda vez que cooloco
if dsemana = -1 then

Do While D < DateAdd("h", Format(Me.txthorafinal, "hh"), Me.txtDataFinal)
If Format(D, "hh:nn") >= Format(Me.txthorafinal, "hh:nn")Then

D = DateAdd("d", 1, Format(D, "dd/mm/yyyy")) & " " & DateAdd("n", -i, Format(Me.txtHoraInicial, "hh:nn"))
End If

End If
CurrentDb.Execute "INSERT INTO tblAgenda(Dta, Hra, tbl_cod_prof) VALUES('" & Format(D, "dd/mm/yyyy") & "', '" & Format(DateAdd("n", i, D), "hh:nn") & "','" & prof & "')"
D = DateAdd("n", i, D)
Loop

MsgBox "Horas inseridas com sucesso.", vbInformation, "Sucesso"

porem não esta dando certo

Se puderem me ajudar agradeço,

Olá pessoal, finalmente consegui terminar do jeito que eu precisava esse tópico, agradeço a todos pela força!
Segue abaixo o exemplo, ah! e se alguem souber uma forma de purificar o código poste, para que possamos melhora-lo ainda mais. Afinal sou iniciante em access, e fiz o que pude dentro do conhecimento que tenho.

APJesus

Tem aqui o link

http://maximoaccess.forumeiros.com/download.forum?id=1135


No entanto tem uma alteração feita pelo Mestre JP na mensagem a seguir.

http://maximoaccess.forumeiros.com/t6879-resolvidodiferenca-em-horario-automatico#55723

Assis obrigado pelo exemplo, ja estou aproveitando ele tbm.