Discussion :

[ataahualpa]

Bonjour à tous

Dans un formulaire j'ai une zone de liste déroulante une zone de texte et une zone de liste .
Liste déroulante : Lst_SelecCarte
texte : Txt_Lot
Liste : Lst_QtyCtrl

Dans la zone de liste le contenu :

SELECT T_Alim.Batch, Count(T_Alim.Batch) AS CompteDeBatch FROM T_AlimPrimo GROUP BY T_Alim.Batch HAVING (((T_Alim.Batch)=[Formulaires]![F_Rec]![Txt_Lot]));

Ma question est
Comment modifier le contenu de la liste suivant le résultat de liste déroulante, une variable sur le "SELECT T_Alim" !

Code :

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

1
2
3
If Lst_SelecCarte.Text = xxxxx Then
SELECT T_Alim.Batch, Count(T_Alim.Batch) AS CompteDeBatch FROM T_AlimPrimo GROUP BY T_Alim.Batch HAVING (((T_Alim.Batch)=[Formulaires]![F_Rec]![Txt_Lot]));
End If

J'essaye de compter le nombre d'enregistrement (ex:nb pomme) qui pourrait être dans différents entrepôts (les tables) et les tables seraient ma liste déroulante.


J'espère avoir été clair ....pas toujours facile


Merci

Cordialement

[Jeannot45]

J'espère avoir été clair ....pas toujours facile

Pas trop

Peux-tu mettre un extrait de ta base avec des données bidon pour mieux comprendre ou des images écran

[ataahualpa]

Ci-joint un extrait de ma base

Pour voir ou se trouve mon soucis mettre "HRJB0315" dans la zone Numéro de lot .

Cdlt

[Jeannot45]

Une petite erreur de pointage de zone dans ta requete SQL

Code :

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

1
2
3
4
SELECT T_Alim.Batch, Count(T_Alim.Batch) AS CompteDeBatch
FROM T_Alim
GROUP BY T_Alim.Batch
HAVING (((T_Alim.Batch)=[Formulaires]![F_Rec]![Lst_SelecCarte]));

Ajoute également une petite procédure sur l'évènement Après MAJ du la liste déroulante

Code :

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

1
2
3
Private Sub Lst_SelecCarte_AfterUpdate()
    Me.Lst_QtyCtrl.Requery
End Sub

[ataahualpa]

Bonjour Jeannot


Mon soucis est que Lst_SelecCarte doit sélectionner une table

J'essaye de compter le nombre d'enregistrement (ex:nb pomme) qui pourrait être dans différents entrepôts (les tables) et les tables seraient ma liste déroulante.

.
Il peut y avoir des pommes dans différents entrepôts !

Cordialement
Ch.

[ataahualpa]

Re

J'en suis là avec un msg d'erreur

Trop peu de paramètres. 1 Attendu

sur .openRecoerdset(Resultat)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
If Lst_SelecCarte = "HR179267" Then
 
Dim Resultat As String
Dim Rst As Recordset
 
Resultat = "SELECT T_HR179267.Reference, T_HR179267.Batch, Count(T_HR179267.Batch) AS CompteDeBatch FROM T_HR179267 GROUP BY T_HR179267.Reference, T_HR179267.Batch HAVING (((T_HR179267.Reference)=[Formulaires]![F_Rec]![Lst_SelecCarte]) AND ((T_HR179267.Batch)=[Formulaires]![F_Rec]![txt_Lot]));"
Set Rst = CurrentDb.OpenRecordset(Resultat)
If (Rst.EOF) Then
   MsgBox ("Non trouvé!")
Else
 Lst_QtyCtrl = Resultat
End If
Rst.Close

[ataahualpa]

j'ai résolu mon soucis en utilisant la fonction Dcount , bien plus simple


Je me faisais un nœud au cerveau

[Jeannot45]

Bravo ! et merci d'avoir indiquer ta solution.