FORUM MP | Visual basic : langage sur VB (hElp)

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Serv: irc.irc-land.org

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

langage sur VB (hElp)
	Forum : VISUAL BASIC Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ VISUAL BASIC
		SUIVI PAR MAIL INACTIF
		SUJET NON RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGE : [1]

FORUM VISUAL BASIC
	Page précedente	Page suivante

run1
Nouveau membre

Inscrit : 11/04/2008
Messages : 1

#151775 Posté le 11/04/08 à 14:31

Bonjour à tous!
Je suis nouveau sur ce forum j'ai un problème avec access.
je voudrais automatiser les entrées et les sorties de stocks, le calcul du stock doit pouvoir se faire en fonction de la quantité d'entrées et de sorties.
Donc je rentre le nomd'une machine, le nom de la pièce de la quantité d'entrée ou sortie à la fin je dois avoir la quantité en stock et le stock ds la table en question doit aussi changer.

J'ai utilisé ce langage mais il y a un problème je sais pas où il se trouve pourriez vous m'aider svp?! Merci d'avance ;

Option Compare Database

Sub stock()

Dim QTESTOCK As String
Dim QTEENTRER As String
Dim QTESORTIE As String
Dim NPIECE As Single

choix = E Or S
QTEENTRER = 0
QTESORTIE = 0

InputBox ("Entrée(E) ou sortie(S) de stock?"), choix
If choix = E Then
InputBox "quantité entrée?", QTEENTRER
InputBox "NPIECE", NPIECE
QTESTOCK = QTESTOCK + QTEENTRER
Else
If choix = S Then
InputBox "quantitée sortie", QTESORTIE
InputBox "NPIECE", NPIECE
QTESTOCK = QTESTOCK - QTESORTIE
End If
End If

MsgBox ("La quantitée en stock est de:" = QTESTOCK)

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

xidma
Modérateur :
- Visual basic

Inscrit : 11/03/2004
Messages : 246

#152218 Posté le 21/04/08 à 12:41

Bonjour,
Je sais ce que vous voulez faire, mais si voulez faire une opération arithmétique basic sur des entiers, il va falloir utiliser des variable de type Integer ou Long. Avec les variables de types string, le système effectue quelque fois des concaténations.

Merci
__________________________
La réussite est au bout de l'effort

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1718

#152225 Posté le 21/04/08 à 15:33

Bonjour

je pense que le problème est ici

remplacer
MsgBox ("La quantitée en stock est de:" = QTESTOCK)

par

MsgBox ("La quantitée en stock est de: " & QTESTOCK)

Salutations

RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

ManFall
Membre newbie

Inscrit : 28/06/2005
Messages : 30

#152651 Posté le 01/05/08 à 22:50

Salut moi je propose ceux ci:

Option Compare Database Sub stock() Dim QTESTOCK As long Dim QTEENTRER As long Dim QTESORTIE As long Dim NPIECE As Single choix = E Or S QTEENTRER = 0 QTESORTIE = 0 InputBox ("Entrée(E) ou sortie(S) de stock?"), choix If choix = E Then InputBox "quantité entrée?", QTEENTRER InputBox "NPIECE", NPIECE QTESTOCK = QTESTOCK + QTEENTRER Else If choix = S Then InputBox "quantitée sortie", QTESORTIE InputBox "NPIECE", NPIECE QTESTOCK = QTESTOCK - QTESORTIE End If End If MsgBox"La quantitée en stock est de:" & QTESTOCK End sub

__________________________
Le savoir vaut la peine de porter des chaussures en fer et de marcher jusqu'en chine...
Je croit au partage de connaissances à travers le monde entier...
N'oubliez pas de marquer résolu si vous avez eu la bonne réponse à votre question

HAUT DE PAGE


	Page précédente	Page suivante
FORUM VISUAL BASIC

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.