[Resolvido]Inserido marcações em um objeto calendar

Amigos.. supondo que eu tenha uma caixa texto no form onde contém uma data
Ex: 21/08/2011

é possível após eu mudar o objeto caledar para o mês 7.. esta data aparecer marcada no mesmo?

Se puderem ajudar fico grato.

Saudações

Você quer colocar a data do calendário no campo? Você pode usar o evento Click. Embora o calendário não ofereça esse evento na lista, você pode digitá-lo diretamente no módulo vba do formulário.

Veja bem... se em um campo no form tiver a data xx/xx/xx

Aprecer cinza (marcado) o dia desta data ao eu escolher o mes que contem esta data....

como se voce marcasse em uma folhinha algum compromisso...

é justamente o contrário

Tente assim:

Me.SeuCalendário = Me.SeuControle

Àmigão consegui assim:


Private Sub Calendar0_Enter()
Dim NextMoon As Date, PreviousMoon As Date

NextMoon = Format([txtNextNewMoon], "dd,mm,yy")
PreviousMoon = Format([txtPreviousNewMoon], "dd,mm,yy")

Me.Calendar0.Value = NextMoon
Me.Calendar0.Value = PreviousMoon

End Sub

Como agora fazer para aperecer em um mesmo mês mais de uma marcação, Como está acima não deu certo

Grato

Acredito que precisará de outro meio, pois a função do calendário é exibir a data atual ou a data pedida para ser exibida. Exibir mais de uma data no mesmo controle ainda não vi. Talvez fosse o caso de colocar labels em cima das datas para marcar as fases, ou montar um calendário para isso usando botões, ou talvez ainda usar o Timer para exibir um a um alternadamente.

Entendi.. vou tentar algo aqui... e dou retorno

Amigo.. estou testando um outro meio que talvez de certo.. mas preciso de algo assim...

Eu tenho diversos rótulos... um para cada dia...

tenho uma variável que assume o valor igual ao Nome do rótulo...

então preciso de um código que procure em todos os controles do form.. aquele que tem o nome da variável e aplique uma instrução ForeColor nele..

vou escrever em portugues rasgado...

Se no form tem algun controle com o nome da variável, colorir este controle..


Algo assim...

Grato

Tem como, mas como a cada mês os dias mudam de posição no quadro do calendário, talvez tenha que inserir mais alguma instrução aí, mas para colorir, pode ser algo assim:

Me("lbl" & Variável).BackColor = vbBlue

Vamos supor que a variável pegue os dias do mês e que você tenha as labels lbl1, lbl2... lbl31. Como a variável assume como valor o dia do mês, esse código colore o label lblVariável.

Nào se pode procurar genericamente por o que está dentro de algum rótulo?

assim se em algum rótulo o caption for igual a variáve.. colori-lo


Estou tentando adaptar em um calendaário pop up aqui do forum.. um estilo data picker...

Conhece?


Mas são muitos códigos.. e não estou conseguindo me situar entre eles..

Talvez assim:

Dim lbl As Control
For Each lbl In Me.Controls
If lbl.Caption = Variável Then
lbl.BackColor = vbBlue
End If
Next lbl

Mas eu prefiro nomear os controles de acordo os dias. Reduz a programação.

Mas como disse.. os dias mudam dentro do rótulo de acordo com o mês...

Fiz um Sub com o código e coloquei no código do click do botão..

mas ao clicar no botão diz que não aceita esta propriedade ou método ao clicar..

no botão, a função esta dentro dao ao apertar o mouse assim: =Nomedafunçao

Depurou para a seguinte linha no código que postou

If lbl.Caption = NextMoon Then

Faltou condicionar o tipo de controle. Veja assim:

Dim lbl As Control
For Each lbl In Me.Controls
If lbl.ControlType = acLabel Then
If lbl.Caption = Variável Then
lbl.BackColor = vbBlue
End If
End If
Next lbl

Do Then vai direto para o último end If....

Amigão consegui assim, porém a desvantagem e ter que escrever para os 35 controles do calendário..
isto multiplicado pelas 4 fases lunares

Se consegui ajeitar o código me avise..


Sub MoonPhase()
Dim NextMoon As String, PreviousMoon As Date
Dim x As String

NextMoon = Forms!frmgmt.txtNextNewMoon
NextMoon = Left(NextMoon, 2)

If Me("lbl" & 35).Caption = NextMoon Then
Me("lbl" & 35).BackColor = White
Me("lbl" & 35).BackColor = 9109504
Me("lbl" & 35).BackStyle = 1
Me("lbl" & 35).FontBold = True
End If
End Sub

Saudações

Não seria só fazer assim?:

Me("lbl" & NextMoon).ForeColor = White

Estou supondo que os labels tem nomes lbl1, lbl2, lbl3... lbl35

Não amigão.. para voce ter ideia eu testei esse codigo com a data de 30/07 que é um dia de fase lunar


então eu disse.. que se o lbl35 contiver 30 Then..

Considerando no calendário lunar que o dia 30 terá uma fase lunar...

e no mes 07 o dia 30 cai dentro da lbl35 as lbl's variam em seu conteudo de acordo com o mês..


Sakou?

Puts, nem acredito que consegui!!!... bem estou testando aqui.. por hora darei o tópico por resolvido.. surgindo alguma dúvida ou conflito no código volto a postar...

>>>>>>>> Esta é para Próxima Lua nova..., para cada fase lunar teremos duas situações do calendário do mes, com referencia ao dia atual.

Fase anterior e fase Seguinte...

Aqui está para a fase seguinte... ou seja se estamos no dia 15 de um mes qualquer, o dia da proxima lua nova estiver até o final do mes.. no calendário aparece o dia da mesma.

Sub MoonPhase()
Dim NextNewMoon As String
Dim MesAtual As String, MesForm As String
MesAtual = Format(Forms!frmgmt.txtNextNewMoon, "mmmm")
MesForm = Me.txtYear
MesForm = Left(MesForm, Len(MesForm) - 5)

'Variáveis par Lua Nova (Próxima)
NextNewMoon = Format(Forms!frmgmt.txtNextNewMoon, "dd")

Dim X As Integer

For X = 1 To 42 ' Número de rótulos dos dias
If CStr(X) <> strLastLabelSelected Then
If MesForm = MesAtual Then
If Me("lbl" & X).Caption = NextNewMoon Then
Me("lbl" & X).BackColor = vbWhite
Me("lbl" & X).BackColor = 15643136
Me("lbl" & X).BackStyle = 1
Me("lbl" & X).FontBold = True
End If
End If
End If
Next X

End Sub