Formulaire d'interrogation d'une table [Résolu]

cs_peter2010 48 Messages postés vendredi 25 septembre 2009Date d'inscription 29 juillet 2010 Dernière intervention - 19 juil. 2010 à 17:42 - Dernière réponse : cs_peter2010 48 Messages postés vendredi 25 septembre 2009Date d'inscription 29 juillet 2010 Dernière intervention
- 21 juil. 2010 à 16:37
Bonjour je programme un formulaire qui va chercher les informations dans une table selon la sélection d'une liste déroulante, le hick c'est que je n'arrive pas à comprendre pourquoi mon formulaire affiche les données une fois sur deux environ, je m'explique : j'ouvre mon formulaire, je sélectionne la variable dans la liste déroulante ensuite tous mes controles (listbox, textbox) se remplissent parfaitement avec les bonnes données, je ferme le formulaire et je refais la même opération et le tout ne fonctionne plus. Aurais-je oublié un requery à quelque part?


Merci à l'avance pour votre aide!
Afficher la suite 

Votre réponse

16 réponses

Meilleure réponse
cs_peter2010 48 Messages postés vendredi 25 septembre 2009Date d'inscription 29 juillet 2010 Dernière intervention - 20 juil. 2010 à 17:47
3
Merci
Public Function loadingFrmRepart(codeEmpl As String, typeTempsSelect As String, dateSemaine As Date)

Dim sqlAffichage As String
Dim rsAffichage As Recordset
Dim nombreAct As Long
Dim nombreTache As Long
Dim nombreRep As Long
Dim sqlDate As String
Dim d As Long
Dim bonneSem As Boolean
bonneSem = False

Dim sqlNombreElem As String
Dim rsNombreElem As Recordset
Dim nombreElem As Long
sqlNombreElem "SELECT COUNT(DetailJRT.noSeq) AS nombreElements FROM RepartTemps,JourRT,DetailJRT WHERE RepartTemps.noSeqRt JourRT.noSeqRT AND JourRT.noSeqJRT = DetailJRT.noSeqJRT AND RepartTemps.codeUsager = '" & codeEmpl & "' AND RepartTemps.dateSem= #" & dateSemaine & "# AND RepartTemps.typeTemps = '" & typeTempsSelect & "'"
Set rsNombreElem = CurrentDb.OpenRecordset(sqlNombreElem)

Do While Not rsNombreElem.EOF
nombreElem = rsNombreElem("nombreElements")
rsNombreElem.MoveNext
Loop
rsNombreElem.Close

sqlAffichage "SELECT JourRT.noSeqJRT, RepartTemps.codeUsager, RepartTemps.dateSem, RepartTemps.typeTemps, JourRT.noJour, DetailJRT.noAct, DetailJRT.noTache, DetailJRT.nbHrs, DetailJRT.nbDoc, DetailJRT.uniteMesure, DetailJRT.noCr, DetailJRT.codeAbs FROM RepartTemps INNER JOIN (JourRT INNER JOIN DetailJRT ON JourRT.noSeqJRT DetailJRT.noSeqJRT) ON RepartTemps.noSeqRt = JourRT.noSeqRT WHERE RepartTemps.codeUsager='" & codeEmpl & "' AND RepartTemps.dateSem= #" & dateSemaine & "# AND RepartTemps.typeTemps = '" & typeTempsSelect & "'"

Set rsAffichage = CurrentDb.OpenRecordset(sqlAffichage)


Dim activite
ReDim activite(nombreElem)
Dim tache
ReDim tache(nombreElem)
Dim codeAbsence
ReDim codeAbsence(nombreElem)
Dim typeTemps
Dim noSeqJRT
ReDim noSeqJRT(nombreElem)
Dim semaineAff
ReDim semaineAff(nombreElem)
Dim journeeNo
ReDim journeeNo(nombreElem)
Dim nbHrsAff
ReDim nbHrsAff(nombreElem)
Dim nbDocAff
ReDim nbDocAff(nombreElem)
Dim i As Long
Dim z As Long
Do While Not rsAffichage.EOF
i = i + 1
activite(i) = rsAffichage("noAct")
tache(i) = rsAffichage("noTache")
codeAbsence(i) = rsAffichage("codeAbs")
typeTemps = rsAffichage("typeTemps")
noSeqJRT(i) = rsAffichage("noSeqJRT")
semaineAff(i) = rsAffichage("dateSem")
journeeNo(i) = rsAffichage("noJour")
nbHrsAff(i) = rsAffichage("nbHrs")
nbDocAff(i) = rsAffichage("nbDoc")
If semaineAff(i) = dateSemaine Then
bonneSem = True
End If
rsAffichage.MoveNext
Loop


If rsAffichage.RecordCount 0 Or bonneSem False Then
Dim ctl As Control
For Each ctl In Form_FrmRepartTemps.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acCheckBox
If ctl.ControlSource = "" Then
ctl.Value = Null
End If
Case Else
End Select
Next ctl
loadingForm dateSemaine

sqlSelect "SELECT nomEmpl,prenomEmpl FROM Employe WHERE codeUsager '" & codeEmpl & "'"

Set rs = CurrentDb.OpenRecordset(sqlSelect)

Do Until rs.EOF
idenEmpl = rs!nomEmpl + ", " + rs!prenomEmpl
rs.MoveNext
Loop
rs.Close

Form_FrmRepartTemps.txtEmplSelect = idenEmpl

Form_FrmRepartTemps.txtCodeEmpl = codeEmpl

Form_FrmRepartTemps.lstEmpl = codeEmpl

Form_FrmRepartTemps.lstTypeTemps = typeTempsSelect

Form_FrmRepartTemps.txtDate = dateSemaine

Else

loadingForm dateSemaine

sqlSelect "SELECT nomEmpl,prenomEmpl FROM Employe WHERE codeUsager '" & codeEmpl & "'"

Set rs = CurrentDb.OpenRecordset(sqlSelect)

Do Until rs.EOF
idenEmpl = rs!nomEmpl + ", " + rs!prenomEmpl
rs.MoveNext
Loop
rs.Close

Form_FrmRepartTemps.txtEmplSelect.Value = idenEmpl

Form_FrmRepartTemps.txtCodeEmpl.Value = codeEmpl

Form_FrmRepartTemps.lstEmpl.Value = codeEmpl

Form_FrmRepartTemps.lstTypeTemps.Value = typeTempsSelect

Form_FrmRepartTemps.txtDate.Value = dateSemaine

If nombreElem >= 1 Then
Dim sqlAct1 As String
Dim rsAct1 As Recordset
Dim journeeNo1(8)
Dim nbHrs1(8)
Dim nbDoc1(8)
Dim tache1(8)
Dim codeAbs1(8)
Dim N1 As Long
Dim i1 As Long
sqlAct1 "SELECT RepartTemps.dateSem, RepartTemps.typeTemps, JourRT.noJour, DetailJRT.noAct, DetailJRT.noTache, DetailJRT.nbHrs, DetailJRT.nbDoc, DetailJRT.codeAbs FROM RepartTemps INNER JOIN (JourRT INNER JOIN DetailJRT ON JourRT.noSeqJRT DetailJRT.noSeqJRT) ON RepartTemps.noSeqRt = JourRT.noSeqRT WHERE DetailJRT.noAct = '" & activite(1) & "' AND RepartTemps.typeTemps = '" & typeTempsSelect & "'"
Set rsAct1 = CurrentDb.OpenRecordset(sqlAct1)
Do Until rsAct1.EOF
i1 = i1 + 1
journeeNo1(i1) = rsAct1("noJour")
nbHrs1(i1) = rsAct1("nbHrs")
nbDoc1(i1) = rsAct1("nbDoc")
tache1(i1) = rsAct1("noTache")
codeAbs1(i1) = rsAct1("codeAbs")
rsAct1.MoveNext
Loop
rsAct1.Close

For N1 = 1 To nombreElem
If IsNull(Form_FrmRepartTemps.lstAct1) Then
Form_FrmRepartTemps.lstAct1.Value = activite(1)
If Not IsNull(journeeNo1(N1)) Then
If journeeNo1(N1) = 1 Then
Form_FrmRepartTemps.txtLun1.Value = nbHrs1(N1)
End If
If journeeNo1(N1) = 2 Then
Form_FrmRepartTemps.txtMar1.Value = nbHrs1(N1)
End If
If journeeNo1(N1) = 3 Then
Form_FrmRepartTemps.txtMer1.Value = nbHrs1(N1)
End If
If journeeNo1(N1) = 4 Then
Form_FrmRepartTemps.txtJeu1.Value = nbHrs1(N1)
End If
If journeeNo1(N1) = 5 Then
Form_FrmRepartTemps.txtVen1.Value = nbHrs1(N1)
End If
If journeeNo1(N1) = 6 Then
Form_FrmRepartTemps.txtSam1.Value = nbHrs1(N1)
End If
If journeeNo1(N1) = 7 Then
Form_FrmRepartTemps.txtDim1.Value = nbHrs1(N1)
End If
End If

If Not IsNull(tache1(N1)) Then
Form_FrmRepartTemps.lstTache1.Value = tache(N1)
If journeeNo1(N1) = 1 Then
Form_FrmRepartTemps.txtTacheLun1.Value = nbDoc1(N1)
End If
If journeeNo1(N1) = 2 Then
Form_FrmRepartTemps.txtTacheMar1.Value = nbDoc1(N1)
End If
If journeeNo1(N1) = 3 Then
Form_FrmRepartTemps.txtTacheMer1.Value = nbDoc1(N1)
End If
If journeeNo1(N1) = 4 Then
Form_FrmRepartTemps.txtTacheJeu1.Value = nbDoc1(N1)
End If
If journeeNo1(N1) = 5 Then
Form_FrmRepartTemps.txtTacheVen1.Value = nbDoc1(N1)
End If
If journeeNo1(N1) = 6 Then
Form_FrmRepartTemps.txtTacheSam1.Value = nbDoc1(N1)
End If
If journeeNo1(N1) = 7 Then
Form_FrmRepartTemps.txtTacheDim1.Value = nbDoc1(N1)
End If
End If

If activite(1) = "Absences" Then
Form_FrmRepartTemps.lstAbs1.Value = codeAbs1(N1)
End If
End If
Next
End If

