Discussion :

[subnox]

Bonjour,

Je vais essayer d'être clair mais je le garantie pas, voilà:

Dans un formulaire de ma BD, je presse sur un bouton et cela affiche une inputbox, dans cette inputbox on peut écrire une année, puis cela ouvre un autre formulaire, qui va rechercher une table en fonction de l'année que l'on a introduit dans l'inputbox.
Ensuite le formulaire calcul la somme des enregistrements de tous les champs de la table et les affiche dans ses zones textes.
De plus dans ce formulaire, j'ai des listbox qui contiennent des valeurs en rapport avec les enregistrements de la table.

J'aimerais pouvoir en séléctionnant certaines valeurs dans les listbox que quand le formulaire effectue la somme des enregistrements de la table, que mon formulaire ne prenne en compte que les enregistrements qui correspondent avec les valeurs séléctionnées dans les listbox. Mais comment faire!??

J'espère avoir été clair sinon:

Disons que dans ma table j'ai différent champ et certains champs sont des listbox:

Disons que ce sont les noms de mes champs:
Nom Prix Ville Chef Secteur

quand mon formulaire fait le calcul il prend toutes les valeurs du champ "Prix"
et les additionne, puis les affiche dans un de ces textbox.

Ensuite dans ma table, le champ secteur est en fait une listbox.
J'aimerais que quand je séléctionne une certaine valeur dans le champ "secteur", mon formulaire ne prenne que certaines valeurs de "Prix" pour faire l'addition.

Secteur = bureau
Formulaire calcul que les enregistrement qui ont la valeur bureau dans secteur

secteur = nettoyage
Formulaire calcul que les enregistrement qui ont la valeur nettoyage dans secteur

Voilà j'espère que c plus clair pour vous et surtout que vous pourrez m'aider!

Merci d'avance!

[subnox]

En fait, j'ai peut-être encore plus simple:

Code :

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

Set recordset = db.OpenRecordset("Matable") Where "nom champ" = condition de la liste and "nom champ 2" = condition liste2

etc...

est-ce possible?

comme ca après je peux simplement lire dans mon recordset

Merci

[Lou Pitchoun]

Salut,

j'ai du mal à lire tes explications... (fin de journée qui approche ??)

une proposition :

Code :

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

Set recordset = db.OpenRecordset("SELECT * FROM Matable Where nom champ = " & condition_de_la_liste & " and nom champ 2 = " & condition liste2 )

[subnox]

Ca doit être ca oui je pense que je me serais mieux expliquer ce matin... lol

Enfin je te remercie, je vais essayer et voir ce que ca donne!

Mais c'est pas obligatoire d'avoir du ADO pour ca? car je travaille avec DAO et j'ai commencé à lire des tutoriels de ADO car apparemment ADO est encore plus puissant mais voilà...

Merci

[Lou Pitchoun]

Dans ce cas là : mieux vaut utiliser DAO

[subnox]

Hello,

Alors j'ai essayé de placer cette requête sql pour récupérer mon recordset!

ca donne ca:

Code :

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

Set sRs = sDb.OpenRecordset("SELECT * FROM [Abfrage Mittelfristplanung alle Felder] WHERE [Division_Bereich] = " & Me.Division_Bereich.Value & " AND [Projektreichweite] = " & Me.Projektreichweite.Value & " AND [Domäne] = " & Me.Domäne.Value & " AND [OE_Techn_Projektleiter] = " & Me.OE_Techn_Projektleiter.Value & "") ' AND 'IT Team' = " & Me.IT_Team.Value & "

Maintenant le prob c'est que il me fait une erreur...
il dit qu'il attend 5 paramètres mais qu'il y en a pas assez qui sont donnés

Je sais pas si tu vois une erreur la dedans!? dsl mais je suis pas très câlé en SQL...

Merci d'avance!

[subnox]

La fin est en commentaire, car c'est ma listbox IT Team qui n'est encore pas au point

