modification d'un calendrier sous ACCESS avec du VBA

Question

J'ai téléchargé un calendrier sous ACCESS avec de la programmation en VBA derrière qui selon certaines tables affiche des couleurs dans le calendrier. Ce calendrier permet par un formulaire affichant un calendrier de voir si la personne était présente ou non en formation en affichant les couleurs correspondantes.Il y a trois table: 
la table Attend avec trois colonnes Att student (matricule de la personne), AttDate(date), AttType(un chiffre entre 0 et 3); la table Attendance Type avec deux colonnes: AttID (avec 0,1,2,3) et AttDesc(record, present...) et la table Students qui a deux colonnes StudentID (le matricule de la personne) et StudentName (le nom de la personne).
Il y a deux formulaire un qui doit servir pour rentrer les info et l'autre où il y a le calendrier qui a apparement du VBA:

Option Compare Database
Option Explicit

Function ThisIs()
Dim TDate As Date, C1 As Integer, StrSQL As String, TypeAttend, RecDetectC1 1: TDate Me![scr1Date]
Do Until C1 = CInt(Mid(ActiveControl.Name, 3, 2))
    TDate = DateAdd("d", 1, TDate)
    C1 = C1 + 1
Loop
TypeAttend DLookup("AttType", "Attend", "[AttStudent] " & Me![scrStudent] & " AND [AttDate] = #" & Format(TDate, "mm/dd/yy") & "#")
If IsNull(TypeAttend) Then
    TypeAttend = 0
End If
TypeAttend = TypeAttend + 1
If TypeAttend > 3 Then
    TypeAttend = 0
End If
RecDetect DLookup("[scrStudent]", "Attend", "[AttStudent] " & Me![scrStudent] & " AND [AttDate] = #" & Format(TDate, "mm/dd/yy") & "#")
If IsNull(RecDetect) Then
    StrSQL = "INSERT INTO Attend ( AttStudent, AttDate, AttType ) " _
    & "SELECT " & Me![scrStudent] & " AS F1, #" _
    & Format(TDate, "mm/dd/yy") & "# AS F2, " & TypeAttend & " AS F3;"
    DoCmd.RunSQL StrSQL
Else    StrSQL "UPDATE Attend SET Attend.AttType " & TypeAttend _
    & " WHERE (((Attend.AttStudent)=" & Me![scrStudent] & ") AND" _
    & "((Attend.AttDate)=#" & Format(TDate, "mm/dd/yy") & "#));"
    DoCmd.RunSQL StrSQL
End If
Call RefDates
End Function

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyPageDown Then
    Me![scrCDate] = DateAdd("m", 1, Me![scrCDate])
End If
If KeyCode = vbKeyPageUp Then
    Me![scrCDate] = DateAdd("m", -1, Me![scrCDate])
End If
Call RefDates
End Sub

Private Sub Form_Open(Cancel As Integer)
Me![scrCDate] = DateSerial(Year(Date), Month(Date), 1)
Me![scrMonth] = Format(Date, "mmmm")
Me![scrYear] = Format(Date, "yyyy")
End Sub
Sub RefDates()
Dim D1 As Variant, D2 As Integer, D3 As Integer, TypeAttend
If IsNull(Me![scrStudent]) Then
    MsgBox ("Selection error.@Displaying calendar data can only be done for a specific " _
    & "student.@Select a student and continue.")
    Exit Sub
End If
Me![scrMonth] = Format(Me![scrCDate], "mmmm")
Me![scrYear] = Format(Me![scrCDate], "yyyy")
D1 = DateSerial(Year(Me![scrCDate]), Month(Me![scrCDate]), 1)
D2 = DatePart("w", D1, vbMonday)
Do Until DatePart("w", D1, vbMonday) = 1
    D1 = DateAdd("d", -1, D1)
