Discussion :

[Shades]

Je veux dire il est facile de cliquer une fois pour ajouter, et comme on n'a rien qui indique que c'est ajouté, de re cliquer encore ce qui fait 2 lignes identiques dans la table. Il y aurait il moyen d'éviter les doublons de lignes ?
Ou peut être mettre les champs à 0 sauf la date, comme ça on pourrais voir que ça a été ajouté, je sais pas qu'en penses tu ?

Pour le btnSupp cela donnerait :

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 BtnModif_Click()
Dim RS As New ADODB.Recordset
Dim strSQL As String
 
strSQL = "DELETE * 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

Et UPDATE pour la Modification des données ?

[Jean-Philippe André]

Alors là ca risque de pas fonctionner

Code :

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

1
2
strSQL = "DELETE * FROM TbMvt"
        RS.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic

sais-tu à quoi tu essaies de faire appel là ?

[Shades]

Je pensais que INSERT DELETE et UPDATE faisaient appel à la même tabel

Alors comment c'est donc

[Jean-Philippe André]

Oui, mais la tu veux vider la table entiere.
Si tu veux supprimer, il faut passer par

Code :

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

1
2
3
strSQL = "SELECT * FROM TbMvt WHERE IdMvt=" & IdMVt
        RS.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
RS.Delete

[Shades]

Juste comme ça donc ?
Et pour une mise à jour ça reste RS.Update ?

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 BtnSupp_Click()
Dim RS As New ADODB.Recordset
Dim strSQL As String
 
strSQL = "SELECT * FROM TbMvt"
        RS.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
        RS.Delete
            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

ça fonctionne mais cela me donne une erreur, voir image jointe.

[Jean-Philippe André]

attention, la tu supprimes le premier enregistrement de ta table quel que soit l'IDmvt sélectionné

! toujours etre prudent quand on supprime des données !

si tu supprimes, les renseigments

Code :

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

1
2
3
4
5
6
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

ne servent à rien

si tu veux faire une suppression sur un identifiant particulier, il faut passer par

Code :

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

1
2
3
4
strSQL = "SELECT * FROM TbMvt Where IdMVt =" & IdMvt
        RS.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
        RS.Delete
        RS.Close

[Shades]

Ainsi :

Code :

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

1
2
3
4
5
6
7
8
Private Sub BtnSupp_Click()
Dim RS As New ADODB.Recordset
Dim strSQL As String
        strSQL = "SELECT * FROM TbMvt Where IdMVt =" & IDMvt
        RS.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
        RS.Delete
        RS.Close
End Sub

Je t'ajoutes le fichier avec les dernières modifs et ajouts que l'on a fait.

[Jean-Philippe André]

attention à ne pas copier coller bêtement ce que je te dis hein, il faut aller chercher la valeur du IdMvt dans ta table _PARAMS_

[Shades]

Bonjour Jean Philippe,

ce serais alors :

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 BtnSupp_Click()
Dim RS As New ADODB.Recordset
Dim strSQL As String
 
        strSQL = "SELECT * FROM TbMvt Where IdMVt =" & IDMvt
        RS.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
        RS.Delete
            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

Et comment lui indiquer la table de parametres comme ça :

Code :

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

strSQL = "SELECT * FROM TbMvt Where IdMVt = [_PARAMS_]![valeur] & IDMvt

Cordialement
Sylvain

[Jean-Philippe André]

Il faut:
- déclarer la variable IdMvt

Code :

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

Dim IdMvt as Double

- lui attribuer la valeur en utilisant la fonction GetParam()

Code :

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

IdMvt = getParam("IdMvt") 'à adapter selon le nom utilisé

et on supprime les lignes inutiles comme vu quelques posts plus haut, ce qui nous donnerait:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
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
 
End Sub

très important de ne pas partir tête baissée dans la mêlée, ca fait perdre un temps considérable

[Shades]

Que signifie :

Code :

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

Dim IdMvt As Double

Et en lui indiquant :

Code :

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

IdMvt = getParam("IdMvt")

Access sait tout de suite que c'est dans la table _PARAMS_ ?

[Jean-Philippe André]

tu continues bien d'utiliser mes fonctions sur lesquelles on a travaillé en début de semaine au moins ?

Pour utiliser une variable, il faut la déclarer
Mets un point d'arrêt dans le code et rfegarde en pas à pas ce qu'il se passe si tu veux

[Shades]

Pour la mise à jour ce serait qq ch comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
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.Update
        RS.Close
End Sub

Ou est-ce un mode à part ?

[Shades]

tu continues bien d'utiliser mes fonctions sur lesquelles on a travaillé en début de semaine au moins ?

Bien évidemment Jean Philippe

[Jean-Philippe André]

Essaie le code au lieu de me demander à chaque fois

[Shades]

oki doki, je craignais juste que cela puisse provoquer des beug mais si j'en provoques pas je peux pas savoir non plus qd il y a pb, tu a raison

[Shades]

Ben non en fait cela ne fait rien :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim RS As New ADODB.Recordset
Dim strSQL As String
 
strSQL = "SELECT * FROM TbMvt"
        RS.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
        RS.Update
            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

Là j'ouvre bien la base et j'appelle bien IDMvt correspondant comme pour supprimer, manque certainement qq ch au code

J'ai vu dans les FAQ qu'il faut un "SET avec l' "Update" mais le code du FAQ je me perd dans ces lignes de code, comment je dois intègrer ce "SET" dois-je le déclarer ?

[Jean-Philippe André]

Attention à ne pas garder tout le temps le meme code, ici c'est ton bouton modif, donc il faut mettre à jour les enregistrements à partir des valeurs du formulaire

[Shades]

oui je viens juste de modifier le post du dessus
Et effectivement ça marche mieux avec ce code
Mais ça ajoute cela ne modifie pas ou ça plante si je remplace RS.AddNew par RS.Update

Comme j'ai vu dans les FAQ il manquerait un "SET" mais je place ça où ?

[Jean-Philippe André]

bon, on va centraliser le code complet des 3 boutons dans un seul poste stp

comme ca je te fais les modifications en conséquence