If nombreElem >= 2 Then
Dim sqlAct2 As String
Dim rsAct2 As Recordset
Dim journeeNo2(8)
Dim nbHrs2(8)
Dim nbDoc2(8)
Dim tache2(8)
Dim codeAbs2(8)
Dim N2 As Long
Dim i2 As Long
sqlAct2 "SELECT RepartTemps.dateSem, RepartTemps.typeTemps, JourRT.noJour, DetailJRT.noAct, DetailJRT.noTache, DetailJRT.nbHrs, DetailJRT.nbDoc, DetailJRT.codeAbs FROM RepartTemps INNER JOIN (JourRT INNER JOIN DetailJRT ON JourRT.noSeqJRT DetailJRT.noSeqJRT) ON RepartTemps.noSeqRt = JourRT.noSeqRT WHERE DetailJRT.noAct = '" & activite(2) & "' AND RepartTemps.typeTemps = '" & typeTempsSelect & "'"
Set rsAct2 = CurrentDb.OpenRecordset(sqlAct2)
Do Until rsAct2.EOF
i2 = i2 + 1
journeeNo2(i2) = rsAct2("noJour")
nbHrs2(i2) = rsAct2("nbHrs")
nbDoc2(i2) = rsAct2("nbDoc")
tache2(i2) = rsAct2("noTache")
codeAbs2(i2) = rsAct2("codeAbs")
rsAct2.MoveNext
Loop
rsAct2.Close

For N2 = 1 To nombreElem
If IsNull(Form_FrmRepartTemps.lstAct2) Then
Form_FrmRepartTemps.lstAct2.Value = activite(2)
If Not IsNull(journeeNo2(N2)) Then
If journeeNo2(N2) = 1 Then
Form_FrmRepartTemps.txtLun2.Value = nbHrs2(N2)
End If
If journeeNo2(N2) = 2 Then
Form_FrmRepartTemps.txtMar2.Value = nbHrs2(N2)
End If
If journeeNo2(N2) = 3 Then
Form_FrmRepartTemps.txtMer2.Value = nbHrs2(N2)
End If
If journeeNo2(N2) = 4 Then
Form_FrmRepartTemps.txtJeu2.Value = nbHrs2(N2)
End If
If journeeNo2(N2) = 5 Then
Form_FrmRepartTemps.txtVen2.Value = nbHrs2(N2)
End If
If journeeNo2(N2) = 6 Then
Form_FrmRepartTemps.txtSam2.Value = nbHrs2(N2)
End If
If journeeNo2(N2) = 7 Then
Form_FrmRepartTemps.txtDim2.Value = nbHrs2(N2)
End If
End If

If Not IsNull(tache2(N2)) Then
Form_FrmRepartTemps.lstTache2.Value = tache(N2)
If journeeNo2(N2) = 1 Then
Form_FrmRepartTemps.txtTacheLun2.Value = nbDoc2(N2)
End If
If journeeNo2(N2) = 2 Then
Form_FrmRepartTemps.txtTacheMar2.Value = nbDoc2(N2)
End If
If journeeNo2(N2) = 3 Then
Form_FrmRepartTemps.txtTacheMer2.Value = nbDoc2(N2)
End If
If journeeNo2(N2) = 4 Then
Form_FrmRepartTemps.txtTacheJeu2.Value = nbDoc2(N2)
End If
If journeeNo2(N2) = 5 Then
Form_FrmRepartTemps.txtTacheVen2.Value = nbDoc2(N2)
End If
If journeeNo2(N2) = 6 Then
Form_FrmRepartTemps.txtTacheSam2.Value = nbDoc2(N2)
End If
If journeeNo2(N2) = 7 Then
Form_FrmRepartTemps.txtTacheDim2.Value = nbDoc2(N2)
End If
End If

If activite(2) = "Absences" Then
Form_FrmRepartTemps.lstAbs2.Value = codeAbs2(N2)
End If
End If
Next
End If

If nombreElem >= 3 Then
Dim sqlAct3 As String
Dim rsAct3 As Recordset
Dim journeeNo3(8)
Dim nbHrs3(8)
Dim nbDoc3(8)
Dim tache3(8)
Dim codeAbs3(8)
Dim N3 As Long
Dim i3 As Long
sqlAct3 "SELECT RepartTemps.dateSem, RepartTemps.typeTemps, JourRT.noJour, DetailJRT.noAct, DetailJRT.noTache, DetailJRT.nbHrs, DetailJRT.nbDoc, DetailJRT.codeAbs FROM RepartTemps INNER JOIN (JourRT INNER JOIN DetailJRT ON JourRT.noSeqJRT DetailJRT.noSeqJRT) ON RepartTemps.noSeqRt = JourRT.noSeqRT WHERE DetailJRT.noAct = '" & activite(3) & "' AND RepartTemps.typeTemps = '" & typeTempsSelect & "'"
Set rsAct3 = CurrentDb.OpenRecordset(sqlAct3)
Do Until rsAct3.EOF
i3 = i3 + 1
journeeNo3(i3) = rsAct3("noJour")
nbHrs3(i3) = rsAct3("nbHrs")
nbDoc3(i3) = rsAct3("nbDoc")
tache3(i3) = rsAct3("noTache")
codeAbs3(i3) = rsAct3("codeAbs")
rsAct3.MoveNext
Loop
rsAct3.Close

For N3 = 1 To nombreElem
If IsNull(Form_FrmRepartTemps.lstAct3) Then
Form_FrmRepartTemps.lstAct3.Value = activite(3)
If Not IsNull(journeeNo3(N3)) Then
If journeeNo3(N3) = 1 Then
Form_FrmRepartTemps.txtLun3.Value = nbHrs3(N3)
End If
If journeeNo3(N3) = 2 Then
Form_FrmRepartTemps.txtMar3.Value = nbHrs3(N3)
End If
If journeeNo3(N3) = 3 Then
Form_FrmRepartTemps.txtMer3.Value = nbHrs3(N3)
End If
If journeeNo3(N3) = 4 Then
Form_FrmRepartTemps.txtJeu3.Value = nbHrs3(N3)
End If
If journeeNo3(N3) = 5 Then
Form_FrmRepartTemps.txtVen3.Value = nbHrs3(N3)
End If
If journeeNo3(N3) = 6 Then
Form_FrmRepartTemps.txtSam3.Value = nbHrs3(N3)
End If
If journeeNo3(N3) = 7 Then
Form_FrmRepartTemps.txtDim3.Value = nbHrs3(N3)
End If
End If

If Not IsNull(tache3(N3)) Then
Form_FrmRepartTemps.lstTache3.Value = tache(N3)
If journeeNo3(N3) = 1 Then
Form_FrmRepartTemps.txtTacheLun3.Value = nbDoc3(N3)
End If
If journeeNo3(N3) = 2 Then
Form_FrmRepartTemps.txtTacheMar3.Value = nbDoc3(N3)
End If
If journeeNo3(N3) = 3 Then
Form_FrmRepartTemps.txtTacheMer3.Value = nbDoc3(N3)
End If
If journeeNo3(N3) = 4 Then
Form_FrmRepartTemps.txtTacheJeu3.Value = nbDoc3(N3)
End If
If journeeNo3(N3) = 5 Then
Form_FrmRepartTemps.txtTacheVen3.Value = nbDoc3(N3)
End If
If journeeNo3(N3) = 6 Then
Form_FrmRepartTemps.txtTacheSam3.Value = nbDoc3(N3)
End If
If journeeNo3(N3) = 7 Then
Form_FrmRepartTemps.txtTacheDim3.Value = nbDoc3(N3)
End If
End If

If activite(3) = "Absences" Then
Form_FrmRepartTemps.lstAbs3.Value = codeAbs3(N3)
End If
End If
Next
End If

If nombreElem >= 4 Then
Dim sqlAct4 As String
Dim rsAct4 As Recordset
Dim journeeNo4(8)
Dim nbHrs4(8)
Dim nbDoc4(8)
Dim tache4(8)
Dim codeAbs4(8)
Dim N4 As Long
Dim i4 As Long
sqlAct4 "SELECT RepartTemps.dateSem, RepartTemps.typeTemps, JourRT.noJour, DetailJRT.noAct, DetailJRT.noTache, DetailJRT.nbHrs, DetailJRT.nbDoc, DetailJRT.codeAbs FROM RepartTemps INNER JOIN (JourRT INNER JOIN DetailJRT ON JourRT.noSeqJRT DetailJRT.noSeqJRT) ON RepartTemps.noSeqRt = JourRT.noSeqRT WHERE DetailJRT.noAct = '" & activite(4) & "' AND RepartTemps.typeTemps = '" & typeTempsSelect & "'"
Set rsAct4 = CurrentDb.OpenRecordset(sqlAct4)
Do Until rsAct4.EOF
i4 = i4 + 1
journeeNo4(i4) = rsAct4("noJour")
nbHrs4(i4) = rsAct4("nbHrs")
nbDoc4(i4) = rsAct4("nbDoc")
tache4(i4) = rsAct4("noTache")
codeAbs4(i4) = rsAct4("codeAbs")
rsAct4.MoveNext
Loop
rsAct4.Close

For N4 = 1 To nombreElem
If IsNull(Form_FrmRepartTemps.lstAct4) Then
Form_FrmRepartTemps.lstAct4.Value = activite(4)
If Not IsNull(journeeNo4(N4)) Then
If journeeNo4(N4) = 1 Then
Form_FrmRepartTemps.txtLun4.Value = nbHrs4(N4)
End If
If journeeNo4(N4) = 2 Then
Form_FrmRepartTemps.txtMar4.Value = nbHrs4(N4)
End If
If journeeNo4(N4) = 3 Then
Form_FrmRepartTemps.txtMer4.Value = nbHrs4(N4)
End If
If journeeNo4(N4) = 4 Then
Form_FrmRepartTemps.txtJeu4.Value = nbHrs4(N4)
End If
If journeeNo4(N4) = 5 Then
Form_FrmRepartTemps.txtVen4.Value = nbHrs4(N4)
End If
If journeeNo4(N4) = 6 Then
Form_FrmRepartTemps.txtSam4.Value = nbHrs4(N4)
End If
If journeeNo4(N4) = 7 Then
Form_FrmRepartTemps.txtDim4.Value = nbHrs4(N4)
End If
End If

If Not IsNull(tache4(N4)) Then
Form_FrmRepartTemps.lstTache4.Value = tache(N4)
If journeeNo4(N4) = 1 Then
Form_FrmRepartTemps.txtTacheLun4.Value = nbDoc4(N4)
End If
If journeeNo4(N4) = 2 Then
Form_FrmRepartTemps.txtTacheMar4.Value = nbDoc4(N4)
End If
If journeeNo4(N4) = 3 Then
Form_FrmRepartTemps.txtTacheMer4.Value = nbDoc4(N4)
End If
If journeeNo4(N4) = 4 Then
Form_FrmRepartTemps.txtTacheJeu4.Value = nbDoc4(N4)
End If
If journeeNo4(N4) = 5 Then
Form_FrmRepartTemps.txtTacheVen4.Value = nbDoc4(N4)
End If
If journeeNo4(N4) = 6 Then
Form_FrmRepartTemps.txtTacheSam4.Value = nbDoc4(N4)
End If
If journeeNo4(N4) = 7 Then
Form_FrmRepartTemps.txtTacheDim4.Value = nbDoc4(N4)
End If
End If