Loop
Me![scr1Date] = D1
D3 = 1
Do Until D3 > 42
    Me("C" & Format(D3, "00")) = Day(D1)
    If Month(D1) <> Month(Me![scrCDate]) Then
        Me("C" & Format(D3, "00")).ForeColor = 8421504
    Else
        Me("C" & Format(D3, "00")).ForeColor = 0
        'If Me(strt).ForeColor = -2147483634 Then
    End If    TypeAttend DLookup("AttType", "Attend", "[AttStudent] " & Me![scrStudent] & " AND [AttDate] = #" & Format(D1, "mm/dd/yy") & "#")
    If IsNull(TypeAttend) Then
        TypeAttend = 0
    End If
    Select Case TypeAttend
    Case 0
        Me("C" & Format(D3, "00")).BackColor = 12632256
    Case 1
        Me("C" & Format(D3, "00")).BackColor = 65280
    Case 2
        Me("C" & Format(D3, "00")).BackColor = 255
    Case Else
        Me("C" & Format(D3, "00")).BackColor = 3355443
        Me("C" & Format(D3, "00")).ForeColor = 16777215
    End Select
    D3 = D3 + 1
    D1 = DateAdd("d", 1, D1)
Loop
Me.Repaint
End Sub
Private Sub scrStudent_AfterUpdate()
Call RefDates
End Sub
Private Sub Command107_Click()
On Error GoTo Err_Command107_Click

    DoCmd.Close

Exit_Command107_Click:
    Exit Sub

Err_Command107_Click:
    MsgBox Err.Description
    Resume Exit_Command107_Click
    
End Sub

J'aimerai savoir si je rajoute des données dans la table AttType comme par exemple un chiffre 4 qui correspondrait à une autre donnée et qui serrait donc utilisait aussi dans la table Attend, comment faire pour qu'il génère une nouvelle couleur dans le calendrier.

Et deuxième question je voudrais qu'à partir de ce calendrier on puisse générer un planning de tournante de travail en 5/8 c'est à dire avec des équipes qui travaillent trois jours, qui ont deux jours de repos et qui retravaille 3 jours, si c'est possible.

Si vous ne comprennez pas j'aimerais vous envoyer la base ACCESS en ZIP mais je ne sais pas comment faire...

Merci de tout aide

balarass · Answer

salut

merci pour ta source, elle est tres interessante.
Peux tu me faire signe pour que l'on en parle plus longuement? A+
santé bonheur

cs_wtoc · Answer

Salut,
 Je recherche ce type de source pour un programme "planning".  Peux-tu m'envoyer le calendrier Access??

Merci d'avance.

Mail : as_roma@skynet.be

WTOC_Tommasi

jawo2 · Answer

Salut,
je suis etudiant et actuellement en stage et je recherche aussi ce type de source pour un programme  de "planning".
Peux-tu m'envoyer la base ACCESS en ZIP a l'adresse jawo2@caramail.com???

Merci d'avance.

watterson · Answer

Salut,
He bien étonnement je suis également étudiant en stage et je recherche également ce type de source "planning" qui pourrait largement me servir.

Peux-tu m'envoyer la base à l'adresse billwatterson@hotmail.com?

Merci d'avance...

Scoum · Answer

Je suis également à la recherche de solutions pour générer des plannings à partir d'applications Access.

Merci d'avance de toute aide

 8-)  Scoum

cristina2003 · Answer

Salut 'aline',
Je recherche egalement ce type de source. 
Peux-tu me l'envoyer s'il te plaît,si tu l'a toujours ??
Merci d'avance.

Mail : julia_marchal@hotmail.com

Scoum · Answer

8-)  Scoum

je recherche également une solution pour réaliser des calendriers ou GANTT à partir d'une Base ACCESS.

Je serais donc intéréssé par les sources.

Merci de me les transmettre si possible.

Toute aide sera la bien-venue.

Encore merci d'avance.

Mail : pl-el@wanadoo.fr

Fanfan666 · Answer

Bonjour,

Je suis également à la recherche d'un source comme celui-ci, j'aimerai aussi que tu m'envoi ce source que j'ai vraiment beaucoup de mal à trouver.

Merci d'avance

fva@freesurf.fr

 :)

AGHEZALE · Answer

