[Resolvido] Marcando Dia

[Irenko 0]

Amigos, estou tentando adaptar esse calendário, seguinte: tomando como exemplo o mês de julho, na tabela Consultas campo Data coloquei para dois clientes uma data para cada, sendo:

 

Cliente 01 25/07/2010

Cliente 02 17/07/2010

 

 

 

No load do form quero que marque esses dias no calendario, segue a função:

 

Sub EscreveMes()

Verifica_Conexao

Dim i As Integer

Set Dados = New ADODB.Recordset

If Dados.State = 1 Then Dados.Close

 

With Dados

.CursorType = adOpenStatic

.CursorLocation = adUseClient

.LockType = adLockPessimistic

mSql = " SELECT Data,Hora,Paciente,Status,Id From Consultas"

.Source = mSql

.ActiveConnection = ConexaoFono

.Open

 

 

FrmAgendados.TitMesAno.Caption = NomeMes + " " + Str$(Ano)

'-- Escreve as datas nas células

p% = DiaDaSemana - 1

'AtualizaDia

For N% = 0 To 41

FrmAgendados.Casa(N%).Caption = ""

Set FrmAgendados.imgMesa(N%).Picture = FrmAgendados.ImgList.ListImages(3).Picture

FrmAgendados.Casa(N%).BackColor = Branco

FrmAgendados.Casa(N%).ForeColor = Branco

Next

 

For N% = 1 To NumDias

' Se mês atual, mostra o dia atual em Vermelho

FrmAgendados.Casa(p%).Caption = Str$(N%)

If IndMes = Month(Now) And Ano = Year(Now) And N% = Day(Now) Then

FrmAgendados.Casa(p%).BackColor = Cinza

FrmAgendados.Casa(p%).ForeColor = Vermelho

Set FrmAgendados.imgMesa(p%).Picture = FrmAgendados.ImgList.ListImages(1).Picture

End If

Else

FrmAgendados.Casa(p%).BackColor = Cinza

If FrmAgendados.Casa(p%).Index = 0 Or FrmAgendados.Casa(p%).Index = 7 Or FrmAgendados.Casa(p%).Index = 14 Or FrmAgendados.Casa(p%).Index = 21 Or FrmAgendados.Casa(p%).Index = 28 Or FrmAgendados.Casa(p%).Index = 35 Then

FrmAgendados.Casa(p%).ForeColor = Amarelo

Else

FrmAgendados.Casa(p%).ForeColor = Branco

End If

Set FrmAgendados.imgMesa(p%).Picture = FrmAgendados.ImgList.ListImages(2).Picture

End If

p% = p% + 1

Next N%

End With

MesMom = IndMes 'Guarda o mês vigente

End Sub

 

No bloco em negrido é onde imagino que deveria entrar a comparação. A função esta funcionado normalmente só que marcando o dia atual com uma imagem, alguem tem uma ideia de como adaptar para o que quero? O banco é access.

[Claudio Neto 3]

Eu não entendi.

 

"Está marcando o dia atual" que você diz, é o dia de hoje ou o dia 25/07/2010 como você queria?

 

E o que é esse calendário? É o objeto calendario do VB ou você montou um calendario na tela? Pra começar, que versão do vb está usando?

[Irenko 0]

Claudio, já resolvi obrigado!!