If activite(4) = "Absences" Then
Form_FrmRepartTemps.lstAbs4.Value = codeAbs4(N4)
End If
End If
Next
End If

If nombreElem >= 5 Then
Dim sqlAct5 As String
Dim rsAct5 As Recordset
Dim journeeNo5(8)
Dim nbHrs5(8)
Dim nbDoc5(8)
Dim tache5(8)
Dim codeAbs5(8)
Dim N5 As Long
Dim i5 As Long
sqlAct5 "SELECT RepartTemps.dateSem, RepartTemps.typeTemps, JourRT.noJour, DetailJRT.noAct, DetailJRT.noTache, DetailJRT.nbHrs, DetailJRT.nbDoc, DetailJRT.codeAbs FROM RepartTemps INNER JOIN (JourRT INNER JOIN DetailJRT ON JourRT.noSeqJRT DetailJRT.noSeqJRT) ON RepartTemps.noSeqRt = JourRT.noSeqRT WHERE DetailJRT.noAct = '" & activite(5) & "' AND RepartTemps.typeTemps = '" & typeTempsSelect & "'"
Set rsAct5 = CurrentDb.OpenRecordset(sqlAct5)
Do Until rsAct5.EOF
i5 = i5 + 1
journeeNo5(i5) = rsAct5("noJour")
nbHrs5(i5) = rsAct5("nbHrs")
nbDoc5(i5) = rsAct5("nbDoc")
tache5(i5) = rsAct5("noTache")
codeAbs5(i5) = rsAct5("codeAbs")
rsAct5.MoveNext
Loop
rsAct5.Close

For N5 = 1 To nombreElem
If IsNull(Form_FrmRepartTemps.lstAct5) Then
Form_FrmRepartTemps.lstAct5.Value = activite(5)
If Not IsNull(journeeNo5(N5)) Then
If journeeNo5(N5) = 1 Then
Form_FrmRepartTemps.txtLun5.Value = nbHrs5(N5)
End If
If journeeNo5(N5) = 2 Then
Form_FrmRepartTemps.txtMar5.Value = nbHrs5(N5)
End If
If journeeNo5(N5) = 3 Then
Form_FrmRepartTemps.txtMer5.Value = nbHrs5(N5)
End If
If journeeNo5(N5) = 4 Then
Form_FrmRepartTemps.txtJeu5.Value = nbHrs5(N5)
End If
If journeeNo5(N5) = 5 Then
Form_FrmRepartTemps.txtVen5.Value = nbHrs5(N5)
End If
If journeeNo5(N5) = 6 Then
Form_FrmRepartTemps.txtSam5.Value = nbHrs5(N5)
End If
If journeeNo5(N5) = 7 Then
Form_FrmRepartTemps.txtDim5.Value = nbHrs5(N5)
End If
End If

If Not IsNull(tache5(N5)) Then
Form_FrmRepartTemps.lstTache5.Value = tache(N5)
If journeeNo5(N5) = 1 Then
Form_FrmRepartTemps.txtTacheLun5.Value = nbDoc5(N5)
End If
If journeeNo5(N5) = 2 Then
Form_FrmRepartTemps.txtTacheMar5.Value = nbDoc5(N5)
End If
If journeeNo5(N5) = 3 Then
Form_FrmRepartTemps.txtTacheMer5.Value = nbDoc5(N5)
End If
If journeeNo5(N5) = 4 Then
Form_FrmRepartTemps.txtTacheJeu5.Value = nbDoc5(N5)
End If
If journeeNo5(N5) = 5 Then
Form_FrmRepartTemps.txtTacheVen5.Value = nbDoc5(N5)
End If
If journeeNo5(N5) = 6 Then
Form_FrmRepartTemps.txtTacheSam5.Value = nbDoc5(N5)
End If
If journeeNo5(N5) = 7 Then
Form_FrmRepartTemps.txtTacheDim5.Value = nbDoc5(N5)
End If
End If

If activite(5) = "Absences" Then
Form_FrmRepartTemps.lstAbs5.Value = codeAbs5(N5)
End If
End If
Next
End If

If nombreElem >= 6 Then
Dim sqlAct6 As String
Dim rsAct6 As Recordset
Dim journeeNo6(8)
Dim nbHrs6(8)
Dim nbDoc6(8)
Dim tache6(8)
Dim codeAbs6(8)
Dim N6 As Long
Dim i6 As Long
sqlAct6 "SELECT RepartTemps.dateSem, RepartTemps.typeTemps, JourRT.noJour, DetailJRT.noAct, DetailJRT.noTache, DetailJRT.nbHrs, DetailJRT.nbDoc, DetailJRT.codeAbs FROM RepartTemps INNER JOIN (JourRT INNER JOIN DetailJRT ON JourRT.noSeqJRT DetailJRT.noSeqJRT) ON RepartTemps.noSeqRt = JourRT.noSeqRT WHERE DetailJRT.noAct = '" & activite(6) & "' AND RepartTemps.typeTemps = '" & typeTempsSelect & "'"
Set rsAct6 = CurrentDb.OpenRecordset(sqlAct6)
Do Until rsAct6.EOF
i6 = i6 + 1
journeeNo6(i6) = rsAct6("noJour")
nbHrs6(i6) = rsAct6("nbHrs")
nbDoc6(i6) = rsAct6("nbDoc")
tache6(i6) = rsAct6("noTache")
codeAbs6(i6) = rsAct6("codeAbs")
rsAct6.MoveNext
Loop
rsAct6.Close

For N6 = 1 To nombreElem
If IsNull(Form_FrmRepartTemps.lstAct6) Then
Form_FrmRepartTemps.lstAct6.Value = activite(6)
If Not IsNull(journeeNo6(N6)) Then
If journeeNo6(N6) = 1 Then
Form_FrmRepartTemps.txtLun6.Value = nbHrs6(N6)
End If
If journeeNo6(N6) = 2 Then
Form_FrmRepartTemps.txtMar6.Value = nbHrs6(N6)
End If
If journeeNo6(N6) = 3 Then
Form_FrmRepartTemps.txtMer6.Value = nbHrs6(N6)
End If
If journeeNo6(N6) = 4 Then
Form_FrmRepartTemps.txtJeu6.Value = nbHrs6(N6)
End If
If journeeNo6(N6) = 5 Then
Form_FrmRepartTemps.txtVen6.Value = nbHrs6(N6)
End If
If journeeNo6(N6) = 6 Then
Form_FrmRepartTemps.txtSam6.Value = nbHrs6(N6)
End If
If journeeNo6(N6) = 7 Then
Form_FrmRepartTemps.txtDim6.Value = nbHrs6(N6)
End If
End If

If Not IsNull(tache6(N6)) Then
Form_FrmRepartTemps.lstTache6.Value = tache(N6)
If journeeNo6(N6) = 1 Then
Form_FrmRepartTemps.txtTacheLun6.Value = nbDoc6(N6)
End If
If journeeNo6(N6) = 2 Then
Form_FrmRepartTemps.txtTacheMar6.Value = nbDoc6(N6)
End If
If journeeNo6(N6) = 3 Then
Form_FrmRepartTemps.txtTacheMer6.Value = nbDoc6(N6)
End If
If journeeNo6(N6) = 4 Then
Form_FrmRepartTemps.txtTacheJeu6.Value = nbDoc6(N6)
End If
If journeeNo6(N6) = 5 Then
Form_FrmRepartTemps.txtTacheVen6.Value = nbDoc6(N6)
End If
If journeeNo6(N6) = 6 Then
Form_FrmRepartTemps.txtTacheSam6.Value = nbDoc6(N6)
End If
If journeeNo6(N6) = 7 Then
Form_FrmRepartTemps.txtTacheDim6.Value = nbDoc6(N6)
End If
End If

If activite(6) = "Absences" Then
Form_FrmRepartTemps.lstAbs6.Value = codeAbs6(N6)
End If
End If
Next
End If

If nombreElem >= 7 Then
Dim sqlAct7 As String
Dim rsAct7 As Recordset
Dim journeeNo7(8)
Dim nbHrs7(8)
Dim nbDoc7(8)
Dim tache7(8)
Dim codeAbs7(8)
Dim N7 As Long
Dim i7 As Long
sqlAct7 "SELECT RepartTemps.dateSem, RepartTemps.typeTemps, JourRT.noJour, DetailJRT.noAct, DetailJRT.noTache, DetailJRT.nbHrs, DetailJRT.nbDoc, DetailJRT.codeAbs FROM RepartTemps INNER JOIN (JourRT INNER JOIN DetailJRT ON JourRT.noSeqJRT DetailJRT.noSeqJRT) ON RepartTemps.noSeqRt = JourRT.noSeqRT WHERE DetailJRT.noAct = '" & activite(7) & "' AND RepartTemps.typeTemps = '" & typeTempsSelect & "'"
Set rsAct7 = CurrentDb.OpenRecordset(sqlAct7)
Do Until rsAct7.EOF
i7 = i7 + 1
journeeNo7(i7) = rsAct7("noJour")
nbHrs7(i7) = rsAct7("nbHrs")
nbDoc7(i7) = rsAct7("nbDoc")
tache7(i7) = rsAct7("noTache")
codeAbs7(i7) = rsAct7("codeAbs")
rsAct7.MoveNext
Loop
rsAct7.Close

For N7 = 1 To nombreElem
If IsNull(Form_FrmRepartTemps.lstAct7) Then
Form_FrmRepartTemps.lstAct7.Value = activite(7)
If Not IsNull(journeeNo7(N7)) Then
If journeeNo7(N7) = 1 Then
Form_FrmRepartTemps.txtLun7.Value = nbHrs7(N7)
End If
If journeeNo7(N7) = 2 Then
Form_FrmRepartTemps.txtMar7.Value = nbHrs7(N7)
End If
If journeeNo7(N7) = 3 Then
Form_FrmRepartTemps.txtMer7.Value = nbHrs7(N7)
End If
If journeeNo7(N7) = 4 Then
Form_FrmRepartTemps.txtJeu7.Value = nbHrs7(N7)
End If
If journeeNo7(N7) = 5 Then
Form_FrmRepartTemps.txtVen7.Value = nbHrs7(N7)
End If
If journeeNo7(N7) = 6 Then
Form_FrmRepartTemps.txtSam7.Value = nbHrs7(N7)
End If
If journeeNo7(N7) = 7 Then
Form_FrmRepartTemps.txtDim7.Value = nbHrs7(N7)
End If
End If

