Comment récuperer la derniere valeur entrée pour une selection precise

**Shades** · 23/02/2012, 13h21

Une commande pour les trois en même temps, c'est possible ça ?

**Jean-Philippe André** · 23/02/2012, 13h27

je n'ai pas dit ca

je te demande de me copier le code de tes trois boutons dans un seul post du forum

**Shades** · 23/02/2012, 13h30

Aha

Oki, je crée un nouveau post sur le Forum avec comme intitulé, boutons Add / Delete / Update ? C'est ça ?

et je passe ici en résolu

**Shades** · 23/02/2012, 13h37

Bonjour,

J'ai 3 boutons dans un formulaire "FmMvt" Ajout / Modif. / Supp.
Ajout et Supprime fonctionnent mais il me manque qq ch pour la modification.

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
50
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.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
 
Private Sub BtnModif_Click()
Dim RS As New ADODB.Recordset
Dim strSQL As String
 
strSQL = "SELECT * FROM TbMvt"
        RS.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
        RS.Updade
            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
 
Private Sub BtnSupp_Click()
Dim RS As New ADODB.Recordset
Dim strSQL As String
Dim IDMvt As Double
IDMvt = GetParam("IdMvt")
        strSQL = "SELECT * FROM TbMvt Where IdMVt =" & IDMvt
        RS.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
        RS.Delete
        RS.Close
        DoCmd.Close acForm, Me.Name
 
End Sub

Supp. et Modif se ferment au clique :

Code :

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

DoCmd.Close acForm, Me.Name

Je souhaiterais que quand on ajoute cela mette à 0 les champs sans fermer le formulaire.

Merci de votre aide et merci à toi Jean Philippe

cordialement

**Jean-Philippe André** · 23/02/2012, 13h43

donc pas de nouvelle discussion, mais peux-tu stp coller le code des 3 boutons, meme si c'est "la meme chose", que je verifie stp

**Shades** · 23/02/2012, 13h45

J'ai pas compris ce qui c'est passé, ma nouvelle discution se retrouve ici lol

Oui le code des trois boutons sont au dessus déjà

**Jean-Philippe André** · 23/02/2012, 13h51

alors, on change quelques trucs:

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
50
51
52
53
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 'et oui on ajoute
            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
 
Private Sub BtnModif_Click()
Dim RS As New ADODB.Recordset
Dim strSQL As String
Dim IdMvt  as Double
'on modifie le mouvement en cours
idMvt = GetParam("Idmvt")
strSQL = "SELECT * FROM TbMvt WHERE IDMvt=" & IdMvt
        RS.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
 
            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
 
Private Sub BtnSupp_Click()
Dim RS As New ADODB.Recordset
Dim strSQL As String
Dim IDMvt As Double
'on supprime le mouvement en cours
IDMvt = GetParam("IdMvt")
        strSQL = "SELECT * FROM TbMvt Where IdMVt =" & IDMvt
        RS.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
        RS.Delete
        RS.Close
        DoCmd.Close acForm, Me.Name
 
End Sub

rest'e maintenant à tenir compte de l'impact de la modification sur les compteurs

**Shades** · 23/02/2012, 14h07

rest'e maintenant à tenir compte de l'impact de la modification sur les compteurs

Mais oui c'est vrai ça !!!!

Penses tu que cela risque de provoquer des pb ?

Je viens de voir les modif que tu a apporté, oki je comprends on appel l'IDMvt de la ligne sélectionne, comme pour supprimer, mais on passe le code d'ajout au lieu de la suppression, en fait comme j'avais fait c'est toute la table que j’appelais c'est ça ?

**Shades** · 23/02/2012, 16h40

Jean Philippe,

Pour le bouton supprimer si je veux passer par un msgbox de confirmation comme je dois m'y prendre ?

**Jean-Philippe André** · 23/02/2012, 16h49

Tu peux partir sur une alerte demandant confirmation de l'utilisateur, par exemple

Code :

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

Msgbox("Etes vous sur de vouloir supprimer?", vbYesNo)

**Shades** · 23/02/2012, 16h51

OK, et si yes comment je lui indique d'effectuer la suppression ?

**Jean-Philippe André** · 23/02/2012, 16h53

tu peux faire un test sur le retour du msgbox

Code :

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

1
2
3
4
5
If Msgbox("Etes vous sur de vouloir supprimer?", vbYesNo)=vbYes Then
'tu fais ta suppression
Else
'tu ne fais rien
End If

**Shades** · 23/02/2012, 16h58

Oki bizn compris

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 BtnSupp_Click()
If MsgBox("Etes vous sur de vouloir supprimer?", vbYesNo) = vbYes Then
Dim RS As New ADODB.Recordset
Dim strSQL As String
Dim IDMvt As Double
'on supprime le mouvement en cours
IDMvt = GetParam("IdMvt")
        strSQL = "SELECT * FROM TbMvt Where IdMVt =" & IDMvt
        RS.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
        RS.Delete
        RS.Close
        DoCmd.Close acForm, Me.Name
Else
MsgBox("Suppression annulée", vbYesNo)
End If
End Sub

**Jean-Philippe André** · 23/02/2012, 17h14

à la fin un simple

Code :

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

MsgBox("Suppression annulée", vbOkOnly)

fera l'affaire

**Shades** · 23/02/2012, 17h18

j'ai carrément mis :

Code :

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

DoCmd.Close acForm, Me.Name

D'ailleurs pourquoi Me.Name ?? c'est générique ?

Je vais clôturer le post comme résolu ici, Merci bcp de ton coup de main, c'était génial j'ai plus qu'a faire les champ calculés pour ça je vais ouvrir un autre post

**Jean-Philippe André** · 23/02/2012, 18h50

Le second parametre est le nom du formulaire que tu souhaites fermer.
Des fois que tu changes le nom de formulaire à plusieurs reprises, ca sera transparent avec ce code.
Si tu utilisais

Code :

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