Calendário agendamentos

Olá

Encontrei um calendário aqui no fórum do Leandro Barbosa. Estou a tentar adaptar para a Appque estou a desenvolver. No entanto preciso da vossa ajuda. Desde já obrigado. O que preciso ? Deixarei o projeto do colega com as alterações pretendidas. Preciso que/ de selecionar o dia e depois clicar no botão agendar e abrir um form com determinados campos  para agendar uma saída/ consulta. So consegue abrir ao clicar no botão se marcou o dia...
Obrigado

Um bem hajam !

Olá

Continuando a tentar coloquei num dos botoes - SábSem6 o seguinte e abre o form como é lógico, só que pretendia que abrisse com a data já selecionada !!! Se alguem souber como fazer... Obrigado.

o form trabalhado é o frmCalendario

Código:

Private Sub SábSem6_Click()
DoCmd.OpenForm "frmAgendarConsulta"
End Sub