[vba access] comment mettre un paramètre?

Fermé
Bobi - 19 juil. 2007 à 17:24
freto Messages postés 1543 Date d'inscription vendredi 6 juillet 2007 Statut Membre Dernière intervention 8 avril 2016 - 20 juil. 2007 à 12:05
Bonjour,

Je réalise un projet sous access mais étant débutant en visual basic, j’ai quelques problèmes... j’aimerais mettre un paramètre dans mon code visual basic qui me servirait à filtrer des données dans une table de données. Je voudrais à partir de ma table employé filtrer les données des employés dont le champ compagnie soit X et que X soit un paramètre que je pourrais rentrer dans un formulaire. Ces données me permettront ensuite à remplir un document word (mais ca j’arrive à le faire).

Mes questions sont les suivantes :

- comment déclarer un paramètre dans du code visual basic, paramètre qui sera demandé lorsqu’on appuiera sur un bouton dans un formulaire.

- Pour filtrer les données j’utilise le code suivant qui ne marche pas : 

Dim db As DAO.Database
Set db = CurrentDb
Set infos = db.OpenRecordset("select * from Employé where Employé.compagnie =" & Peugeot)


qu'est ce qui ne va pas?

je ne sais pas si j'ai été très clair..
merci de m'aider!!
A voir également:

2 réponses

Réponse 1 / 2
freto Messages postés 1543 Date d'inscription vendredi 6 juillet 2007 Statut Membre Dernière intervention 8 avril 2016 162
19 juil. 2007 à 17:28
Bonjour

Il faut tout d'abord changer cette ligne 

Set infos = db.OpenRecordset("select * from Employé where Employé.compagnie =" & Peugeot)


En 
Set infos = db.OpenRecordset("select * from Employé where Employé.compagnie =" & Peugeot & ")


Et pour demander un paramètre tu peut utiliser dans ton code 

var=InputBox "Message que va afficher la boite de dialogue"

Ce code va afficher une boite de dialogue demandant à l'utilisateur de rentrer une valeur
Cette valeur sera ensuite stockée dans var une fois que l'utilisateur aura cliqué sur OK
Voili voilou
0
Bobi
19 juil. 2007 à 17:47
merci de m'aider freto

quand je met la ligne 

Set infos = db.OpenRecordset("select * from Employé where Employé.compagnie =" & Peugeot & ")


il y a une erreur de compilation et ça me met attendu: séparateur de liste ou )


et pour 

var=InputBox "Message que va afficher la boite de dialogue"


il ya aussi une erreur de compilation et il me met attendu: fin d'instruction

désolé, je débute..
0
Réponse 2 / 2
freto Messages postés 1543 Date d'inscription vendredi 6 juillet 2007 Statut Membre Dernière intervention 8 avril 2016 162
20 juil. 2007 à 12:05
Oui effectivement, la première erreur est normale, je suis désolé, c'est moi qui me suis trompé
Ta ligne était correcte, a ceci près que select, from, et where doivent être écrits en MAJUSCULES
Je ne sais pas si l'erreur vient de la ou non
Donne nous l'erreur qu'il te sort quand tu essaie le premier code que tu nous a donné

Pour la deuxième, essaie ceci 

var=InputBox ("Message que va afficher la boite de dialogue")
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop


a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur


'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

5 réponses
C'est quoi le runtime Access ?
Pekin -
Pekin -

Bonjour,

il y a des questions que je me pose sur Access : Qu'est ce que le runtime d'Access par rapport à Access en lui-même ? Est ce que ça nécéssite une installation particulière comme Access ? Est ce que ça peut faire tourner des macros ?

Merci de vos réponses !


Configuration: Windows XP / Internet Explorer 7.0

2 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

3 réponses
Acer quick access
Bidou21 -
sortout -

Bonjour,

Quand j'ouvre ma session, j'ai Acer quick access qui s'ouvre a droite de mon écran mais la fenêtre charge et reste noire tout le temps. Quand je veux la fermer on me dit que le programme ne répond pas.
A quoi sert cette application et est-il possible de la supprimer?
Merci d'avance.

Configuration: Windows / Chrome 54.0.2840.99

2 réponses