If Not IsNull(tache7(N7)) Then
Form_FrmRepartTemps.lstTache7.Value = tache(N7)
If journeeNo7(N7) = 1 Then
Form_FrmRepartTemps.txtTacheLun7.Value = nbDoc7(N7)
End If
If journeeNo7(N7) = 2 Then
Form_FrmRepartTemps.txtTacheMar7.Value = nbDoc7(N7)
End If
If journeeNo7(N7) = 3 Then
Form_FrmRepartTemps.txtTacheMer7.Value = nbDoc7(N7)
End If
If journeeNo7(N7) = 4 Then
Form_FrmRepartTemps.txtTacheJeu7.Value = nbDoc7(N7)
End If
If journeeNo7(N7) = 5 Then
Form_FrmRepartTemps.txtTacheVen7.Value = nbDoc7(N7)
End If
If journeeNo7(N7) = 6 Then
Form_FrmRepartTemps.txtTacheSam7.Value = nbDoc7(N7)
End If
If journeeNo7(N7) = 7 Then
Form_FrmRepartTemps.txtTacheDim7.Value = nbDoc7(N7)
End If
End If

If activite(7) = "Absences" Then
Form_FrmRepartTemps.lstAbs7.Value = codeAbs7(N7)
End If
End If
Next
End If

If nombreElem >= 8 Then
Dim sqlAct8 As String
Dim rsAct8 As Recordset
Dim journeeNo8(8)
Dim nbHrs8(8)
Dim nbDoc8(8)
Dim tache8(8)
Dim codeAbs8(8)
Dim N8 As Long
Dim i8 As Long
sqlAct8 "SELECT RepartTemps.dateSem, RepartTemps.typeTemps, JourRT.noJour, DetailJRT.noAct, DetailJRT.noTache, DetailJRT.nbHrs, DetailJRT.nbDoc, DetailJRT.codeAbs FROM RepartTemps INNER JOIN (JourRT INNER JOIN DetailJRT ON JourRT.noSeqJRT DetailJRT.noSeqJRT) ON RepartTemps.noSeqRt = JourRT.noSeqRT WHERE DetailJRT.noAct = '" & activite(8) & "' AND RepartTemps.typeTemps = '" & typeTempsSelect & "'"
Set rsAct8 = CurrentDb.OpenRecordset(sqlAct8)
Do Until rsAct8.EOF
i8 = i8 + 1
journeeNo8(i8) = rsAct8("noJour")
nbHrs8(i8) = rsAct8("nbHrs")
nbDoc8(i8) = rsAct8("nbDoc")
tache8(i8) = rsAct8("noTache")
codeAbs8(i8) = rsAct8("codeAbs")
rsAct8.MoveNext
Loop
rsAct8.Close

For N8 = 1 To nombreElem
If IsNull(Form_FrmRepartTemps.lstAct8) Then
Form_FrmRepartTemps.lstAct8.Value = activite(8)
If Not IsNull(journeeNo8(N8)) Then
If journeeNo8(N8) = 1 Then
Form_FrmRepartTemps.txtLun8.Value = nbHrs8(N8)
End If
If journeeNo8(N8) = 2 Then
Form_FrmRepartTemps.txtMar8.Value = nbHrs8(N8)
End If
If journeeNo8(N8) = 3 Then
Form_FrmRepartTemps.txtMer8.Value = nbHrs8(N8)
End If
If journeeNo8(N8) = 4 Then
Form_FrmRepartTemps.txtJeu8.Value = nbHrs8(N8)
End If
If journeeNo8(N8) = 5 Then
Form_FrmRepartTemps.txtVen8.Value = nbHrs8(N8)
End If
If journeeNo8(N8) = 6 Then
Form_FrmRepartTemps.txtSam8.Value = nbHrs8(N8)
End If
If journeeNo8(N8) = 7 Then
Form_FrmRepartTemps.txtDim8.Value = nbHrs8(N8)
End If
End If

If Not IsNull(tache8(N8)) Then
Form_FrmRepartTemps.lstTache8.Value = tache(N8)
If journeeNo8(N8) = 1 Then
Form_FrmRepartTemps.txtTacheLun8.Value = nbDoc8(N8)
End If
If journeeNo8(N8) = 2 Then
Form_FrmRepartTemps.txtTacheMar8.Value = nbDoc8(N8)
End If
If journeeNo8(N8) = 3 Then
Form_FrmRepartTemps.txtTacheMer8.Value = nbDoc8(N8)
End If
If journeeNo8(N8) = 4 Then
Form_FrmRepartTemps.txtTacheJeu8.Value = nbDoc8(N8)
End If
If journeeNo8(N8) = 5 Then
Form_FrmRepartTemps.txtTacheVen8.Value = nbDoc8(N8)
End If
If journeeNo8(N8) = 6 Then
Form_FrmRepartTemps.txtTacheSam8.Value = nbDoc8(N8)
End If
If journeeNo8(N8) = 7 Then
Form_FrmRepartTemps.txtTacheDim8.Value = nbDoc8(N8)
End If
End If

If activite(8) = "Absences" Then
Form_FrmRepartTemps.lstAbs8.Value = codeAbs8(N8)
End If
End If
Next
End If

If nombreElem >= 9 Then
Dim sqlAct9 As String
Dim rsAct9 As Recordset
Dim journeeNo9(9)
Dim nbHrs9(9)
Dim nbDoc9(9)
Dim tache9(9)
Dim codeAbs9(9)
Dim N9 As Long
Dim i9 As Long
sqlAct9 "SELECT RepartTemps.dateSem, RepartTemps.typeTemps, JourRT.noJour, DetailJRT.noAct, DetailJRT.noTache, DetailJRT.nbHrs, DetailJRT.nbDoc, DetailJRT.codeAbs FROM RepartTemps INNER JOIN (JourRT INNER JOIN DetailJRT ON JourRT.noSeqJRT DetailJRT.noSeqJRT) ON RepartTemps.noSeqRt = JourRT.noSeqRT WHERE DetailJRT.noAct = '" & activite(9) & "' AND RepartTemps.typeTemps = '" & typeTempsSelect & "'"
Set rsAct9 = CurrentDb.OpenRecordset(sqlAct9)
Do Until rsAct9.EOF
i9 = i9 + 1
journeeNo9(i9) = rsAct9("noJour")
nbHrs9(i9) = rsAct9("nbHrs")
nbDoc9(i9) = rsAct9("nbDoc")
tache9(i9) = rsAct9("noTache")
codeAbs9(i9) = rsAct9("codeAbs")
rsAct9.MoveNext
Loop
rsAct9.Close

For N9 = 1 To nombreElem
If IsNull(Form_FrmRepartTemps.lstAct9) Then
Form_FrmRepartTemps.lstAct9.Value = activite(9)
If Not IsNull(journeeNo9(N9)) Then
If journeeNo9(N9) = 1 Then
Form_FrmRepartTemps.txtLun9.Value = nbHrs9(N9)
End If
If journeeNo9(N9) = 2 Then
Form_FrmRepartTemps.txtMar9.Value = nbHrs9(N9)
End If
If journeeNo9(N9) = 3 Then
Form_FrmRepartTemps.txtMer9.Value = nbHrs9(N9)
End If
If journeeNo9(N9) = 4 Then
Form_FrmRepartTemps.txtJeu9.Value = nbHrs9(N9)
End If
If journeeNo9(N9) = 5 Then
Form_FrmRepartTemps.txtVen9.Value = nbHrs9(N9)
End If
If journeeNo9(N9) = 6 Then
Form_FrmRepartTemps.txtSam9.Value = nbHrs9(N9)
End If
If journeeNo9(N9) = 7 Then
Form_FrmRepartTemps.txtDim9.Value = nbHrs9(N9)
End If
End If

If Not IsNull(tache9(N9)) Then
Form_FrmRepartTemps.lstTache9.Value = tache(N9)
If journeeNo9(N9) = 1 Then
Form_FrmRepartTemps.txtTacheLun9.Value = nbDoc9(N9)
End If
If journeeNo9(N9) = 2 Then
Form_FrmRepartTemps.txtTacheMar9.Value = nbDoc9(N9)
End If
If journeeNo9(N9) = 3 Then
Form_FrmRepartTemps.txtTacheMer9.Value = nbDoc9(N9)
End If
If journeeNo9(N9) = 4 Then
Form_FrmRepartTemps.txtTacheJeu9.Value = nbDoc9(N9)
End If
If journeeNo9(N9) = 5 Then
Form_FrmRepartTemps.txtTacheVen9.Value = nbDoc9(N9)
End If
If journeeNo9(N9) = 6 Then
Form_FrmRepartTemps.txtTacheSam9.Value = nbDoc9(N9)
End If
If journeeNo9(N9) = 7 Then
Form_FrmRepartTemps.txtTacheDim9.Value = nbDoc9(N9)
End If
End If

If activite(9) = "Absences" Then
Form_FrmRepartTemps.lstAbs9.Value = codeAbs9(N9)
End If
End If
Next
End If

If nombreElem >= 10 Then
Dim sqlAct10 As String
Dim rsAct10 As Recordset
Dim journeeNo10(10)
Dim nbHrs10(10)
Dim nbDoc10(10)
Dim tache10(10)
Dim codeAbs10(10)
Dim N10 As Long
Dim i10 As Long
sqlAct10 "SELECT RepartTemps.dateSem, RepartTemps.typeTemps, JourRT.noJour, DetailJRT.noAct, DetailJRT.noTache, DetailJRT.nbHrs, DetailJRT.nbDoc, DetailJRT.codeAbs FROM RepartTemps INNER JOIN (JourRT INNER JOIN DetailJRT ON JourRT.noSeqJRT DetailJRT.noSeqJRT) ON RepartTemps.noSeqRt = JourRT.noSeqRT WHERE DetailJRT.noAct = '" & activite(10) & "' AND RepartTemps.typeTemps = '" & typeTempsSelect & "'"
Set rsAct10 = CurrentDb.OpenRecordset(sqlAct10)
Do Until rsAct10.EOF
i10 = i10 + 1
journeeNo10(i10) = rsAct10("noJour")
nbHrs10(i10) = rsAct10("nbHrs")
nbDoc10(i10) = rsAct10("nbDoc")
tache10(i10) = rsAct10("noTache")
codeAbs10(i10) = rsAct10("codeAbs")
rsAct10.MoveNext
Loop
rsAct10.Close

For N10 = 1 To nombreElem
If IsNull(Form_FrmRepartTemps.lstAct10) Then
Form_FrmRepartTemps.lstAct10.Value = activite(10)
If Not IsNull(journeeNo10(N10)) Then
If journeeNo10(N10) = 1 Then
Form_FrmRepartTemps.txtLun10.Value = nbHrs10(N10)
End If
If journeeNo10(N10) = 2 Then
Form_FrmRepartTemps.txtMar10.Value = nbHrs10(N10)
End If
If journeeNo10(N10) = 3 Then
Form_FrmRepartTemps.txtMer10.Value = nbHrs10(N10)
End If
If journeeNo10(N10) = 4 Then
Form_FrmRepartTemps.txtJeu10.Value = nbHrs10(N10)
End If
If journeeNo10(N10) = 5 Then
Form_FrmRepartTemps.txtVen10.Value = nbHrs10(N10)
End If
If journeeNo10(N10) = 6 Then
Form_FrmRepartTemps.txtSam10.Value = nbHrs10(N10)
End If
If journeeNo10(N10) = 7 Then
Form_FrmRepartTemps.txtDim10.Value = nbHrs10(N10)
End If
End If

If Not IsNull(tache10(N10)) Then
Form_FrmRepartTemps.lstTache10.Value = tache(N10)
If journeeNo10(N10) = 1 Then
Form_FrmRepartTemps.txtTacheLun10.Value = nbDoc10(N10)
End If
If journeeNo10(N10) = 2 Then
Form_FrmRepartTemps.txtTacheMar10.Value = nbDoc10(N10)
End If
If journeeNo10(N10) = 3 Then
Form_FrmRepartTemps.txtTacheMer10.Value = nbDoc10(N10)
End If
If journeeNo10(N10) = 4 Then
Form_FrmRepartTemps.txtTacheJeu10.Value = nbDoc10(N10)
End If
If journeeNo10(N10) = 5 Then
Form_FrmRepartTemps.txtTacheVen10.Value = nbDoc10(N10)
End If
If journeeNo10(N10) = 6 Then
Form_FrmRepartTemps.txtTacheSam10.Value = nbDoc10(N10)
End If
If journeeNo10(N10) = 7 Then
Form_FrmRepartTemps.txtTacheDim10.Value = nbDoc10(N10)
End If
End If

If activite(10) = "Absences" Then
Form_FrmRepartTemps.lstAbs10.Value = codeAbs10(N10)
End If
End If
Next
End If

End If



Dim numAct As String
Dim reqSelect1 As String
Dim rsAffT1 As Recordset
Dim nombreEnr As Long
If Not IsNull(Form_FrmRepartTemps.lstAct1.Value) Then
numAct = Form_FrmRepartTemps.lstAct1.Value
End If

reqSelect1 "SELECT COUNT (Taches.noTaches) As nombreEnr FROM Activite INNER JOIN Taches ON Activite.noAct Taches.noAct WHERE Activite.descAct = '" & numAct & "'"
Set rsAffT1 = CurrentDb.OpenRecordset(reqSelect1)

Do Until rsAffT1.EOF
If rsAffT1!nombreEnr > 0 Then
Form_FrmRepartTemps.lstTache1.Visible = True
Form_FrmRepartTemps.txtTacheLun1.Visible = True
Form_FrmRepartTemps.txtTacheMar1.Visible = True
Form_FrmRepartTemps.txtTacheMer1.Visible = True
Form_FrmRepartTemps.txtTacheJeu1.Visible = True
Form_FrmRepartTemps.txtTacheVen1.Visible = True
Form_FrmRepartTemps.txtTacheSam1.Visible = True
Form_FrmRepartTemps.txtTacheDim1.Visible = True
Form_FrmRepartTemps.txtTacheTot1.Visible = True

Else
Form_FrmRepartTemps.lstTache1.Visible = False
Form_FrmRepartTemps.txtTacheLun1.Visible = False
Form_FrmRepartTemps.txtTacheMar1.Visible = False
Form_FrmRepartTemps.txtTacheMer1.Visible = False
Form_FrmRepartTemps.txtTacheJeu1.Visible = False
Form_FrmRepartTemps.txtTacheVen1.Visible = False
Form_FrmRepartTemps.txtTacheSam1.Visible = False
Form_FrmRepartTemps.txtTacheDim1.Visible = False
Form_FrmRepartTemps.txtTacheTot1.Visible = False

End If
rsAffT1.MoveNext
Loop
rsAffT1.Close

If Form_FrmRepartTemps.lstAct1.Value = "Absences" Then
Form_FrmRepartTemps.lblAbs1.Visible = True
Form_FrmRepartTemps.lstAbs1.Visible = True
Else
Form_FrmRepartTemps.lblAbs1.Visible = False
Form_FrmRepartTemps.lstAbs1.Visible = False
End If


Dim reqSelect2 As String
Dim rsAffT2 As Recordset
If Not IsNull(Form_FrmRepartTemps.lstAct2.Value) Then
numAct = Form_FrmRepartTemps.lstAct2.Value
End If

reqSelect2 "SELECT COUNT (Taches.noTaches) As nombreEnr FROM Activite INNER JOIN Taches ON Activite.noAct Taches.noAct WHERE Activite.descAct = '" & numAct & "'"
Set rsAffT2 = CurrentDb.OpenRecordset(reqSelect2)

Do Until rsAffT2.EOF
If rsAffT2!nombreEnr > 0 Then
Form_FrmRepartTemps.lstTache2.Visible = True
Form_FrmRepartTemps.txtTacheLun2.Visible = True
Form_FrmRepartTemps.txtTacheMar2.Visible = True
Form_FrmRepartTemps.txtTacheMer2.Visible = True
Form_FrmRepartTemps.txtTacheJeu2.Visible = True
Form_FrmRepartTemps.txtTacheVen2.Visible = True
Form_FrmRepartTemps.txtTacheSam2.Visible = True
Form_FrmRepartTemps.txtTacheDim2.Visible = True
Form_FrmRepartTemps.txtTacheTot2.Visible = True

Else
Form_FrmRepartTemps.lstTache2.Visible = False
Form_FrmRepartTemps.txtTacheLun2.Visible = False
Form_FrmRepartTemps.txtTacheMar2.Visible = False
Form_FrmRepartTemps.txtTacheMer2.Visible = False
Form_FrmRepartTemps.txtTacheJeu2.Visible = False
Form_FrmRepartTemps.txtTacheVen2.Visible = False
Form_FrmRepartTemps.txtTacheSam2.Visible = False
Form_FrmRepartTemps.txtTacheDim2.Visible = False
Form_FrmRepartTemps.txtTacheTot2.Visible = False

End If
rsAffT2.MoveNext
Loop
rsAffT2.Close

If Form_FrmRepartTemps.lstAct2.Value = "Absences" Then
Form_FrmRepartTemps.lblAbs2.Visible = True
Form_FrmRepartTemps.lstAbs2.Visible = True
Else
Form_FrmRepartTemps.lblAbs2.Visible = False
Form_FrmRepartTemps.lstAbs2.Visible = False
End If

Dim reqSelect3 As String
Dim rsAffT3 As Recordset
If Not IsNull(Form_FrmRepartTemps.lstAct3.Value) Then
numAct = Form_FrmRepartTemps.lstAct3.Value
End If

reqSelect3 "SELECT COUNT (Taches.noTaches) As nombreEnr FROM Activite INNER JOIN Taches ON Activite.noAct Taches.noAct WHERE Activite.descAct = '" & numAct & "'"
Set rsAffT3 = CurrentDb.OpenRecordset(reqSelect3)

Do Until rsAffT3.EOF
If rsAffT3!nombreEnr > 0 Then
Form_FrmRepartTemps.lstTache3.Visible = True
Form_FrmRepartTemps.txtTacheLun3.Visible = True
Form_FrmRepartTemps.txtTacheMar3.Visible = True
Form_FrmRepartTemps.txtTacheMer3.Visible = True
Form_FrmRepartTemps.txtTacheJeu3.Visible = True
Form_FrmRepartTemps.txtTacheVen3.Visible = True
Form_FrmRepartTemps.txtTacheSam3.Visible = True
Form_FrmRepartTemps.txtTacheDim3.Visible = True
Form_FrmRepartTemps.txtTacheTot3.Visible = True

Else
Form_FrmRepartTemps.lstTache3.Visible = False
Form_FrmRepartTemps.txtTacheLun3.Visible = False
Form_FrmRepartTemps.txtTacheMar3.Visible = False
Form_FrmRepartTemps.txtTacheMer3.Visible = False
Form_FrmRepartTemps.txtTacheJeu3.Visible = False
Form_FrmRepartTemps.txtTacheVen3.Visible = False
Form_FrmRepartTemps.txtTacheSam3.Visible = False
Form_FrmRepartTemps.txtTacheDim3.Visible = False
Form_FrmRepartTemps.txtTacheTot3.Visible = False

End If
rsAffT3.MoveNext
Loop
rsAffT3.Close

If Form_FrmRepartTemps.lstAct3.Value = "Absences" Then
Form_FrmRepartTemps.lblAbs3.Visible = True
Form_FrmRepartTemps.lstAbs3.Visible = True
Else
Form_FrmRepartTemps.lblAbs3.Visible = False
Form_FrmRepartTemps.lstAbs3.Visible = False
End If

Dim reqSelect4 As String
Dim rsAffT4 As Recordset
If Not IsNull(Form_FrmRepartTemps.lstAct4.Value) Then
numAct = Form_FrmRepartTemps.lstAct4.Value
End If

reqSelect4 "SELECT COUNT (Taches.noTaches) As nombreEnr FROM Activite INNER JOIN Taches ON Activite.noAct Taches.noAct WHERE Activite.descAct = '" & numAct & "'"
Set rsAffT4 = CurrentDb.OpenRecordset(reqSelect4)

Do Until rsAffT4.EOF
If rsAffT4!nombreEnr > 0 Then
Form_FrmRepartTemps.lstTache4.Visible = True
Form_FrmRepartTemps.txtTacheLun4.Visible = True
Form_FrmRepartTemps.txtTacheMar4.Visible = True
Form_FrmRepartTemps.txtTacheMer4.Visible = True
Form_FrmRepartTemps.txtTacheJeu4.Visible = True
Form_FrmRepartTemps.txtTacheVen4.Visible = True
Form_FrmRepartTemps.txtTacheSam4.Visible = True
Form_FrmRepartTemps.txtTacheDim4.Visible = True
Form_FrmRepartTemps.txtTacheTot4.Visible = True

Else
Form_FrmRepartTemps.lstTache4.Visible = False
Form_FrmRepartTemps.txtTacheLun4.Visible = False
Form_FrmRepartTemps.txtTacheMar4.Visible = False
Form_FrmRepartTemps.txtTacheMer4.Visible = False
Form_FrmRepartTemps.txtTacheJeu4.Visible = False
Form_FrmRepartTemps.txtTacheVen4.Visible = False
Form_FrmRepartTemps.txtTacheSam4.Visible = False
Form_FrmRepartTemps.txtTacheDim4.Visible = False
Form_FrmRepartTemps.txtTacheTot4.Visible = False

End If
rsAffT4.MoveNext
Loop
rsAffT4.Close

If Form_FrmRepartTemps.lstAct4.Value = "Absences" Then
Form_FrmRepartTemps.lblAbs4.Visible = True
Form_FrmRepartTemps.lstAbs4.Visible = True
Else
Form_FrmRepartTemps.lblAbs4.Visible = False
Form_FrmRepartTemps.lstAbs4.Visible = False
End If

