Discussion :

[Pingouin22]

Bonjour, j'ai besoin d'un coup de pouce enfin d'une main divine pour me délivrer de cet enfer

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
Private Sub MiseJour_Click()
 
Dim maBD As Database
Dim reqSQL As String
Dim choix As Integer
Dim Nb As Variant
Dim AnneedAchat As Variant
Dim x As Variant
'Commentaires : récupération de la base donnée courante
 
Set maBD = CurrentDb()
 
AnneedAchat = InputBox("Veuillez saisir l'année des Dvd à modifier : ")
Nb = InputBox("Veuillez saisir un pourcentage pour modifier le Prix de Vente : ")
If AnneedAchat = "" Or Nb = "" Then 'l'utilisateur a rien mis dans Nom
            choix = MsgBox("Vous n'avez rien rentré, Aucune Insertion effectuée ! ", vbOKOnly + vbExclamation, "Erreur dans l'insertion")
            If choix = vbOKOnly Then
                Exit Sub
            End If
    Else:
 
reqSQL = "UPDATE DVD SET PrixVente = PrixVente * (1 + (Nb) / 100) WHERE AnneeAchat = AnneedAchat ;"
'reqSQL = reqSQL & " VALUES ('" & x & "');"
 
MsgBox reqSQL
 
maBD.Execute reqSQL
DoCmd.Save
RefreshDatabaseWindow
 
MsgBox ("Nombre de ligne modifiées : " + Str(maBD.RecordsAffected))
End If
End Sub

[cboudy]

si tu veux faire passer des arguments à ta requête il faudrait plutot faire un truc du genre :

Code :

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

1
2
 
reqSQL = "UPDATE DVD SET PrixVente = PrixVente * (1 + (" & Nb & ") / 100) WHERE AnneeAchat =" & AnneedAchat

[Kyndred40]

Bonjour,
Je suis dans le même cas que cette personne, j'aimerai que la valeur que je rentre dans mon InputBox change la valeur d'un champ.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ChangPrixAlu_Click()
 
Dim PrixAlum
 
PrixAlum = InputBox("Entrer le prix au kg de l'Aluminium", "Important", "")
 
CurrentDb.Execute "UPDATE EnAttPlanification SET PrixAlu = PrixAlum ;"
 
Me.Refresh
End Sub

En gros tous les champs PrixAlu de la table EnAttPlanification prenne la nouvelle valeur entrer dans l'input mais je n'arrive pas à trouver la solution.

Merci par avance

[Belga16]

Pour Pingouin22/Cboudy :

Code :

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

reqSQL = "UPDATE DVD SET PrixVente = PrixVente * (1 + (" & CDbl(Nb) & ") / 100) WHERE AnneeAchat =" & AnneedAchat

Je transforme Nb en Double; on peut aussi utiliser CLng(Nb) au cas où le prix est de type Long
Il manque un test sur l'éventualité d'encodage de lettres, d'espaces ou de nombres négatifs (tout est possible avec les utilisateurs)

Pour William : même remarque.

Code :

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

CurrentDb.Execute "UPDATE EnAttPlanification SET PrixAlu = CDbl(PrixAlum) ;"

[Kyndred40]

Bonjour,
Merci pour l'aide, mais une erreur est générer :



Je pense comprendre que le UPDATE ne prend pas la valeur précédemment entrer dans PrixAlum.

[Belga16]

Ceci m'a échappé; j'aurais dû le voir dès le début !
La syntaxe exacte est :

Code :

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

CurrentDb.Execute "UPDATE EnAttPlanification SET PrixAlu = " & CDbl(PrixAlum)  & ";"

[Kyndred40]

Parfait ! merci beaucoup grâce à vous cela fonctionne.
J'ai mis ce code :

Code :

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

CurrentDb.Execute "UPDATE EnAttPlanification SET PrixAlu = " & PrixAlum & ";"