Discussion :

[Fred_rt]

Bonjour,

J'ai une tables nommée tArticles composée des champs suivants:
tArticlePK = référence article
Articlenom = le nom de l'article
tStock = le stock actuel

J'ai un formulaire, d'entrées et de sorties qui contient les champs au nom de l'article et stock actuel.

Je souhaite que le champ tStock de la table tArticles soit mise à jour à chaque entrée ou sorties en fonction du nom de l'article ou de la référence article présent dans le formulaire.

Comme c'est dans une boucle UStock représente le champ "Stock actuel" et ChampNomArticle, l'article.
tStock est le nom de la colonne dans la base tArticles.

Code :

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

1
2
3
4
5
6
7
8
9
10
For I = 1 To 5
NomChampArticle = "CboArticle" & I
UStock = "txtStock" & I
If Not IsNull(Controls(NomChampArticle)) Then
uSql = "UPDATE tArticles SET tStock = [Formulaires]![fEncoSorties]!UStock WHERE (SELECT tArticles.* FROM tArticlePK WHERE ((tArticles.tArticlePK)=[Formulaires]![fEncoSorties]!NomChampArticle);"
DoCmd.RunSQL uSql
Else
End
End If
Next

Il y a une erreur de syntaxe dans la requête.

Erreur 3075
),] ou élément absent dans l'expression (SELECT tArticles.* FROM tArticlePK WHERE ((tArticles.tArticlePK)=[Formulaires]![fEncoSorties]!NomChampArticle)

Est-il possible de mettre des conditions en rapport avec un formulaire, ou que la valeur de remplacement soit une variable qui est un champ du formulaire ?

Merci d'avance.

Cordialement,

Fred

[Invité]

Bonjour

UStock étant une variable il doit être sorti de la requête et être ajouté par concaténation, comme l'appel au champ du formulaire.

Philippe

[Fred_rt]

Bonjour,

Je n'avais pas reçu la notification de ta réponse.
Cela me donne au moins une réponse. Mais j'avoue ne pas bien comprendre comme appliquer ce que tu me suggères.

Peux-tu m'éclairer d'avantage ?

Cordialement,

Fred

[madefemere]

Bonjour Fred_rt,

Philippe veut dire :

Code :

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

uSql = "UPDATE tArticles SET tStock =" &  [Formulaires]![fEncoSorties]!UStock & " WHERE (SELECT tArticles.* FROM tArticlePK WHERE ((tArticles.tArticlePK)=" & [Formulaires]![fEncoSorties]!NomChampArticle)

Cordialement.

[Fred_rt]

OK,

Merci Madefemere. Merci Philippe.

Concaténer, avec un &

[Fred_rt]

Bonjour,

Voici la suite :

Code :

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

1
2
3
4
5
6
7
8
9
10
For I = 1 To 5
NomChampArticle = "CboArticle" & I
UStock = "txtStock" & I
If Not IsNull(Controls(NomChampArticle)) Then
uSql = "UPDATE tArticles SET tStock =" & [Formulaires]![fEncoSorties]!UStock & " WHERE (SELECT tArticles.* FROM tArticlePK WHERE ((tArticles.tArticlePK)=" & [Formulaires]![fEncoSorties]!NomChampArticle & "));"
DoCmd.RunSQL uSql
Else
End
End If
Next

Le code corrigé avec vos conseils. Mais maintenant, j'ai une erreur 2465 "MENU PRINCIPAL ne trouve pas le champ "|1" auquel il est fait référence dans votre expression".
Pourtant j'ai utilisé cette boucle sur ces formulaires pour faire des INSERT et cela fonctionne très bien. Le champ de formulaire txtStock est le résultat d'une fonction qui calcule le stock. Est-ce la le problème ?

Cordialement,

Fred

[Jean-Philippe André]

Salut,

deux petites choses je pense :
- avant d'executer la requete SQL, essaie de voir son contenu exact avec un

Code :

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

Debug.Print uSQL

- le WHERE (SELECT *) ne me parait pas correct, a remplacer eventuellement par un
WHERE ID IN (SELECT ID FROM ...)

[Fred_rt]

Bonjour Jean-Philippe,

Voici le résultat des espions. En revanche, je n'ai aucun affichage dans la fenêtre d’exécution.



Je vais voir comment utiliser la syntaxe que tu as suggérée.

Cordialement,

Fred

[Fred_rt]

Bonjour à tous,

Voici ce qui fonctionne :

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
Dim uSql As String
Dim I As Integer
Dim NomChampArticle As String
Dim UStock As String
Dim AStock As String
Dim SQuant As String
Dim UArticle As String
 
For I = 1 To 5
NomChampArticle = "CboArticle" & I
AStock = "txtStock" & I
SQuant = "txtQuant" & I
If Not IsNull(Controls(NomChampArticle)) And Not IsNull(Controls(AStock)) And Not IsNull(Controls(SQuant)) Then
UStock = Forms("fEncoSorties").Controls(AStock).Value - Forms("fEncoSorties").Controls(SQuant).Value
UArticle = Forms("fEncoSorties").Controls(NomChampArticle).Value
uSql = "UPDATE tArticles SET tStock =" & UStock & " WHERE (tArticles.tArticlePK)=" & UArticle & ";"
DoCmd.RunSQL uSql
Else
End
End If
Next

Merci pour votre aide.

Cordialement,

Fred