Syntaxe DLookup vba sur Access

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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

31/05/2010, 11h53
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:

Nouveau_Montant = MontantQuiReste - Me!Texte29

Idem pour le contenu d'une liste...

Code:

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

Argy

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:

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

31/05/2010, 12h14
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

Je vous met mon code entier :

Code:

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

31/05/2010, 12h27
argyronet

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

Citation:

Envoyé par Argy

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
31/05/2010, 13h11
seyflo

Okok je vais tester mais ce qui est bizarre, voyez-vous, c'est que mon premier DLookup fonctionne très bien sans déclarer ces variables.

Je reviens vers vous ultérieurement
31/05/2010, 13h15
Tofalu

Le premier fait la comparaison de chaines de caractères alors que le second fait à priori la comparaison entre des valeurs numériques (Année). Il est donc logique que la même syntaxe pour des opérations différentes lève une erreur non ?

Je suis complètement perdu !

J'ai modifié, toujours des erreurs :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim Gestion_Du_Budget As DAO.Database
Dim db As Database
 
Dim MontantQuiReste As Variant
Dim Nouveau_Montant As Variant
Dim AnnéeEnCours As Variant
Dim MontantFormulaire As Variant
 
Set db = CurrentDb()
 
AnnéeEnCours = Me.Modifiable39
MontantFormulaire = Me.Modifiable33
 
If Modifiable15.Value = "Investissement" Then
    ' J'insère dans ma table Investissement les données nécessaires dans mon formulaire
    db.Execute "INSERT INTO Investissement([Date],[NumCommande],[MotifCommande],[Montant],[idFournisseur]) VALUES (' " & Texte9.Value & " ' , ' " & Texte24 & " ', ' " & Texte26.Value & " ', ' " & Texte29.Value & " ', ' " & idDuFournisseur & " ')"
    ' Le montant qui reste correspond au montant figurant dans ma table Encours où le type est investissement et l'année est l'année en cours
    MontantQuiReste = DLookup("[MontantRestant]", "Encours", "[Type]='Investissement' and Année = AnnéeEnCours ")
    ' Je modifie le montant qui reste.
    Nouveau_Montant = MontantQuiReste - MontantFormulaire
    ' Je modifie ma table Encours où le montantRestant est modifié toujours avec la condition du type et de l'année
    DoCmd.RunSQL "UPDATE Encours SET [MontantRestant] = Nouveau_Montant WHERE ([Type] = 'Investissement' & [Année] = AnnéeEnCours);"
    MsgBox ("Mise à jour effectuée")
End if

31/05/2010, 13h36
Invité

Bonjour

Dans ta requête Insert, toutes tes variables sont prises comme du texte (les simples quotes), tu as un montant qui est du texte :koi:

Dans le DLookup, AnnéeenCours est une variable, il faut la sortir de la chaine avec une concaténation, de même dans la requête Update.

De plus tu déclares tout en variant, il revoir tes déclarations de variables.

Philippe
31/05/2010, 13h54
seyflo

Mon Insert fonctionne parfaitement...
C'est le dlookup qui ne me récupère pas la valeur du montantRestant dans ma table Encours...

:pleure:
31/05/2010, 14h28
argyronet

Citation:

Envoyé par Philippe JOCHMANS

De plus tu déclares tout en variant, il revoir tes déclarations de variables.

Philippe...
8-) C'est moi qui lui ai dit de déclarer ainsi de manière à identifier les types de variable... chose qu'il ne prennait pas en considération dans son code initial.
Typer correctement par le suite aurait été aisé.
Tu suis rien, humm !!! :mouarf:

Donc Seyflo, pourrais-tu faire l'effort de nommer ces contrôles (et spécifié ce qui sont censé contenir : une date, un nombre, un texte...) même si cela paraît compréhensible et ce, de manière à ce que l'on puisse t'aider et que tu aboutisses à tes fins

Argy
31/05/2010, 14h32
Invité

Excuses moi Argy :oops:

N'empêche que sur cette ligne

Code:

MontantQuiReste = DLookup("[MontantRestant]", "Encours", "[Type]='Investissement' and Année = AnnéeEnCours ")

Il faut sortir la variable AnnéeEnCours et la greffer par concaténation.

Philippe
31/05/2010, 14h40
seyflo

J'ai fait ça :

Code:

MontantQuiReste = DLookup("[MontantRestant]", "Encours", "[Type]='Investissement' and [Année] =" & AnnéeEnCours)

ça ne marche toujours pas :(

Est-ce que les champs MontantRestant, Type et Année sont présents dans la table Encours ?

Si oui, modifie ton code comme suit :
Code:

1 2 3 4 5 6 If AnnéeEnCours Then Msgbox AnnéeEnCours MontantQuiReste = DLookup("[MontantRestant]", "Encours", "[Type]='Investissement' and [Année] =" & AnnéeEnCours) Else MsgBox "Problème avec l'année..." End If

01/06/2010, 08h47
seyflo

Bonjour,

Oui ils sont dans la table Encours. J'ai essayé votre code, il m'affiche bien la bonne année...
Mais il ne me récupère toujours pas le montantRestant de ma table Encours, il le laisse à Null
01/06/2010, 08h55
Jeannot45

:salut:

Il y a un tuto sur les fonctions de domaine. Il serait peut-être bon d'y jeter un oeil.

Cela n'enlève rien à tout ce qui a été dit précédemment. Simplement, histoire de retrouver les syntaxes basiques

Bonne continuation
01/06/2010, 09h08
seyflo

Oui je l'ai déjà lu mais ici il ne me sert à rien ...
Le DLookup ne me récupère pas la valeur MontantRestant qui se trouve dans ma table Encours...
Je respecte la syntaxe mais il m'affiche Null ...
01/06/2010, 10h23
seyflo

J'ai essayé d'enlevé le DLookup et de tout mettre dans le UPDATE comme suit :

Code:

DoCmd.RunSQL "UPDATE Encours SET [MontantRestant] = [MontantRestant] - " & MontantFormulaire & " WHERE ([Type] = 'Investissement' and [Année] = " & AnnéeEnCours & ");"

Mais bon, cela ne me change pas non plus la valeur du MontantRestant dans ma table Encours ... Je pense que c'est le WHERE qui ne fonctionne pas...

Merci pour votre aide !
01/06/2010, 10h44
argyronet

La question qu'il faut te poser est de vérifier si ce montant existe avec un Type égale à Investissement avec l'Année égale à AnnéeEnCours...

Argy

Voir 40 message(s) de cette discussion en une page