Discussion :

[Jean-Philippe André]

Fait tourner pour voir

[Shades]

Voilou je fait tourner

Voici la pièce jointe avec les nouveaux ajouts de ces posts

[Jean-Philippe André]

OK,

bon maintenant il faut ajouter en bas de ton formulaire Vue un bouton pour créer une nouvel enregistrement (tu mettras ton parametre IdMVT à 0)

On passera à l'alimentation de de FmMvt maintenant

[Shades]

Ok, il me donne 86 comme valeur, qui est l'IDMvt du bénéficiaire 1450 TC 79

[Jean-Philippe André]

c'est bien ce que tu cherches, donc OK

Maintenant dans ton formulaire qui s'ouvre, tu vires toutes les requetes qui alimentent tes controls

[Shades]

Bien avec l'IDMvt je suppose que je peux récupérer la Valeur CompteurD et bénéficiaire entrés non ?

Tu veux dire que je supprime les requêtes qui alimentent les contrôles du FmMvt ?
Les sources non, il faut que mes contrôles soient indépendants ?

[Jean-Philippe André]

Les sources oui, tu vires les requetes SQL qui alimentent tout ca

On va les alimenter directement dans notre code

[Shades]

Bonjour Jean Philippe,

J'ai donc mis tous les champs en indépendants et aucun source n'alimente plus ce formulaire.

Que dois-je faire maintenant ?

Cordialement,
Sylvain

[Jean-Philippe André]

Dans ton evenement Form_Load maintenant, on va alimenter tous ces champs en partant de l'IDMvt qui a été mis dans la table _PARAMS_
j'ai mis en exemple la récupération d'une date si je me souviens bien.

Tu fais la meme chose pour l'ensemble des controlsz de ton formulaire

[Shades]

Serais-ce ceci ? :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Load()
Dim ID_COUNTRY As Double
ID_COUNTRY = Nz(GetParam("ID_COUNTRY"), 0)
If ID_COUNTRY <> 0 Then
    'load existing data
    Me.Txt_NM_COUNTRY = Nz(DLookup("NM_COUNTRY", "OLY_COUNTRY", "ID_COUNTRY=" & ID_COUNTRY), "")
    Me.Txt_DESC_COUNTRY = Nz(DLookup("DESC_COUNTRY", "OLY_COUNTRY", "ID_COUNTRY=" & ID_COUNTRY), "")
Else
    'create new one
    Me.Txt_NM_COUNTRY = ""
    Me.Txt_DESC_COUNTRY = ""
End If
End Sub

[Jean-Philippe André]

Ca c'est le code dans mon cas de figure oui, il te faut juste l'adapter à ta situation

[Shades]

Ok, donc je change "ID_COUNTRY" par "IDMvt"
et

Code :

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

1
2
Me.Txt_NM_COUNTRY = Nz(DLookup("NM_COUNTRY", "OLY_COUNTRY", "ID_COUNTRY=" & ID_COUNTRY), "")
    Me.Txt_DESC_COUNTRY = Nz(DLookup("DESC_COUNTRY", "OLY_COUNTRY", "ID_COUNTRY=" & ID_COUNTRY), "")

Par mes champs de formulaire, comme j'en ai 6 , zdtDateSortie, zdlBeneficiaire, CompteurA, CompteurD, PompeD, PompeA, je devrais donc les retrouver dans le code, exact ?

[Shades]

Ce qui donnerais,

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
Private Sub Form_Load()
Dim IDMvt As Double
IDMvt = Nz(GetParam("IDMvt"), 0)
If IDMvt <> 0 Then
    'load existing data
    Me.zdtDatesortie = Nz(DLookup("Datesortie", "TbMvt", "IDMvt=" & IDMvt), "")
    Me.zdlBeneficiaire = Nz(DLookup("Beneficiaire", "TbMvt", "IDMvt=" & IDMvt), "")
    'Me.zdtCompteurA s'auto alimente si absence de données par la plus recente valeur de CompteurD du beneficiaire selectionné
    Me.zdtCompteurA = Nz(DLookup("CompteurA", "TbMvt", "IDMvt=" & IDMvt), "")
    Me.zdtCompteurD = Nz(DLookup("CompteurD", "TbMvt", "IDMvt=" & IDMvt), "")
    Me.zdtPompeD = Nz(DLookup("PompeD", "TbMvt", "IDMvt=" & IDMvt), "")
    Me.zdtPompeA = Nz(DLookup("PompeA", "TbMvt", "IDMvt=" & IDMvt), "")
Else
    'create new one
    Me.zdtDatesortie = ""
    Me.zdlBeneficiaire = ""
    'Me.zdtCompteurA s'auto alimente si absence de données par la plus recente valeur de CompteurD du beneficiaire selectionné
    Me.zdtCompteurA = ""
    Me.zdtCompteurD = ""
    Me.zdtPompeD = ""
    Me.zdtPompeA = ""
End If
End Sub

Est-ce correcte ?

[Jean-Philippe André]

Les valeurs par défaut pourront etre modifiées si nécessaire, mais moi ca me convient oui

Tu essaies de double cliquer dans ton formulaire vue pour voir comment ca s'ouvre ?

[Shades]

Cela ouvre avec des données entrées, correspondantes au choix de la zone de clique. GÉNIAL

Quelle est la suite maintenant ? Récupérer la dernière valeur entrée pour le champ CompteurD et l'attribuer comme valeur au champ CompteurA si on n'y ajoute aucune valeur ?
Toujours en fonction bien sur du bénéficiaire sélectionne.

[Jean-Philippe André]

La liste des bénéficiaire peut maintenant etre alimentée par ta requete

On ajoutera ensuite sur l'évènement Afterchange de ces bénéficiaires la mlise à jour automatique du compteurD

[Shades]

Celle-ci ?

Code :

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

1
2
SELECT TbMvt.IDMvt, TbMvt.Beneficiaire, TbMvt.Datesortie, Nz(DMax("IdMvt","TbMvt","Beneficiaire=[Forms]![FmMvt]![zdlBeneficiaire] "),0) AS CompteurA, TbMvt.CompteurD, TbMvt.PompeD, TbMvt.PompeA, [CompteurD]-[CompteurA] AS TotalKm, [PompeA]-[PompeD] AS TotalConso
FROM TbMvt;

Dans le "FmMvtVues" c'est cela ?

[Jean-Philippe André]

Non,
ta zdlbeneficiaire avec :

Code SQL :

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

SELECT TbVehicules.Immat FROM TbVehicules UNION SELECT TbAutres.Nom FROM TbAutres

on ne change pas ce que tu y avais mis

[Shades]

Oki Doki, donc rien ne change.
Alors la suite des festivités sera ? L'évènement Afterchange ?

Cordialement

[Jean-Philippe André]

Yes, et il faut voir aussi dans quelle mesure tu acceptes des modifications de la part de ton utilisateur.

S'il double-clic sur un élément pour le changer, tu dois décider s'il peut tout modifier ou non (il va falloir jouer sur les Enabled de tes controls)