Discussion :

[nouveau17]

Bonjour,

comment faire après la maj dans l'exemple en image sera :

reliquat =1
annuel =30

comment appliquer

Code :

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

1
2
3
4
5
6
7
8
9
10
If         CONGE_PRIS  <= RELIQUAT Then                            
           RELIQUAT        = RELIQUAT - CONGE_PRIS
ElseIf   CONGE_PRIS  <= RELIQUAT + ANNUEL          Then
 
           ANNUEL    = RELIQUAT + ANNUEL - CONGE_PRIS
           RELIQUAT = 0
Elseif
 
  If (CONGE_PRIS > RELIQUAT + ANNUEL) Then MsgBox "nombre de jours insuffisant"
End If

merci

[EricDgn]

Bonjour,

Pour ce qui est du code, ceci est suffisant:

Code :

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

1
2
3
4
5
6
7
8
If CONGE_PRIS <= RELIQUAT Then
    RELIQUAT = RELIQUAT - CONGE_PRIS
ElseIf CONGE_PRIS <= RELIQUAT + ANNUEL Then
    ANNUEL = RELIQUAT + ANNUEL - CONGE_PRIS
    RELIQUAT = 0
Else
    MsgBox "nombre de jours insuffisant"
End If

Pour ce qui est de "comment faire la mise à jour", je ne saurais répondre sans disposer de l'application pour comprendre comment tables et formulaires sont construits.

Cordialement.

[nouveau17]

j'ai utilisé un matricule deux fois ca fonctionne coté calcule mais comment faire la mise à jour aucune idée :
pour le formulaire j'ai utilisé le mode création j'ai ajouté les deux tables T_AGENT T_CONGE comme dans les images.

[EricDgn]

Bonjour,

Normalement cela devrait s'enregistrer de soi-même dès que toutes les données pour un congé particulier ont été complétées (et que l'on passe donc à l'encodage du congé suivant, ce qui n'apparait pas sur vos images). Difficile d'en dire plus ainsi. Cependant à toutes fins utiles voici en attaché une petite application pouvant vous donner quelques idées.

Cordialement.

[nouveau17]

bonjour,

votre code peut-il fonctionner dans ma base pièce jointe.

Code :

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

1
2
3
4
5
6
Public Function Solde(AgtN° As Long, MtfN° As Long) As Long
    Dim n1 As Long, n2 As Long
    n1 = Nz(DSum("CrNbj", "tCr", "Cr_AgtN°=" & AgtN° & " And Cr_MtfN°=" & MtfN°))   '--- somme congés reçus
    n2 = Nz(DSum("CuNbj", "tCu", "Cu_AgtN°=" & AgtN° & " And Cu_MtfN°=" & MtfN°))   '--- somme congés utilisés
    Solde = n1 - n2
End Function

[EricDgn]

Bonjour,

Non, ce n'est pas possible, les tables sont faites de façons trop différentes. En attaché, une solution adaptée à votre dispositif actuel.

Cordialement.

[nouveau17]

Bonjour,

Normalement cela devrait s'enregistrer de soi-même dès que toutes les données pour un congé particulier ont été complétées (et que l'on passe donc à l'encodage du congé suivant, ce qui n'apparait pas sur vos images). Difficile d'en dire plus ainsi. Cependant à toutes fins utiles voici en attaché une petite application pouvant vous donner quelques idées.

Cordialement.

bonjour,

la petite application fonctionne bien seulement au moment de choisir motifs ou jours du formulaire congés reçus ça bug ....

Merci

[EricDgn]

Bonjour,

Version corrigée. J'ai simplement supprimé la ligne à problème pour la réécrire ensuite ... et c'est ok.

Cordialement.