Discussion :

[grimgrim]

Bonjour,

Ne connaissant pas très bien le SQL en vba, je bloque sur deux sujets :

J'ai une table T_Stock où j'ai trois champs vetements, taille, et quantité
Sur un formulaire F_Vetements, je peux ajouter des vêtements de dotation à une personne en fonction du vêtement et de la taille
Dans ce formulaire F_Vetements, après la sélection du vetement et de la taille choisie, je souhaite faire apparaitre la qté de stock sur ce formulaire
Or, j'ai une erreur sur le code que je trouve pas

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
Private Sub Vetements_Taille_Change()
Dim ligne As Recordset
Dim base As Database
 
Set base = Application.CurrentDb
Set ligne = base.OpenRecordset("SELECT T_Stock.Vetements, T_Stock.Taille, T_Stock.Quantite FROM T_Stock WHERE T_Stock.Vetements = " & Vetements_Vetements.Value & "and T_Stock.Taille=" & Vetemetns_Taille.Value & "'", dbOpenDynaset)
'
'Set ligne = base.OpenRecordset("SELECT T_Stock.Vetements, T_Stock.Taille,  FROM T_Stock WHERE (((T_Stock.Vetements)=[Formulaires]![F_Vetements]![Vetements_Vetements]) AND ((T_Stock.Taille)=[Formulaires]![F_Vetements]![Vetements_Taille]));", dbOpenDynaset)
ligne.MoveFirst
StockActuel.Value = ligne.Fields("Quantite").Value
 
ligne.Close
base.Close
Set ligne = Nothing
Set base = Nothing
End Sub

L'autre problème est que je voudrais ajouter une quantité de dotation sur la table T_Stock par la méthode Update ... Set... mais je ne connais pas la manière de le faire

Merci pour votre aide

Cordialement,

[Jean-Philippe André]

Salut,

le SQL que tu génères est faux, mais il nous faudrait savoir si les champs Vetements et Taille sont de type texte ou numérique.

De plus, il te manque un espace avant le and de ton where.

[grimgrim]

j'ai réussi à trouver le pbre sur le premier

mais je ne trouve rien sur update

Même si vous ne voulez pas répondre, pouvez vous au moins me dire si ma structure est correcte

Code :

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

Set lig = "UPDATE T_stock SET T_stock.Quantite ='" & Vetements_Quantite.Value & "' WHERE Vetements = '" & Vetements_Vetements.Value & "' AND Taille='" & Vetements_Taille.Value & "'"

cordialement,

[marot_r]

Bonjour.

La meilleur méthode pour écrire du SQL dans Access c'est de ne pas le faire manuellement.

Va dans l'éditeur de requête et crée une requête qui fait ce que tu veux (pour un cas en particulier), puis change l'affichage pour "SQL" (en haut à gauche) et lit le SQL généré par Access.
Tu peux le copier dans l'éditeur de code et ensuite intégrer les variables là où tu avais mis tes valeurs "en dur".
Ça prend généralement 3 mn en procédant ainsi.

Attention il faut penser à doubler les "" dans les chaînes de caractères (ou les remplacer par des apostrophes).

A+

[ilank]

Bonjour,

concernant cette ligne

Code :

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

Set lig = "UPDATE T_stock SET T_stock.Quantite ='" & Vetements_Quantite.Value & "' WHERE Vetements = '" & Vetements_Vetements.Value & "' AND Taille='" & Vetements_Taille.Value & "'"

L'instruction SET sert à instancier un objet en VBA, ici la variable lig est de type string; ce n'est donc pas nécessaire.

Code :

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

lig = "UPDATE T_stock SET T_stock.Quantite ='" & Vetements_Quantite.Value & "' WHERE Vetements = '" & Vetements_Vetements.Value & "' AND Taille='" & Vetements_Taille.Value & "'"