Discussion :

[Shades]

Bonjour Jean Philippe,

Le code :

Code :

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

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

C'est bien ds FmMvt pour la zdlBeneficiaires que je dois l'entrer comme source, mais, j'ai déjà :

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

donc le code ci-dessus c'est pour Me.Beneficiaire dans le cas "Else" que je dois l'entrer ?

Cordialement,
Sylvain

[Jean-Philippe André]

yep,
sauf que tu vas prendre la premiere valeur disponible pour le bénéficiaire

Code :

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

Me.zdlBeneficiaire = Me.zdlBeneficiaire.ItemData(0)

et dans ton code, on va mettre a jour après chaque modification du zdlbenecifiaire la valeur CompteurA

[Shades]

Donc mon code sera :

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.zdlBeneficiaire.ItemData(0)
    '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

C'est ça ?

[Jean-Philippe André]

Oui et il restera la partie

Code :

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

1
2
3
Private Sub zdlBeneficiaire_Change()
 
End Sub

à compléter

[Shades]

Ok c'est fait, et donc maintenant c'est là où je fais une recherche de la derniere valeur ajoutée dans le champs CompteurD.
Avec un DLOOKUP ? Ou un DMAX ?

Question ItemData(0) correspond à la colonne (0) ou à autre chose ?

[Jean-Philippe André]

Avec les deux
à adapter et compléter avec les Nz d'usage

Code :

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

Dlookup("CompteD","tatable","IdMvt=" & Dmax("Idmvt","tatable","beneficiaire='" & me.zdlbeneficiaire &"'"))

[Shades]

Code :

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

Nz (DLookup("CompteurD", "TbMvt", "IdMvt=" & DMax("Idmvt", "TbMvt", "beneficiaire='" & Me.zdlBeneficiaire & "'")))

Avec le Nz c'est ça non ?

Par contre la valeur CompteurD est une valeur par défaut de CompteurA, et qui peut être modifiable c'est bien cela qu'on cherche avec ces codes ?

[Jean-Philippe André]

il manque la valeur a retourner (nz(test,retour si tesst null))et aussi un Nz() avec

Code :

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

Nz(DMax("Idmvt", "TbMvt", "beneficiaire='" & Me.zdlBeneficiaire & "'"),0)

[Shades]

Ok le Nz on le place à chaque fois !

donc là nous en sommes à :

Code :

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

1
2
3
Private Sub zdlBeneficiaire_Change()
Nz (DLookup("CompteurD", "TbMvt", "IdMvt=" & Nz(DMax("Idmvt", "TbMvt", "beneficiaire='" & Me.zdlBeneficiaire & "'"), 0)))
End Sub

Je test et je devrais avoir quoi comme résultat, car là j'ai rien en fait ? C'est peut être normal à ce stade ? Non ?

Peut être un refresh ?

[Jean-Philippe André]

ben faut attribuer la valeur à ton control, pas te contenter de la chercher

[Shades]

hEU KEKTUDILA MOIPAKOMPRI QUELLE VALEUR QUELLE CONTROLE C'EST PAS CE QU'ON VIENS DE FAIRE LA AVEC :

Code :

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

Me.zdlBeneficiaire = Me.zdlBeneficiaire.ItemData(0)

Comment je la lui attribue cette valeur au champ CompteurA ? Et comment l'afficher ?

Et c'est dans

Code :

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

Me.zdtCompteurA = ""

qu'il faut l'attribuer non ?
ou dans

Code :

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

Me.zdtCompteurA = Nz(DLookup("CompteurA", "TbMvt", "IDMvt=" & IDMvt), "")

?

[Jean-Philippe André]

- la ligne avec itemdata selectionne la premiere ligne de ta listebox
et le reste c'est dans

Code :

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

1
2
3
Private Sub zdlBeneficiaire_Change()
Me.CompteurA.value = Nz (DLookup("CompteurD", "TbMvt", "IdMvt=" & Nz(DMax("Idmvt", "TbMvt", "beneficiaire='" & Me.zdlBeneficiaire & "'"), 0)),0)
End Sub<

[Shades]

GENIallllllllllllllll T'es super

Maintenant dis moi peut on éviter le double clique, je me suis aperçus que on peux cliquer 2 fois par mégarde et donc entrer 2 fois la même ligne.
De plus je souhaiterais 3 boutons : 1 btnaddnew, 1 btnchangevalue, 1 btn Del

Je suppose que faut repasser par 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
Private Sub BtnAjout_Click()
Dim RS As New ADODB.Recordset
Dim strSQL As String
 
strSQL = "SELECT * FROM TbMvt"
        RS.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
        RS.AddNew
            RS.Fields("Datesortie") = Me.zdtDatesortie
            RS.Fields("Beneficiaire") = Me.zdlBeneficiaire
            RS.Fields("CompteurA") = Me.zdtCompteurA
            RS.Fields("CompteurD") = Me.zdtCompteurD
            RS.Fields("PompeD") = Me.zdtPompeD
            RS.Fields("PompeA") = Me.zdtPompeA
        RS.Update
        RS.Close
End Sub

Non ?

[Jean-Philippe André]

on avance bien hein

dans quel formulaire tu veux gérer autrement le double clic et dans quel formulaire tu ajoutes les boutons ?

[Shades]

Yes on avance bien, c'est cool.

Sur le formulaire FmMvt c'est là que je souhaiterais les 3 btn, et surtout sur le btn ajout d'éviter le double clique.

[Jean-Philippe André]

Il faut ajouter la fermeture du formulaire une fois le bouton cliqué

Code :

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

Docmd.Close acForm, Me.name

pour les autres boutons:
- pour la mise à jour, tu pars sur le test d'origine du IdMVT, s'il est à zéro, on a AddNew, sinon, tu dois filtrer ton recordset avec Find et updater.

[Shades]

Comme ça ?

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
Private Sub BtnAjout_Click()
Dim RS As New ADODB.Recordset
Dim strSQL As String
 
strSQL = "SELECT * FROM TbMvt"
        RS.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
        RS.AddNew
            RS.Fields("Datesortie") = Me.zdtDatesortie
            RS.Fields("Beneficiaire") = Me.zdlBeneficiaire
            RS.Fields("CompteurA") = Me.zdtCompteurA
            RS.Fields("CompteurD") = Me.zdtCompteurD
            RS.Fields("PompeD") = Me.zdtPompeD
            RS.Fields("PompeA") = Me.zdtPompeA
        RS.Update
        RS.Close
        DoCmd.Close acForm, Me.Name
End Sub

[Jean-Philippe André]

Oui,
maintenant il faut créer le bouton update et le code qui s'y refere

[Shades]

Code :

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

DoCmd.Close acForm, Me.Name

Me ferme le formulaire, ça peux devenir ennuyeux qd on a 10 ou 15 ajouts à faire, ne peux ton pas éviter les double clique sans ça ?

[Jean-Philippe André]

Mais de quel double clic tu parles ?

le code se lance avec un seul click, la preuve la procédure s'appelle
BtnAjout_Click()