Discussion :

[Skizo]

boujour,

j'aimerai savoir comment on transcrit [produit].[ref_int] en language VBA?

[fscli]

c quoi exactement produit et ref_int ?

[Skizo]

produit est ma table, et ref int mon champs

[Petogaz]

salut,

j'avoue que je n'ai pas compris la question

[fscli]

et tu veux faire quoi avec ?

[Skizo]

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

[Skizo]

l'integré dans un If... then...Else

[Petogaz]

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.

[LedZeppII]

Bonjour,
Avec DAO (Référence Microsoft DAO 3.x à rajouter dans VBA):

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

Voir aussi http://warin.developpez.com/access/dao/ partie 5

[Skizo]

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

[Petogaz]

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 ?

[Skizo]

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?

[Goldenduck4000]

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

[Skizo]

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

[Skizo]

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

[Petogaz]

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.

[Goldenduck4000]

Oups j'avais mal compris, je crois qu'il faut déclarer un ptit msg sql
du style :

Code :

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

1
2
3
 
    Dim sql As String
    sql = "SELECT [ref_int] FROM [Produit]"

En esperant aider un tout tout petit peu quand même, a+

[Skizo]

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

[LedZeppII]

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 ?