Dim reqSelect5 As String
Dim rsAffT5 As Recordset
If Not IsNull(Form_FrmRepartTemps.lstAct5.Value) Then
numAct = Form_FrmRepartTemps.lstAct5.Value
End If

reqSelect5 "SELECT COUNT (Taches.noTaches) As nombreEnr FROM Activite INNER JOIN Taches ON Activite.noAct Taches.noAct WHERE Activite.descAct = '" & numAct & "'"
Set rsAffT5 = CurrentDb.OpenRecordset(reqSelect5)

Do Until rsAffT5.EOF
If rsAffT5!nombreEnr > 0 Then
Form_FrmRepartTemps.lstTache5.Visible = True
Form_FrmRepartTemps.txtTacheLun5.Visible = True
Form_FrmRepartTemps.txtTacheMar5.Visible = True
Form_FrmRepartTemps.txtTacheMer5.Visible = True
Form_FrmRepartTemps.txtTacheJeu5.Visible = True
Form_FrmRepartTemps.txtTacheVen5.Visible = True
Form_FrmRepartTemps.txtTacheSam5.Visible = True
Form_FrmRepartTemps.txtTacheDim5.Visible = True
Form_FrmRepartTemps.txtTacheTot5.Visible = True

Else
Form_FrmRepartTemps.lstTache5.Visible = False
Form_FrmRepartTemps.txtTacheLun5.Visible = False
Form_FrmRepartTemps.txtTacheMar5.Visible = False
Form_FrmRepartTemps.txtTacheMer5.Visible = False
Form_FrmRepartTemps.txtTacheJeu5.Visible = False
Form_FrmRepartTemps.txtTacheVen5.Visible = False
Form_FrmRepartTemps.txtTacheSam5.Visible = False
Form_FrmRepartTemps.txtTacheDim5.Visible = False
Form_FrmRepartTemps.txtTacheTot5.Visible = False

End If
rsAffT5.MoveNext
Loop
rsAffT5.Close

If Form_FrmRepartTemps.lstAct5.Value = "Absences" Then
Form_FrmRepartTemps.lblAbs5.Visible = True
Form_FrmRepartTemps.lstAbs5.Visible = True
Else
Form_FrmRepartTemps.lblAbs5.Visible = False
Form_FrmRepartTemps.lstAbs5.Visible = False
End If

Dim reqSelect6 As String
Dim rsAffT6 As Recordset
If Not IsNull(Form_FrmRepartTemps.lstAct6.Value) Then
numAct = Form_FrmRepartTemps.lstAct6.Value
End If

reqSelect6 "SELECT COUNT (Taches.noTaches) As nombreEnr FROM Activite INNER JOIN Taches ON Activite.noAct Taches.noAct WHERE Activite.descAct = '" & numAct & "'"
Set rsAffT6 = CurrentDb.OpenRecordset(reqSelect6)

Do Until rsAffT6.EOF
If rsAffT6!nombreEnr > 0 Then
Form_FrmRepartTemps.lstTache6.Visible = True
Form_FrmRepartTemps.txtTacheLun6.Visible = True
Form_FrmRepartTemps.txtTacheMar6.Visible = True
Form_FrmRepartTemps.txtTacheMer6.Visible = True
Form_FrmRepartTemps.txtTacheJeu6.Visible = True
Form_FrmRepartTemps.txtTacheVen6.Visible = True
Form_FrmRepartTemps.txtTacheSam6.Visible = True
Form_FrmRepartTemps.txtTacheDim6.Visible = True
Form_FrmRepartTemps.txtTacheTot6.Visible = True

Else
Form_FrmRepartTemps.lstTache6.Visible = False
Form_FrmRepartTemps.txtTacheLun6.Visible = False
Form_FrmRepartTemps.txtTacheMar6.Visible = False
Form_FrmRepartTemps.txtTacheMer6.Visible = False
Form_FrmRepartTemps.txtTacheJeu6.Visible = False
Form_FrmRepartTemps.txtTacheVen6.Visible = False
Form_FrmRepartTemps.txtTacheSam6.Visible = False
Form_FrmRepartTemps.txtTacheDim6.Visible = False
Form_FrmRepartTemps.txtTacheTot6.Visible = False

End If
rsAffT6.MoveNext
Loop
rsAffT6.Close

If Form_FrmRepartTemps.lstAct6.Value = "Absences" Then
Form_FrmRepartTemps.lblAbs6.Visible = True
Form_FrmRepartTemps.lstAbs6.Visible = True
Else
Form_FrmRepartTemps.lblAbs6.Visible = False
Form_FrmRepartTemps.lstAbs6.Visible = False
End If

Dim reqSelect7 As String
Dim rsAffT7 As Recordset
If Not IsNull(Form_FrmRepartTemps.lstAct7.Value) Then
numAct = Form_FrmRepartTemps.lstAct7.Value
End If

reqSelect7 "SELECT COUNT (Taches.noTaches) As nombreEnr FROM Activite INNER JOIN Taches ON Activite.noAct Taches.noAct WHERE Activite.descAct = '" & numAct & "'"
Set rsAffT7 = CurrentDb.OpenRecordset(reqSelect7)

Do Until rsAffT7.EOF
If rsAffT7!nombreEnr > 0 Then
Form_FrmRepartTemps.lstTache7.Visible = True
Form_FrmRepartTemps.txtTacheLun7.Visible = True
Form_FrmRepartTemps.txtTacheMar7.Visible = True
Form_FrmRepartTemps.txtTacheMer7.Visible = True
Form_FrmRepartTemps.txtTacheJeu7.Visible = True
Form_FrmRepartTemps.txtTacheVen7.Visible = True
Form_FrmRepartTemps.txtTacheSam7.Visible = True
Form_FrmRepartTemps.txtTacheDim7.Visible = True
Form_FrmRepartTemps.txtTacheTot7.Visible = True

Else
Form_FrmRepartTemps.lstTache7.Visible = False
Form_FrmRepartTemps.txtTacheLun7.Visible = False
Form_FrmRepartTemps.txtTacheMar7.Visible = False
Form_FrmRepartTemps.txtTacheMer7.Visible = False
Form_FrmRepartTemps.txtTacheJeu7.Visible = False
Form_FrmRepartTemps.txtTacheVen7.Visible = False
Form_FrmRepartTemps.txtTacheSam7.Visible = False
Form_FrmRepartTemps.txtTacheDim7.Visible = False
Form_FrmRepartTemps.txtTacheTot7.Visible = False

End If
rsAffT7.MoveNext
Loop
rsAffT7.Close

If Form_FrmRepartTemps.lstAct7.Value = "Absences" Then
Form_FrmRepartTemps.lblAbs7.Visible = True
Form_FrmRepartTemps.lstAbs7.Visible = True
Else
Form_FrmRepartTemps.lblAbs7.Visible = False
Form_FrmRepartTemps.lstAbs7.Visible = False
End If

Dim reqSelect8 As String
Dim rsAffT8 As Recordset
If Not IsNull(Form_FrmRepartTemps.lstAct8.Value) Then
numAct = Form_FrmRepartTemps.lstAct8.Value
End If

reqSelect8 "SELECT COUNT (Taches.noTaches) As nombreEnr FROM Activite INNER JOIN Taches ON Activite.noAct Taches.noAct WHERE Activite.descAct = '" & numAct & "'"
Set rsAffT8 = CurrentDb.OpenRecordset(reqSelect8)

Do Until rsAffT8.EOF
If rsAffT8!nombreEnr > 0 Then
Form_FrmRepartTemps.lstTache8.Visible = True
Form_FrmRepartTemps.txtTacheLun8.Visible = True
Form_FrmRepartTemps.txtTacheMar8.Visible = True
Form_FrmRepartTemps.txtTacheMer8.Visible = True
Form_FrmRepartTemps.txtTacheJeu8.Visible = True
Form_FrmRepartTemps.txtTacheVen8.Visible = True
Form_FrmRepartTemps.txtTacheSam8.Visible = True
Form_FrmRepartTemps.txtTacheDim8.Visible = True
Form_FrmRepartTemps.txtTacheTot8.Visible = True

Else
Form_FrmRepartTemps.lstTache8.Visible = False
Form_FrmRepartTemps.txtTacheLun8.Visible = False
Form_FrmRepartTemps.txtTacheMar8.Visible = False
Form_FrmRepartTemps.txtTacheMer8.Visible = False
Form_FrmRepartTemps.txtTacheJeu8.Visible = False
Form_FrmRepartTemps.txtTacheVen8.Visible = False
Form_FrmRepartTemps.txtTacheSam8.Visible = False
Form_FrmRepartTemps.txtTacheDim8.Visible = False
Form_FrmRepartTemps.txtTacheTot8.Visible = False

End If
rsAffT8.MoveNext
Loop
rsAffT8.Close

If Form_FrmRepartTemps.lstAct8.Value = "Absences" Then
Form_FrmRepartTemps.lblAbs8.Visible = True
Form_FrmRepartTemps.lstAbs8.Visible = True
Else
Form_FrmRepartTemps.lblAbs8.Visible = False
Form_FrmRepartTemps.lstAbs8.Visible = False
End If

Dim reqSelect9 As String
Dim rsAffT9 As Recordset
If Not IsNull(Form_FrmRepartTemps.lstAct9.Value) Then
numAct = Form_FrmRepartTemps.lstAct9.Value
End If

reqSelect9 "SELECT COUNT (Taches.noTaches) As nombreEnr FROM Activite INNER JOIN Taches ON Activite.noAct Taches.noAct WHERE Activite.descAct = '" & numAct & "'"
Set rsAffT9 = CurrentDb.OpenRecordset(reqSelect9)

Do Until rsAffT9.EOF
If rsAffT9!nombreEnr > 0 Then
Form_FrmRepartTemps.lstTache9.Visible = True
Form_FrmRepartTemps.txtTacheLun9.Visible = True
Form_FrmRepartTemps.txtTacheMar9.Visible = True
Form_FrmRepartTemps.txtTacheMer9.Visible = True
Form_FrmRepartTemps.txtTacheJeu9.Visible = True
Form_FrmRepartTemps.txtTacheVen9.Visible = True
Form_FrmRepartTemps.txtTacheSam9.Visible = True
Form_FrmRepartTemps.txtTacheDim9.Visible = True
Form_FrmRepartTemps.txtTacheTot9.Visible = True

Else
Form_FrmRepartTemps.lstTache9.Visible = False
Form_FrmRepartTemps.txtTacheLun9.Visible = False
Form_FrmRepartTemps.txtTacheMar9.Visible = False
Form_FrmRepartTemps.txtTacheMer9.Visible = False
Form_FrmRepartTemps.txtTacheJeu9.Visible = False
Form_FrmRepartTemps.txtTacheVen9.Visible = False
Form_FrmRepartTemps.txtTacheSam9.Visible = False
Form_FrmRepartTemps.txtTacheDim9.Visible = False
Form_FrmRepartTemps.txtTacheTot9.Visible = False

