Bienvenue! Identification Créer un nouveau profil

Recherche avancée

Création de bouton de commande

30/03/17 19:45
Bonjour, je suis en stage de fin d'année de Licence et j'aimerai créer un tableau Access.

J'ai 104 bâtiments, avec des équipements qui sont propres à chaque bâtiment, les équipements sont rangés dans des lots (CVC, Sécurité,...)
J'ai créé mes tables de données(Site; EQUIPEMENTS et Lot), la table équipements est en lien avec la table site par "Code Site" et avec la table Lot par "N°Lot". Un équipement à donc son code site et son numéro de lot.

J'aimerai créer un bouton qui aura pour but de me sortir la table de donnée avec deux filtres: le code site rentré précédemment dans une zone liste de choix "Choix Site" sur le formulaire et le numéro Lot(ex: 4).
Ex: je choisis le site 916024 et je clique sur le bouton CVC (Lot= 4) et il doit me sortir les équipements dans ce bâtiment dans le bon lot.
J'ai donc un problème pour la création de ce bouton. Je ne suis pas doué en visual basic, mes quelques cours d'Access ne me suffise pas.
J'ai essayé sur visual basic, ça me donne ça mais il doit y avoir de multiple erreurs:

Private Sub CVC_Click()

On Error GoTo Err_CVC_Click


Dim stDocName As String
Dim sql As String
Dim stLinkCriteria As String

stDocName = "EQUIPEMENTS"

stLinkCriteria = "[Choix site]=" & Me![Code site]
sql = stLinkCriteria & "AND"
sql = sql & "[Lot]=" & Me![4]

DoCmd.OpenForm stDocName, acFormDS, acNormal, stLinkCriteria, sql

Exit_CVC_Click:
Exit Sub

Err_CVC_Click:
MsgBox Err.Description
Resume Exit_CVC_Click

--> CVC c'est le nom du lot(=4)
N'hésitez pas à me recadré sur la route si ce n'est pas sur visual basic, ou qu'il y a une création de requête ou autres à effectuer.
Je pourrai ainsi le reproduire pour les autres lots de mon bâtiment!

Je m'excuse d'avance pour les fautes orthographes
SujetAuteurEnvoyé le

Création de bouton de commande

Stage201730/03/17 19:45

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter