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+
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+
Salut,
Tu veux parler la propriété valeur par défaut de la liste déroulante Date![]()
Salut
Non, d'autre champ...
saisi par - Tarif horaire - etc ...
A+
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:
J'ai ajouté les lignes en violet.
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
A+
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++
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+
Salut,
Il s'agit d'1 problème classique de boucle:
Dans le code de la boucle il faut remplacer 12 par 14:
Il faut que les champs horaires soit les uns à la suite des autres dans la table planning.
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 ...
A+
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+
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+
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+
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+
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager