Discussion :

[seyflo]

Bonjour tout le monde,

Voilà j'ai un problème de syntaxe en vba...
En fait, j'ai un formulaire et je dois modifier le montant d'une de mes tables.

Code :

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

1
2
3
  MontantQuiReste = DLookup("[MontantRestant]", "Encours", "[Type]='Investissement' and Année = '" & Modifiable39.Value & "' ")
    Nouveau_Montant = MontantQuiReste - " & Texte29.Value & "
    DoCmd.RunSQL "UPDATE Encours SET [MontantRestant] = '" & Montant_Restant & "' WHERE ([Type] = 'Investissement' & [Année] = '" & Modifiable39.Value & "');"

Je récupère le montant de ma table pour lui soustraire un montant qui se trouve dans ma table Encours et le remplacer par sa nouvelle valeur.

Mais j'ai plein de problèmes de syntaxe.
Merci d'avance pour votre aide

[argyronet]

Bonjour,

Première chose à faire, nommer tes contrôles... Texte29 et Modifiable39 ne signifient rien de parlant pour un relecteur.

Ensuite, si Texte29 est un numérique, il ne se délimite pas par des quotes :

Code :

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

Nouveau_Montant = MontantQuiReste - Me!Texte29

Idem pour le contenu d'une liste...

Code :

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

DoCmd.RunSQL "UPDATE Encours SET [MontantRestant] = " & Montant_Restant & " WHERE ([Type] = 'Investissement' & [Année] = " & Me!Modifiable39 &");"

Argy

[seyflo]

Bonjour,

Merci pour votre réponse.

J'ai changé ce que vous m'avez dit mais il me trouve une erreur sur le DLookup...

Code :

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

1
2
3
Dim MontantQuiReste As Variant
 
MontantQuiReste = DLookup("[MontantRestant]", "Encours", "[Type]='Investissement' and Année = '" & Modifiable39.Value & "'")

Merci d'avance

[argyronet]

Qu'as tu changé ?
Année est censé être un nombre donc pas de '' sauf si tu as fait la pseudo-bêtise de considérer que ce champ est de type texte...

Argy

[seyflo]

Je vous met mon code entier :

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
Dim Gestion_Du_Budget As DAO.Database
Dim db As Database
Dim idDuFournisseur As Variant
Dim MontantQuiReste As Variant
Dim Nouveau_Montant As Variant
Dim AnnéeEnCours As Long
Set db = CurrentDb()
 
idDuFournisseur = DLookup("[id]", "Fournisseur", "[Nom]='" & Modifiable33.Value & "'")
AnnéeEnCours = Modifiable39.Value
 
If Modifiable15.Value = "Investissement" Then
    db.Execute "INSERT INTO Investissement([Date],[NumCommande],[MotifCommande],[Montant],[idFournisseur]) VALUES (' " & Texte9.Value & " ' , ' " & Texte24 & " ', ' " & Texte26.Value & " ', ' " & Texte29.Value & " ', ' " & idDuFournisseur & " ')"
    MontantQuiReste = DLookup("[MontantRestant]", "Encours", "[Type]='Investissement' and Année = '" & Modifiable39.Value & "'")
    Nouveau_Montant = MontantQuiReste - Me.Texte29
    DoCmd.RunSQL "UPDATE Encours SET [MontantRestant] = " & Nouveau_Montant & " WHERE ([Type] = 'Investissement' & [Année] = " & Me!Modifiable39 & ");"
    MsgBox ("Mise à jour effectuée")
End If

[argyronet]

J'en suis fort aise...
Je répète donc :

Première chose à faire, nommer tes contrôles... Texte29 et Modifiable39 ne signifient rien de parlant pour un relecteur.

...
J'ajouterais : préciser le type de chacun de ces contrôles et vérifier en amont leur non nullité et leur validité en les passant à des variables de type Variant.

Argy