Monthview

Question

Bonjour

Voila j'ai un champs date dans une bd et un controle Monthview et je mettre en gras les dates qui sont enregister dans le champ date de ma base

merci

Renfield · Answer

l'evenement GetDayBold de ce controle est appel&#233; automatiquement pour chacune des dates. il suffit alors de renseigner la variable State...

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_yakus · Answer

Bonjour 

mais je ne comprend ce que tu veux dire

DJAMEL

Renfield · Answer

je t'indique comment mettre en gras une date dans le MonthView....

regarde son evenement GetDayBold

cs_yakus · Answer

Ok j'ai regarder mais je suis encore novice 
peut tu me donner un exemple de code merci

DJAMEL

Renfield · Answer

comme je te l'ai dit, il suffit de renseigner la variable State...

met en gras tous les mercredis.....

Private Sub MonthView1_GetDayBold(ByVal StartDate As Date, ByVal Count As Integer, State() As Boolean)
    For i = 0 To Count - 1
        If Weekday(DateAdd("D", i, StartDate)) = vbWednesday Then
            State(i) = True
        End If
    Next i
End Sub

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_yakus · Answer

Ok pour &#231;a j'ai vu un exemple dans MSDN
mais moi ce que je voudrais c'est dans ma base de donnee j'ai un chams date et je voudrais chaque enregistrer de date dans ce champs et que mon controle me les mettent en gras en vb6 voila j'espere etre claire pas facile a expliquer

DJAMEL

cs_yakus · Answer

Pour etre plus

il faudrait que mon evenement 
ouvre ma base
cherche dans le champs toutes les date enregsitrer
et en suite toutes les dates trouver il les met en gras
voila

DJAMEL

Renfield · Answer

ca c'est a toi de le coder.....

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_yakus · Answer

oui mais c'et la ou j'ai besion d'aide
DJAMEL

Renfield · Answer

bah tu fais un Select dans ta base, avec la date en parametre...

en faisant par exemple :

Private Sub MonthView1_GetDayBold(ByVal StartDate As Date, ByVal Count As Integer, State() As Boolean)
    ... Connection a la base ...

    Set RS = OpenRecordset ("SELECT DISTINCT [MaDate] From [MaTable]")

    For i = 0 To Count - 1
      RS.Filter = "MaDate=" & Format$(DateAdd("D", i, StartDate), "\#MM\/DD\/YYYY\#")
      State(i) = (RS.RecordCount > 0 )
    Next i
End Sub

ou bien

Private Sub MonthView1_GetDayBold(ByVal StartDate As Date, ByVal Count As Integer, State() As Boolean)
    ... Connection a la base ...
    For i = 0 To Count - 1
      Set RS OpenRecordset ("SELECT COUNT(0) FROM [MaTable] WHERE [MaDate]       " & Format$(DateAdd("D", i, StartDate), "\#MM\/DD\/YYYY\#")
      State(i) = (RS.RecordCount > 0 )
    Next i
End Sub

cs_yakus · Answer

ok je vais essayer ca

DJAMEL

cs_yakus · Answer

il me fait
procedure Sub ou fonction non definie

DJAMEL

Renfield · Answer

laisse moi deviner....

sur la ligne
... Connection a la base ...

ou sur   OpenRecordset 

ce code est a adapter.... je ne fais que t'indiquer une voie que tu peux suivre, je ne t'ai pas donn&#233;e de solution cl&#233; en main

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_yakus · Answer

Sur OpenRecordSet

je sais bien mais je te remerci de passer du temps avec moi
mais j'aimerais comprendre ce que je fais

DJAMEL

Monthview

14 réponses

Discussions similaires