Discussion :

[magictom42]

Bonjour, j'ai créér un fichier Access pour la saisie de la production.

Or les opérateurs ont une capacité à atteindre pour la production des pièces. Cette capacité de pièces change suivant la machine la ligne et l'équipe(matin, soir, nuit) dans lequel se trouve l'opérateur.
Pour cela j'ai créé une table.
J'ai créé un formulaire permettant de saisir toutes les données pour pouvoir calculer le TRS( le rendement de l'opérateur en pourcentage). J'ai créé 3 cases d'option pour chaque équipe et j'aimerai qu'en fonction de la case cochée et de la machine et la ligne choisie, cela me renvoie la capacité de production dans une zone de texte pour qu'après je puisse calculer le TRS. Je me doute bien qu'il faut réaliser une requete recherchant les infos de la table en question mais je ne trouve pas la solution.
Merci de bien voulair m'aiguiller.

[spaiku]

Bonjour,

Merci d'envoyer ton code.

[magictom42]

j'ai un peu avancé dans le projet. Mais j'ai un problème, cela me renvoie 0 dans le message. Voici le code :

Code :

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

1
2
3
4
5
6
If Matin.Value = True Then
Set bd = CurrentDb
nbprojet2 = "SELECT projet.equipematin FROM projet WHERE (((projet.nommachine)=[Formulaires]![Formulaire1]![machine]) AND ((projet.nomprojet)=[Formulaires]![Formulaire1]![projet1]));"
MsgBox nbprojet
 
End If

[magictom42]

maintenant ca m'affiche Select... dans le message. J'aimerai savoir comment renvoyer une valeur dans un champ résultant d'une requete comme celle-ci.

[spaiku]

Tu dois utiliser spécifier la source du contrôle avec la propriété SourceControl.

[magictom42]

et comment?je sais je ne suis pas très bon en vb...

[magictom42]

J'ai essayé ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
 
If Matin.Value = True Then
Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim sSQL As String
    ' Ouverture de la base de données
    Set db = CurrentDb
    sSQL = "SELECT projet.equipematin FROM projet WHERE (((projet.nommachine)=[Formulaires]![Formulaire1]![machine]) AND ((projet.nomprojet)=[Formulaires]![Formulaire1]![projet1]));"
    ' Ouverture du recordset
    Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
    ' Fermeture du Recordset
 
    rst.Close
 
 
End If

[Jean-Philippe André]

bonjour, la requete ne connait pas en elle meme les forms,
essaie en adaptant à ceci :

Code :

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

sSQL = "SELECT projet.equipematin FROM projet WHERE (((projet.nommachine)='" & [Formulaires]![Formulaire1]![machine] &"') AND ((projet.nomprojet)='" & [Formulaires]![Formulaire1]![projet1] &"''));"

[magictom42]

cela me met une erreur comme quoi il est impossible de trouver le champ "l" auquel il fait référence dans votre expression.

[Invité]

Bonjour

Il y'a une quote ' de trop à la fin. Dans la mesure où tout tes champs sont au format texte.

Starec

[loufab]

Bonjour,

Pour comprendre ton problème il me semble qu'il te faut un petit cour théorique.

Une requete renvoie systèmatiquement un objet de type recordset, même si celle-ci ne renvoie qu'un enregistrement contenant un seul champ.
Une zone texte, comme un msgbox attend toujours un objet de type texte (ou numérique)

Il y a donc incompatibilité entre ce que tu récupères et le controle où tu souhaites le voir apparaitre.

Pour récupèrer une information d'une table il te faut utiliser une fonction de domaine (comme dlookup) ou la méthode fields() d'un recordset.

Pour la première solution voir le tuto sur les fonctions de domaine, pour la seconde solution voir le tuto sur DAO.

Cordialement,

[Invité]

Bonjour,


Pour la première solution voir le tuto sur les fonctions de domaine, pour la seconde solution voir le tuto sur DAO.

Cordialement,

Suis-je bête, il m'a bien semblé avoir vu un tuto sur les fonctions de domaine là : http://starec.developpez.com/tuto/fonctionsdomaines/

Starec

[magictom42]

je ne suis vraiment pas très doué en vb...Que dois-je utiliser comme fonction? Merci

[Invité]

Bonjour

Comme à priori c'est une recherche sans calcul, regarde du côté de DLookup.
Si tu as l'article sur les fonctions de domaine, tu trouveras un tableau qui récapitule les fonctions et leur signification succincte.

Starec

[magictom42]

ce que je ne comprend pas, c'est que la requete doit me renvoyer une seule valeur et donc je ne dois pas avoir besoin de DLookup() si?

[Invité]

Re

Toutes les fonctions de domaine ne renvoient qu'une valeur.
La fonction DLookup remplace une requête Select en SQL.
L'avantage est que tu peux l'utiliser directement dans une zone de texte (attention syntaxe en Française).
Tout est expliqué dans l'article.

Starec

[loufab]

ce que je ne comprend pas, c'est que la requete doit me renvoyer une seule valeur et donc je ne dois pas avoir besoin de DLookup() si?

Que la requete te renvoie une, plusieurs ou aucune valeur, elle renvoie un objet de type recordset et non un objet de type natif (string, long...)

Tu dois garder à l'esprit que c'est le type d'objet renvoyé qui prime sur tout le reste.