Discussion :

[lafafmentvotre]

Bonjour

Je débute en Access, merci pour votre indulgence.
J'ai un form avec un combobox qui fait appel à une table :
- Control Source = CODCDC
- Row Source = Vendeurs
- Row Source Type = Table/Query

et deux DtPicker qui font appel à une date (du xxx au xxxx)



Lorsque je clique sur un bouton édition, un rapport est généré avec les valeurs sélectionnées. Jusque là, tout va bien.

Je voudrais savoir comment dire dans le combobox que si je ne sélectionne aucune valeur "vendeurs" alors mon rapport prendra l'ensemble des valeurs "vendeurs".

Est-ce possible ?
Si oui, où donner cette information ?

Merci par avance pour votre aide.

[Jazz_]

Salut,

lors du clic sur edition, verifie la valeur de ta combobox non?

Pour etre plus precis, il faudrais que je sache comment tu genere ton rapport normalement quand tout est rempli ?
Et quel type de rapport est-ce, un etat ?

[lafafmentvotre]

Hello

Lorsque je clique sur le bouton "Edition", il me génère un état :

Code :

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

1
2
3
4
5
6
Private Sub cmdEdition_Click()
Dim stDocName As String
stDocName = "Etat_Quotidien"
DoCmd.OpenReport stDocName, acPreview
DoCmd.Maximize
End Sub

de part une requête :

Code :

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

1
2
3
4
SELECT TableClient.TITRE, TableClient.NOMCLI, TableClient.PRENOMCLI, TableClient.DATARR, TableClient.DATDEP, TableClient.DATFIN, TableClient.HEUARR, TableClient.HEUDEP, TableClient.HEUFIN, TableClient.CODCDC, TableClient.MOTVIS, TableClient.ORDCLI, MotifVisite.MotifVisite
FROM MotifVisite INNER JOIN TableClient ON MotifVisite.N° = TableClient.MOTVIS
WHERE (((TableClient.DATARR) Between [Forms]![frmEditions]![Date_01_bis] And [Forms]![frmEditions]![Date_02_bis]) AND ((TableClient.CODCDC) Between [Forms]![frmEditions]![Code_bis] And [Forms]![frmEditions]![Code_bis]))
ORDER BY TableClient.ORDCLI;

[Jazz_]

si j'ai bien compris,

il faudrait dire, si la cmbbox est vide, alors on enleve

Code :

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

AND ((TableClient.CODCDC) Between [Forms]![frmEditions]![Code_bis] And [Forms]![frmEditions]![Code_bis]))

du sqlwhere. Je me trompe ?

[lafafmentvotre]

Je pense. Si il considère que dans le cas où rien n'est renseigné alors donne moi la totalité.

[Jazz_]

Et bien dans ce cas voilà la réponse.
Il ne reste plus qu'a faire des test pour détecter le cas ou la cmbbox est nul
( ="" , = 0, = Null) je ne sais pas. et modifier le sql quand on a trouvé la bonne.

[argyronet]

Bonjour,

Est-ce possible ?
Oui bien sûr... par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub ImprimerRapport()
Dim vntVendeur                                          As Variant
Dim strCriteria                                         As String
 
    strCriteria = "[DateDebut] > #" & Me!DateDebut & "# AND [DateFin] <= #" & Me!DateFin & "#"
    vntVendeur = Me!ModifiableVendeurs
    If Not IsNull(vntVendeur) Then
        strCriteria = strCriteria & " AND [Vendeur] = " & vntVendeur
    End If
    DoCmd.OpenReport "Nom de l'état", acViewPreview, , strCriteria
End Sub

Argy