MARCANDO O DIA

IRENKO 02/07/2010 17:34:54
#346408

Amigos, peguei um exemplo de calendario no forum e estou tentando adaptar, 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.

Se precisar posso anexar o arquivo.