[mathieu44800]

Bonjour,

Je serais toi j'essaierais de faire cette requête par l'analyseur de requetes d'abord et de l'inserer après dans ton code.

[Jeannot45]

Bonjour,

A propos de tes 5 parametres manquants :

Si tes valeurs sont de type alpha tu dois inclure des Quotes au niveau de chacun de tes criteres dans la clause WHERE

exemple sur une partie de ta requete :

Code :

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

Set sRs = sDb.OpenRecordset("SELECT * FROM [Abfrage Mittelfristplanung alle Felder] WHERE [Division_Bereich] = '" & Me.Division_Bereich.Value & "' AND [Projektreichweite] = '" & Me.Projektreichweite.Value & "' AND [Domäne] = '" & Me.Domäne.Value & "' AND ....

A+

Jeannot

[subnox]

Merci beaucoup pour vos réponses!
Je ne savais pas que ca existait ce testeur de requête ou je peux le trouver!?
merci!

Sinon ct bien ces quotes qui manquaient! dsl... je ne connais pas bien sql... peut-être connais-tu un bon tutoriel!?
en tout cas merci!

J'aurais encore une question:

Code :

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

Set sRs = sDb.OpenRecordset("SELECT * FROM [Abfrage Mittelfristplanung alle Felder] WHERE [Division_Bereich] = '" & Me.Division_Bereich.Value & "'

.......

Code :

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

AND '" & DatePart(yyyy, "[Datum_Projektstart]") & "' < '" & Me.Jahr.Value & "' AND '" & DatePart(yyyy, "[Datum_Projektende]") & "' > '" & Me.Jahr.Value & "'")

Tout ce qui est en italique c'est ok, ensuite j'ai mis des ... pour pas ravoir tout le bout de code et ca c'est la fin et c'est là qu'est le prob...

J'aimerais en fait prendre avec la fonction "DatePart" la valeur de l'année du champ "Datum_Projektstart" et la comparer avec Me.Jahr.Value et tout ca dans ma requête SQL...

Si vous pouvez m'aider ca serait magnifique!!!!

Merci beaucoup en tout cas!!

[Jeannot45]

Un petit complément quant à l'utilisation des Quotes.

Dans mon message précedent, je t'avais préconisé l'utilisation de quote mais seulement si la valeur du critère est Alphabétique, sinon tu ne met pas de quote.

Donc dans ta comparaison entre l'année du projet et l'annee en cours , il s'agit de numérique donc pas de quote.

Code :

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

AND " & DatePart(""yyyy"", [Datum_Projektstart]) & " < " & Me.Jahr.Value & " AND " & DatePart(""yyyy"", [Datum_Projektende]) & " > " & Me.Jahr.Value)

Remarque qu'il a fallu doubler les guillemets de l'argument "yyyy"

Excuses moi, j'aurai du etre plus précis

Jeannot

[subnox]

Bonjour,

Merci pour ton aide Jeannot! donc j'ai essayer, mais pour finir j'ai opter pour un test plus efficace ensuite, ca fonctionne très bien aussi!

Maintenant en fait j'aurais un autre problème, j'aimerais pouvoir gérer des champ vide...

Je m'explique:

Dans mon set recordset il y a la listbox "Domäne" et pour certains enregistrement, cette option n'est pas rempli donc: enregistrement = ""

Seulement le prob c'est que quand je laisse la liste box vide, donc = "" le prog me fait une erreur et me dis que c'est pas possible de traiter la valeur Null...

J'aimerais pouvoir traiter cette valeur (Null) quand même, mais comment faire!?

Merci beaucoup!

[Dryss51]

Bonjour,

La Fonction nz() te permettra de traité des valeurs si null.
En espérant t'aider

[subnox]

C'est nickel, j'ai essayé avec nz() et ca fonctionne bien!

Merci de votre aide, ca fait plaisir!!!!