Salut,
je suis etudiant et actuellement en stage et je recherche aussi ce type de source pour générer un planning de tournante de travail en 6/7 c'est à dire avec des équipes qui travaillent SIX jours, qui ont un jour de repos et qui retravaille 6 jours, si c'est possible.
Peux-tu m'envoyer la base ACCESS en ZIP a l'adresse AGHEZALE@YAHOO.FR???

Merci d'avance.

AGHEZALE · Answer

Salut,
je suis etudiant et actuellement en stage et je recherche aussi ce type de source pour générer un planning de tournante de travail en 6/7 c'est à dire avec des équipes qui travaillent SIX jours, qui ont un jour de repos et qui retravaille 6 jours, si c'est possible.
Peux-tu m'envoyer la base ACCESS en ZIP a l'adresse AGHEZALE@YAHOO.FR???

Merci d'avance.

AGHEZALE · Answer

Salut,
je suis etudiant et actuellement en stage et je recherche aussi ce type de source pour générer un planning de tournante de travail en 6/7 c'est à dire avec des équipes qui travaillent SIX jours, qui ont un jour de repos et qui retravaille 6 jours, si c'est possible.
Peux-tu m'envoyer la base ACCESS en ZIP a l'adresse AGHEZALE@YAHOO.FR???

Merci d'avance.

balarass · Answer

Ok... Tout le monde est en galère, tout le monde cherche, mais personne ne trouve.
Pourquoi est-ce si compliqué de construire un calendrier avec couleurs? A part cette source de moyenne facture, il n'y a rien, niet, zero, nada, que dalle. J'ai eu beau chercher comme un acharné, Ya QUEUDE. Tanpis.

fleemax · Answer

Salut,


Encore un &#233;tudiant en stage qui a besoins d'une source g&#233;n&#233;rant un planning de tournante de travail.  Donc si quelqu'un peut me l'envoyer &#224; cette adresse: [mailto:fleeemax@hotmail.com fleeemax@hotmail.com] .
Merci beaucoup

erickup · Answer

&#233;galement int&#233;ress&#233; pour une appli g&#233;rant les plannings
peux tu m'envoyer ta base access dans un zip &#224; l'adresse
eric.kuperberg@wanadoo.fr

Merci beaucoup

yvetot31 · Answer

Bonjour,

je suis int&#233;ress&#233; par ce planning sous Access.
Tu peux l'envoyer &#224; [mailto:yann.yvetot@free.fr yann.yvetot@free.fr]
Merci d'avance.

Musket · Answer

Salut,


Je suis &#233;tudiant en stage et j'ai fortement besoin de cette source.  Merci de me l'envoyer &#224; cette adresse: [mailto:mazout30@hotmail.com mazout30@hotmail.com]
Je vous remercie d'avance d'avoir aid&#233; un d&#233;veloppeur en d&#233;tresse...

mamouthl · Answer

j'ai moi aussi une base de donn&#233;es sous access et je voudrais y ajouter un planning, mais je ne suis pas d&#233;veloppeur et je n'ai rien compris au message de alinebb, si qqun peux me donner un tuyau pour d&#233;marrer. merci &#224; celui qui prend le temps d'expliquer,

djechiant · Answer

bonjour,
je suis &#233;galement en stage et suis tres interess&#233; par le programme du generateur de calendrier. Serait il possible de recevoir ce projet pour m'aider un peu svp. mon adresse mail est djechian@hotmail.com
un grand merci d avance

Djechiant vous salut

lolo268 · Answer

bonjour
moi m&#233;me j suis en train de developp&#233; une application simulaire
si vous pouvez m'aider envoyez moi le code sources SVP
je vous remercier d'avance

[mailto:elmojrim@msn.com elmojrim@msn.com]

brunohampert · Answer

Bonjour,
je suis &#233;galement int&#233;rress&#233; par ce calendrier planning pourrais-tu me la faire parvenir svp ?

Merci d'avance .

bruno.hampert@gmail.com

Modification d'un calendrier sous ACCESS avec du VBA

21 réponses

Discussions similaires