Discussion :

[Gorane]

re:

Slt,

j'ai une petite question,

Quand je génère de nouvelle date, les saisie par défaut ne se font plus ?

est ce normal ? comment y remédier ?

A+

[User]

Salut,

Tu veux parler la propriété valeur par défaut de la liste déroulante Date

[Gorane]

Salut
Non, d'autre champ...

saisi par - Tarif horaire - etc ...

A+

[User]

Re,

Il faut que ton formulaire Start soit ouvert, puis dans la procédure Valider du bouton OK, sur la fiche Enfant, mettre le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub CmdValider_Click()
Dim i As Integer, j As Integer
Dim rst2 As DAO.Recordset
Dim DateJ As Date

With Me.Planning_sous_formulaire

   If Not IsNull(.Form![Date]) Then
      
      Set rst2 = CurrentDb.OpenRecordset("Planning", dbOpenDynaset)
      
      DateJ = .Form![Date]
      
      For j = 1 To CInt(Me!Recurrence)
         
         If IsNull(DLookup("[Date]", "Planning", "([Matricule]=" & Nz(Me!NE, 0) & ") and [Date]=" & CLng(DateJ + 7))) Then
         
         rst2.AddNew
      
         rst2!Date = DateJ + 7
         rst2!Matricule = Me!NE
         
         For i = 1 To 12
         
            rst2.Fields(i + 3) = .Form("Hor" & i).Value
         
         Next i
            
            rst2![Tarif Repas] = Forms![START]![Tarif Repas Midi]
            rst2![Tarif Gouter] = Forms![START]![Tarif Gouter]
            rst2![Tarif Heure] = Forms![START]![Tarif horaire HT]
            
         rst2.Update
       
         End If
         
         DateJ = DateJ + 7
       
      Next j
       
      Me.Planning_sous_formulaire.Requery
       
      rst2.Close: Set rst2 = Nothing
       
   End If

End With

End Sub

J'ai ajouté les lignes en violet.

A+

[Gorane]

OK, ca sert à ca rst !

Merci pour la correction.

Grâce à toi j’apprends les rouages du VB, enfin, vraiment des petits pas ! LOL

A++

[Gorane]

Slt User !

Une petite question programmation,

Comment ce fait il que, si j’ajoute des cases à cocher, le code ne l'ai prend pas en compte pour la récurrence.

j'ai nommé les nouvelle case "Hor13" et "Hor14"

Merci A+

[User]

Salut,

Il s'agit d'1 problème classique de boucle:

Dans le code de la boucle il faut remplacer 12 par 14:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
...
 
For i = 1 To 14
 
   rst2.Fields(i + 3) = .Form("Hor" & i).Value
 
Next i
...

Il faut que les champs horaires soit les uns à la suite des autres dans la table planning.

A+

[Gorane]

Slt

J'ai remplacé 12 par 14 modifié ma table.

Et la récurrence ne fonctionne plus.

bug : rst2.Update


??

Aurais je passé un épisode??

a+

[User]

Salut,

Peux-tu me donner la liste des champs de ta table "Planning" dans l'ordre où il apparaissent en mode création de ta table ?

A+

[Gorane]

Slt !

Oupss ! j'avais changé l'ordre dans la requête ...

C'est fais dans la table et ca marche nickel.

Merci

Je ne voudrai pas abusé, mais si tu connais la réponse, ma foi ...

Comment pourrais je interdit la création de certaine période ?

Une semaine à noël et 4 semaines en aout ? période modifiable.

Merci encore A+

[User]

Re,

Il faut créer une table contenant les jours fériés et une table contenant les congés.

Puis, tester si le jour est dans la table des jours férié ou dans la table de congés,

si c'est le cas alors interdire l'ajout de cette période.

Pour plus de précisions prière de créer une autre discussion:

1 problème = 1 discussion

A+