End If
rsAffT9.MoveNext
Loop
rsAffT9.Close

If Form_FrmRepartTemps.lstAct9.Value = "Absences" Then
Form_FrmRepartTemps.lblAbs9.Visible = True
Form_FrmRepartTemps.lstAbs9.Visible = True
Else
Form_FrmRepartTemps.lblAbs9.Visible = False
Form_FrmRepartTemps.lstAbs9.Visible = False
End If

Dim reqSelect10 As String
Dim rsAffT10 As Recordset
If Not IsNull(Form_FrmRepartTemps.lstAct10.Value) Then
numAct = Form_FrmRepartTemps.lstAct10.Value
End If

reqSelect10 "SELECT COUNT (Taches.noTaches) As nombreEnr FROM Activite INNER JOIN Taches ON Activite.noAct Taches.noAct WHERE Activite.descAct = '" & numAct & "'"
Set rsAffT10 = CurrentDb.OpenRecordset(reqSelect10)

Do Until rsAffT10.EOF
If rsAffT10!nombreEnr > 0 Then
Form_FrmRepartTemps.lstTache10.Visible = True
Form_FrmRepartTemps.txtTacheLun10.Visible = True
Form_FrmRepartTemps.txtTacheMar10.Visible = True
Form_FrmRepartTemps.txtTacheMer10.Visible = True
Form_FrmRepartTemps.txtTacheJeu10.Visible = True
Form_FrmRepartTemps.txtTacheVen10.Visible = True
Form_FrmRepartTemps.txtTacheSam10.Visible = True
Form_FrmRepartTemps.txtTacheDim10.Visible = True
Form_FrmRepartTemps.txtTacheTot10.Visible = True
Else
Form_FrmRepartTemps.lstTache10.Visible = False
Form_FrmRepartTemps.txtTacheLun10.Visible = False
Form_FrmRepartTemps.txtTacheMar10.Visible = False
Form_FrmRepartTemps.txtTacheMer10.Visible = False
Form_FrmRepartTemps.txtTacheJeu10.Visible = False
Form_FrmRepartTemps.txtTacheVen10.Visible = False
Form_FrmRepartTemps.txtTacheSam10.Visible = False
Form_FrmRepartTemps.txtTacheDim10.Visible = False
Form_FrmRepartTemps.txtTacheTot10.Visible = False
End If
rsAffT10.MoveNext
Loop
rsAffT10.Close

If Form_FrmRepartTemps.lstAct10.Value = "Absences" Then
Form_FrmRepartTemps.lblAbs10.Visible = True
Form_FrmRepartTemps.lstAbs10.Visible = True
Else
Form_FrmRepartTemps.lblAbs10.Visible = False
Form_FrmRepartTemps.lstAbs10.Visible = False
End If


txtVide

Form_FrmRepartTemps.txtTotal1 = EnHeure(Form_FrmRepartTemps.txtLun1 + Form_FrmRepartTemps.txtMar1 + Form_FrmRepartTemps.txtMer1 + Form_FrmRepartTemps.txtJeu1 + Form_FrmRepartTemps.txtVen1 + Form_FrmRepartTemps.txtSam1 + Form_FrmRepartTemps.txtDim1)
Form_FrmRepartTemps.txtTacheTot1 = Form_FrmRepartTemps.txtTacheLun1 + Form_FrmRepartTemps.txtTacheMar1 + Form_FrmRepartTemps.txtTacheMer1 + Form_FrmRepartTemps.txtTacheJeu1 + Form_FrmRepartTemps.txtTacheVen1 + Form_FrmRepartTemps.txtTacheSam1 + Form_FrmRepartTemps.txtTacheDim1

Form_FrmRepartTemps.txtTotal2 = EnHeure(Form_FrmRepartTemps.txtLun2 + Form_FrmRepartTemps.txtMar2 + Form_FrmRepartTemps.txtMer2 + Form_FrmRepartTemps.txtJeu2 + Form_FrmRepartTemps.txtVen2 + Form_FrmRepartTemps.txtSam2 + Form_FrmRepartTemps.txtDim2)
Form_FrmRepartTemps.txtTacheTot2 = Form_FrmRepartTemps.txtTacheLun2 + Form_FrmRepartTemps.txtTacheMar2 + Form_FrmRepartTemps.txtTacheMer2 + Form_FrmRepartTemps.txtTacheJeu2 + Form_FrmRepartTemps.txtTacheVen2 + Form_FrmRepartTemps.txtTacheSam2 + Form_FrmRepartTemps.txtTacheDim2

Form_FrmRepartTemps.txtTotal3 = EnHeure(Form_FrmRepartTemps.txtLun3 + Form_FrmRepartTemps.txtMar3 + Form_FrmRepartTemps.txtMer3 + Form_FrmRepartTemps.txtJeu3 + Form_FrmRepartTemps.txtVen3 + Form_FrmRepartTemps.txtSam3 + Form_FrmRepartTemps.txtDim3)
Form_FrmRepartTemps.txtTacheTot3 = Form_FrmRepartTemps.txtTacheLun3 + Form_FrmRepartTemps.txtTacheMar3 + Form_FrmRepartTemps.txtTacheMer3 + Form_FrmRepartTemps.txtTacheJeu3 + Form_FrmRepartTemps.txtTacheVen3 + Form_FrmRepartTemps.txtTacheSam3 + Form_FrmRepartTemps.txtTacheDim3

Form_FrmRepartTemps.txtTotal4 = EnHeure(Form_FrmRepartTemps.txtLun4 + Form_FrmRepartTemps.txtMar4 + Form_FrmRepartTemps.txtMer4 + Form_FrmRepartTemps.txtJeu4 + Form_FrmRepartTemps.txtVen4 + Form_FrmRepartTemps.txtSam4 + Form_FrmRepartTemps.txtDim4)
Form_FrmRepartTemps.txtTacheTot4 = Form_FrmRepartTemps.txtTacheLun4 + Form_FrmRepartTemps.txtTacheMar4 + Form_FrmRepartTemps.txtTacheMer4 + Form_FrmRepartTemps.txtTacheJeu4 + Form_FrmRepartTemps.txtTacheVen4 + Form_FrmRepartTemps.txtTacheSam4 + Form_FrmRepartTemps.txtTacheDim4

Form_FrmRepartTemps.txtTotal5 = EnHeure(Form_FrmRepartTemps.txtLun5 + Form_FrmRepartTemps.txtMar5 + Form_FrmRepartTemps.txtMer5 + Form_FrmRepartTemps.txtJeu5 + Form_FrmRepartTemps.txtVen5 + Form_FrmRepartTemps.txtSam5 + Form_FrmRepartTemps.txtDim5)
Form_FrmRepartTemps.txtTacheTot5 = Form_FrmRepartTemps.txtTacheLun5 + Form_FrmRepartTemps.txtTacheMar5 + Form_FrmRepartTemps.txtTacheMer5 + Form_FrmRepartTemps.txtTacheJeu5 + Form_FrmRepartTemps.txtTacheVen5 + Form_FrmRepartTemps.txtTacheSam5 + Form_FrmRepartTemps.txtTacheDim5

Form_FrmRepartTemps.txtTotal6 = EnHeure(Form_FrmRepartTemps.txtLun6 + Form_FrmRepartTemps.txtMar6 + Form_FrmRepartTemps.txtMer6 + Form_FrmRepartTemps.txtJeu6 + Form_FrmRepartTemps.txtVen6 + Form_FrmRepartTemps.txtSam6 + Form_FrmRepartTemps.txtDim6)
Form_FrmRepartTemps.txtTacheTot6 = Form_FrmRepartTemps.txtTacheLun6 + Form_FrmRepartTemps.txtTacheMar6 + Form_FrmRepartTemps.txtTacheMer6 + Form_FrmRepartTemps.txtTacheJeu6 + Form_FrmRepartTemps.txtTacheVen6 + Form_FrmRepartTemps.txtTacheSam6 + Form_FrmRepartTemps.txtTacheDim6

Form_FrmRepartTemp

Merci cs_peter2010 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 72 internautes ce mois-ci

Commenter la réponse de cs_peter2010
0219fouine28 31 Messages postés jeudi 25 septembre 2008Date d'inscription 16 août 2010 Dernière intervention - 19 juil. 2010 à 21:46
0
Merci
Salut,

Travailles-tu sur un dataset en mode déconnecté ou directement sur ta base de données?
Montre ton code. Parce que comme on ne peux pas d'aider.
Commenter la réponse de 0219fouine28
cs_peter2010 48 Messages postés vendredi 25 septembre 2009Date d'inscription 29 juillet 2010 Dernière intervention - 19 juil. 2010 à 21:55
0
Merci
Salut, étant donné que mon code contient un trop grand nombre de lignes de codes (environ 10000) et qu'il se répète pas mal je vous envoie les lignes les plus importantes...

Mon événement sur le changement du listbox de mon formulaire:

Dim codeEmplForm As String
Dim typeTempsSelectForm As String
Dim dateSemaineForm As Date

If Not IsNull(Me.lstEmpl) Or Not IsEmpty(Me.lstEmpl) Then
codeEmplForm = Me.lstEmpl
End If

If Not IsNull(Me.lstTypeTemps) Or Not IsEmpty(Me.lstTypeTemps) Then
typeTempsSelectForm = Me.lstTypeTemps
End If

If Not IsNull(Me.txtDate) Or Not IsEmpty(Me.txtDate) Then
dateSemaineForm = Me.txtDate
End If

Me.Requery
Me.Refresh

interrogation codeEmplForm, dateSemaineForm, typeTempsSelectForm



Ma fonction pour aller chercher les informations :

Public Function interrogation(codeEmpl As String, dateSemaine As Date, typeTempsSelect As String)


sqlAffichage "SELECT JourRT.noSeqJRT, RepartTemps.codeUsager, RepartTemps.dateSem, RepartTemps.typeTemps, JourRT.noJour, DetailJRT.noAct, DetailJRT.noTache, DetailJRT.nbHrs, DetailJRT.nbDoc, DetailJRT.uniteMesure, DetailJRT.noCr, DetailJRT.codeAbs FROM RepartTemps INNER JOIN (JourRT INNER JOIN DetailJRT ON JourRT.noSeqJRT DetailJRT.noSeqJRT) ON RepartTemps.noSeqRt = JourRT.noSeqRT WHERE RepartTemps.codeUsager='" & codeEmpl & "' AND RepartTemps.dateSem= #" & dateSemaine & "# AND RepartTemps.typeTemps = '" & typeTempsSelect & "'"

Set rsAffichage = CurrentDb.OpenRecordset(sqlAffichage)


