boujour,
j'aimerai savoir comment on transcrit [produit].[ref_int] en language VBA?
boujour,
j'aimerai savoir comment on transcrit [produit].[ref_int] en language VBA?
c quoi exactement produit et ref_int ?
produit est ma table, et ref int mon champs
salut,
j'avoue que je n'ai pas compris la question![]()
et tu veux faire quoi avec ?
pardon, c'est un oubli de ma part
[produit].[ref_int] est du languague SQL, je voulai savoir comment on ecrit l'équivalent de ca, en VBA
l'integré dans un If... then...Else
rien ne t'empeche de mettre des conditions dans ton SQL. regarde l'aide sur la fonction IIf() ---> vraifaux() en français et ceci peut être utiliser dans du SQL pas besoin de VBA.
Bonjour,
Avec DAO (Référence Microsoft DAO 3.x à rajouter dans VBA):Voir aussi http://warin.developpez.com/access/dao/ partie 5
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Dim db as DAO.Database, rs as DAO.RecordSet Set db = CurrentDB Set rs = db.OpenRecordset("Produit") While not rs.EOF Debug.Print rs![ref_int] ' ou Debug.Print rs("ref_int") rs.MoveNext Wend rs.close db.close
j'ai un formulaire de sortie de stock.
j'aimerais que, quand un produit est sorti du stock, access, compare la quantité disponible (qdispo appartenant à la table produit) à la quantité minimum (qmin appartenant à la table produit).
si qdispo est inférieur à qmin, j'aimerai affiché un message d'alerte(commande à faire).
je voudrai que ces lignes fonctionne: (c'est un mélange de SQL et VBA)
If [produit].[qdispo] <= [produit].[qmin] Then MsgBox "commandez cette pîèce", vbInformation, "alerte de niveau bas"
End If
si c'est possible de faire ca en SQL, cela m'arrangerai
je ne vois pas pourquoi tu fais un sql puisque tu as un formulaire de saisi qui est déjà alimenter par une requête ou table. comment effectues-tu ta sorti de stock sur ton formulaire ? par un click ? comment se présente ta table ?
la sortie de stock est faite à l'aide d'une macro, lors du clic sur le bouton enregistrer
la commande sql suivante:
UPDATE [produit] SET [produit].[qdispo] = [produit].[qdispo]-[historique des sorties].[Qsorti] WHERE [produit].[ref_int] = [historique des sorties].[ref_int]
ensuite elle alimente mon formulaire d'historique de sorti de stock
j'aimera que quand la sorti est effectuer par la commande précédente, la macro fai ma comparaison
comment ca comment ma table est faite?
Je ne suis pas certain de la syntaxe, mais ca éclairera les utilisateurs avancé :
Je pense que que Skizo veut juste savoir que :
[Produit].[ref_int]
= en VBA :
Form("Produit").ref_int ou Forms("Produit").ref_int ou Formulaire("Produit").ref_int
ou encore Me.ref_int (fais des test je ne sais plus lesquels correspondent à quoi, et je ne parviens pas a retrouver leur défénition)
"Me" désigne ton formulaire ouvert je crois..
j'ai peut être servi à rien, mais c'est pas grave
tout aide, peut importe la nature ou ca divergence par rapport au sujet m'est précieuse
produit n'est pas un formulaire, mais une table
j'ai transformé comme ca:
If tbl.produit.qdispo <= tbl.produit.qmin Then MsgBox "commandez cette pîèce", vbInformation, "alerte de niveau bas"
End If
il ya encore une erreur mais je voi pas ou
il est tout à fait possible de passer par VBA. sinon le plus simple si tu ne veux passer par vba est de comparer les champs [qdispo] et [qmin] en mode création de la table si ces deux champs sont dans la même table (d'où ma question sur ta table) en procédant ainsi :
mode création de table ---> sur la barre de menu tu as "propriété" image d'une "main" et sur la ligne "valide si" tu fais la comparason : [qdispo]-[qmin]<=0 et sur la ligne "message si erreur" tu mets ton message :"commandez cette pîèce".
ça te va ?
nb : le seul inconvénient de cette méthode est que tu ne peux personnaliser ta boite de dialogue.
Oups j'avais mal compris, je crois qu'il faut déclarer un ptit msg sql
du style :
En esperant aider un tout tout petit peu quand même, a+
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Dim sql As String sql = "SELECT [ref_int] FROM [Produit]"
oui et non
parce que j'en suis à la première étape
car ensuite, il faut que quand cette condition est vrai, créer une demande d'achat (état)
c'est pour ca que je voulai intégrer ca en VBA ou SQL
Dans ce cas, il y a peut-être plus simple.
Crée une requête sur Produit avec comme critère qdispo<qmin.
Si DCount("*", "LaRequête")>0 c'est qu'il y a un besoin d'approvisionnement et cette même requête pourra servir pour ton Etat.
Qu'en penses-tu ?
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager