gestion de stock sur access

Question

bonjour à tous , 

  étant débutant sur access j'ai un probleme important concernant la gestion de stock sur laquelle je travaille dans un entrepot , explication :

  à l'entrée des produits dans l'entrepôt la personne qui saisie a la possibilité de se tromper dans l'écriture de la référence produit ( donc une référence qui ne correspond à rien ) et d'enregistrer cette référence , du fait et au final je me retrouve avec des produits vendus qui n'hexistent pas et d'autres non vendus qui existent , comment puis je interdire cette manip si la référence n'est pas répertoriée ? 

  merci pour votre aide 

   salutations

jimy neutron · Answer

Bonjour,

Il faut scanner la base à la recherche de la reference rechechée.

Dim DBase As Database
Dim Rs As Recordset      
Dim Sql As String
Dim  Index as integer
Dim Ref_Recherchée as String

Set DBase = OpenDatabase(C:\ chemin de la base \ nom de la base) 'Ouverture de la base
Sql = "select * from Table1"   'Table1 est le nom de la table à ouvrir
Set Rs= DBase.OpenRecordset(Sql, dbOpenDynaset)



' Recherche de la reference
While Not Rs.EOF
   if  Rs.Fields("Reference")=Ref_Recherchée then goto Suite
   Rs.MoveNext

'Si parés le scan la ref n'est trouvé, Afficher le message "La reference recherchee n'existe pas"

Exit Sub       'On sort du Sub
Suite:       'Sinon
'Suite du traitement si le reference existe

Wend
RsDef.Close     'Fermeture



Voila,

PS: Soyez vigilant sur l'endroit où vous postez vos questions, à cet endroit (qui n'est pas adapté), on sait pas quel language que vous utilisé (mon code est en VB6), et il est dificile de ciblé votre environnement.

Jimy

Pensez: Réponse acceptée
'**********************************************

Gestion de stock sur access

1 réponse

Votre réponse

Discussions similaires