Dim activite
ReDim activite(nombreElem)
Dim tache
ReDim tache(nombreElem)
Dim codeAbsence
ReDim codeAbsence(nombreElem)
Dim typeTemps
Dim noSeqJRT
ReDim noSeqJRT(nombreElem)
Dim semaineAff
ReDim semaineAff(nombreElem)
Dim journeeNo
ReDim journeeNo(nombreElem)
Dim nbHrsAff
ReDim nbHrsAff(nombreElem)
Dim nbDocAff
ReDim nbDocAff(nombreElem)
Dim i As Long
Dim z As Long
Do While Not rsAffichage.EOF
i = i + 1
activite(i) = rsAffichage("noAct")
tache(i) = rsAffichage("noTache")
codeAbsence(i) = rsAffichage("codeAbs")
typeTemps = rsAffichage("typeTemps")
noSeqJRT(i) = rsAffichage("noSeqJRT")
semaineAff(i) = rsAffichage("dateSem")
journeeNo(i) = rsAffichage("noJour")
nbHrsAff(i) = rsAffichage("nbHrs")
nbDocAff(i) = rsAffichage("nbDoc")
If semaineAff(i) = dateSemaine Then
bonneSem = True
End If
rsAffichage.MoveNext
Loop


Dim sqlAct1 As String
Dim rsAct1 As Recordset
Dim journeeNo1(8)
Dim nbHrs1(8)
Dim nbDoc1(8)
Dim tache1(8)
Dim codeAbs1(8)
Dim N1 As Long
Dim i1 As Long
sqlAct1 "SELECT RepartTemps.dateSem, RepartTemps.typeTemps, JourRT.noJour, DetailJRT.noAct, DetailJRT.noTache, DetailJRT.nbHrs, DetailJRT.nbDoc, DetailJRT.codeAbs FROM RepartTemps INNER JOIN (JourRT INNER JOIN DetailJRT ON JourRT.noSeqJRT DetailJRT.noSeqJRT) ON RepartTemps.noSeqRt = JourRT.noSeqRT WHERE DetailJRT.noAct = '" & activite(1) & "' AND RepartTemps.typeTemps = '" & typeTempsSelect & "'"
Set rsAct1 = CurrentDb.OpenRecordset(sqlAct1)
Do Until rsAct1.EOF
i1 = i1 + 1
journeeNo1(i1) = rsAct1("noJour")
nbHrs1(i1) = rsAct1("nbHrs")
nbDoc1(i1) = rsAct1("nbDoc")
tache1(i1) = rsAct1("noTache")
codeAbs1(i1) = rsAct1("codeAbs")
rsAct1.MoveNext
Loop
rsAct1.Close

For N1 = 1 To nombreElem
If IsNull(Form_FrmRepartTempsInterrogation.lstAct1) Then
Form_FrmRepartTempsInterrogation.lstAct1.Value = activite(1)
If Not IsNull(journeeNo1(N1)) Then
If journeeNo1(N1) = 1 Then
Form_FrmRepartTempsInterrogation.txtLun1.Value = nbHrs1(N1)
End If
If journeeNo1(N1) = 2 Then
Form_FrmRepartTempsInterrogation.txtMar1.Value = nbHrs1(N1)
End If
If journeeNo1(N1) = 3 Then
Form_FrmRepartTempsInterrogation.txtMer1.Value = nbHrs1(N1)
End If
If journeeNo1(N1) = 4 Then
Form_FrmRepartTempsInterrogation.txtJeu1.Value = nbHrs1(N1)
End If
If journeeNo1(N1) = 5 Then
Form_FrmRepartTempsInterrogation.txtVen1.Value = nbHrs1(N1)
End If
If journeeNo1(N1) = 6 Then
Form_FrmRepartTempsInterrogation.txtSam1.Value = nbHrs1(N1)
End If
If journeeNo1(N1) = 7 Then
Form_FrmRepartTempsInterrogation.txtDim1.Value = nbHrs1(N1)
End If
End If

If Not IsNull(tache1(N1)) Then
Form_FrmRepartTempsInterrogation.lstTache1.Value = tache(N1)
If journeeNo1(N1) = 1 Then
Form_FrmRepartTempsInterrogation.txtTacheLun1.Value = nbDoc1(N1)
End If
If journeeNo1(N1) = 2 Then
Form_FrmRepartTempsInterrogation.txtTacheMar1.Value = nbDoc1(N1)
End If
If journeeNo1(N1) = 3 Then
Form_FrmRepartTempsInterrogation.txtTacheMer1.Value = nbDoc1(N1)
End If
If journeeNo1(N1) = 4 Then
Form_FrmRepartTempsInterrogation.txtTacheJeu1.Value = nbDoc1(N1)
End If
If journeeNo1(N1) = 5 Then
Form_FrmRepartTempsInterrogation.txtTacheVen1.Value = nbDoc1(N1)
End If
If journeeNo1(N1) = 6 Then
Form_FrmRepartTempsInterrogation.txtTacheSam1.Value = nbDoc1(N1)
End If
If journeeNo1(N1) = 7 Then
Form_FrmRepartTempsInterrogation.txtTacheDim1.Value = nbDoc1(N1)
End If
End If

If activite(1) = "Absences" Then
Form_FrmRepartTempsInterrogation.lstAbs1.Value = codeAbs1(N1)
End If
End If
Next
End If

rsAct1.Close
rsAffichage.Close


End Function



Merci encore!
Commenter la réponse de cs_peter2010
0219fouine28 31 Messages postés jeudi 25 septembre 2008Date d'inscription 16 août 2010 Dernière intervention - 20 juil. 2010 à 00:31
0
Merci
Sur quelle version de vb travailles-tu? Parce que Recordset=vb6 non?
Essaye de vider (clear) les recordset mais je ne suis pas sur que cela fonctionne (ou que ça soit possible).
Commenter la réponse de 0219fouine28
cs_peter2010 48 Messages postés vendredi 25 septembre 2009Date d'inscription 29 juillet 2010 Dernière intervention - 20 juil. 2010 à 00:38
0
Merci
Je suis sur du VBA (visual basic pour Access)
Commenter la réponse de cs_peter2010
cs_peter2010 48 Messages postés vendredi 25 septembre 2009Date d'inscription 29 juillet 2010 Dernière intervention - 20 juil. 2010 à 14:29
0
Merci
Pourquoi vider les recordset, je fait des recordset.close non?
Commenter la réponse de cs_peter2010
0219fouine28 31 Messages postés jeudi 25 septembre 2008Date d'inscription 16 août 2010 Dernière intervention - 20 juil. 2010 à 14:36
0
Merci
Comme je l'ai dit je ne suis pas sûr que c'est possible en vba Access (je n'ai d'ailleurs jamais utiliser vba Access). Et puis un recorset, c'est un pointeur qui "pointe" sur des valeurs de la base de données.
Commenter la réponse de 0219fouine28
cs_peter2010 48 Messages postés vendredi 25 septembre 2009Date d'inscription 29 juillet 2010 Dernière intervention - 20 juil. 2010 à 14:47
0
Merci
A votre avis il y a rien d'autre que vous voyez qui pourrait clocher dans le code?
Commenter la réponse de cs_peter2010
0219fouine28 31 Messages postés jeudi 25 septembre 2008Date d'inscription 16 août 2010 Dernière intervention - 20 juil. 2010 à 15:01
0
Merci
C'est un code assez lourd et non commenté donc difficile de t'aider d'avantage.
Mais je pense que la solution est autour de la lecture des champs de la table.
Le pointeur du recordset est-il au bon emplacement pour chaque lecture?
Encore une fois, je ne suis pas sûr de moi. C'est une piste pour résoudre ton problème.
Exécute le code en pas-à-pas détaillé pour voir les valeurs des différentes variables. C'est souvent comme ça qu'on résout un problème.
Commenter la réponse de 0219fouine28
cs_peter2010 48 Messages postés vendredi 25 septembre 2009Date d'inscription 29 juillet 2010 Dernière intervention - 20 juil. 2010 à 15:04
0
Merci
Oui c'est ce que j'ai fait et ce que je n'arrive pas à comprendre cé que quand je fais le pas a pas, mes variables ont les bonnes variables et ces variable sont assignés aux bon controles de mon formulaire, c'est au niveau du visuel qu'ils ne s'affichent pas. Je vais tenter d'optimiser mon code.

Merci
Commenter la réponse de cs_peter2010
cs_peter2010 48 Messages postés vendredi 25 septembre 2009Date d'inscription 29 juillet 2010 Dernière intervention - 20 juil. 2010 à 17:47
0
Merci
Private Sub lstTypeTemps_AfterUpdate()

Me.cmdSemPrec.enabled = False
Me.cmdProchSem.enabled = False
Me.cmdAnnuler.enabled = True
Me.cmdOk.enabled = True
Dim dateSemaineForm As Date
Dim typeTempsSelectForm As String
Dim emplForm As String

If Not IsNull(Me.lstTypeTemps) Or Not IsEmpty(Me.lstTypeTemps) Then
typeTempsSelectForm = Me.lstTypeTemps
End If

If Not IsNull(Me.txtDate) Or Not IsEmpty(Me.txtDate) Then
dateSemaineForm = Me.txtDate
End If

emplForm = GetUtilisateur

loadingFrmRepart emplForm, typeTempsSelectForm, dateSemaineForm

End Sub
Commenter la réponse de cs_peter2010
cs_peter2010 48 Messages postés vendredi 25 septembre 2009Date d'inscription 29 juillet 2010 Dernière intervention - 20 juil. 2010 à 17:48
0
Merci
voici mon code complet de ma fonction et de mon événement sur le listbox



merci pour votre aide car honnetement je ne vois plus ce qui cloche...
Commenter la réponse de cs_peter2010
cs_peter2010 48 Messages postés vendredi 25 septembre 2009Date d'inscription 29 juillet 2010 Dernière intervention - 21 juil. 2010 à 14:38
0
Merci
Personne ne peut m'aider ?
Commenter la réponse de cs_peter2010
cs_peter2010 48 Messages postés vendredi 25 septembre 2009Date d'inscription 29 juillet 2010 Dernière intervention - 21 juil. 2010 à 14:49
0
Merci
Sa ne pourrais pas tout simplement être une propriété que j'ai oublié de modifier dans mon formulaire?
Commenter la réponse de cs_peter2010
cs_peter2010 48 Messages postés vendredi 25 septembre 2009Date d'inscription 29 juillet 2010 Dernière intervention - 21 juil. 2010 à 15:20
0
Merci
Si sa peu aider le problème se produit lorsque je ferme ce formulaire et que j'ouvre un autre formulaire, pour ensuite réouvrir ce formulaire
Commenter la réponse de cs_peter2010
cs_peter2010 48 Messages postés vendredi 25 septembre 2009Date d'inscription 29 juillet 2010 Dernière intervention - 21 juil. 2010 à 16:37
0
Merci
Problème résolu! Erreur de frappe...
Commenter la réponse de cs_peter2010

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.