Syntaxe DLookup vba sur Access

**seyflo** · 31/05/2010, 11h42

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

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** · 31/05/2010, 12h09

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

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** · 31/05/2010, 12h16

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** · 31/05/2010, 12h27

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

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

**seyflo** · 31/05/2010, 13h11

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

**Tofalu** · 31/05/2010, 13h15

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 ?

**seyflo** · 31/05/2010, 13h25

Je suis complètement perdu !

J'ai modifié, toujours des erreurs :

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
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

Invité · 31/05/2010, 13h36

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

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

**seyflo** · 31/05/2010, 13h54

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

**argyronet** · 31/05/2010, 14h28

Envoyé par Philippe JOCHMANS

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

Philippe...

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 !!!

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

Invité · 31/05/2010, 14h32

Excuses moi Argy

N'empêche que sur cette ligne

Code :

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

 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

**seyflo** · 31/05/2010, 14h40

J'ai fait ça :

Code :

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

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

ça ne marche toujours pas

**argyronet** · 31/05/2010, 15h31

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 :

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

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

**seyflo** · 01/06/2010, 08h47

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

**Jeannot45** · 01/06/2010, 08h55

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

**seyflo** · 01/06/2010, 09h08

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 ...

**seyflo** · 01/06/2010, 10h23

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

Code :

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

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 !

**argyronet** · 01/06/2010, 10h44

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

Syntaxe DLookup vba sur Access

VBA Access

Discussions similaires

Partager

Partager