Discussion :

[Sofie109]

Bonjour,

Voici mon problème :

J'ai un formulaire avec une liste déroulante. Dans cette liste se trouve de nom de projet.

J'aimerai que une fois le nom d'un projet sélectionné, je puisse cliquer sur un bouton et que celui ci m'envoye sur un état ou juste les informations propre a ce nom de projet sont affiché.

En effet cet état, si il aucun critère n'est choisit, affiche les informations de tout les projets existants.


Je pense qu'il faut mettre dans le code du bouton de controle un select case mais j'en suis pas sûre.

Voici le début de mon code:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CmdAperçuEtat_Click()

Select Case [CmbChoixProjet]

   Case "je ne sais pas quoi mettre"
       DoCmd.OpenReport "Etat", acViewPreview
    
End Select
End Sub

Avec :

- CmdAperçuEtat : Bouton pour afficher l'Etat
- CmbChoixProjet : Liste déroulante
- Etat : L'état avec les information sur les projets

Je tiens aussi à signaler que la liste déroulante est actualisée dès la saisie d'un nouveau nom de projet dans la table principale.

Merci de votre aide

[Sofie109]

J'ai sinon une autre idée de code mais ca ne marche pas non plus :

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
Private Sub CmdAperçuEtat_Click()
On Error GoTo Err_CmdAperçuEtat_Click
 
    Dim stDocName As String
 
    stDocName = "Etat"
    stLinkCriteria = "[Numero_projet]=" & "'" & Me![Numero_projet] & "'"
    DoCmd.OpenReport stDocName, stLinkCriteria, acPreview
 
Exit_CmdAperçuEtat_Click:
    Exit Sub
 
Err_CmdAperçuEtat_Click:
    MsgBox Err.Description
    Resume Exit_CmdAperçuEtat_Click
 
End Sub

Dur dur

[pgz]

Bonjour,

Ta deuxième idée semble bonne, mais pas la syntaxe

Code :

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

DoCmd.OpenReport stDocName, acViewReview, , stLinkCriteria

et dans stLinkCriteria, si numéro_projet est numérique, alors c'est plutôt

Code :

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

stLinkCriteria = "[Numero_projet]=" & Me![Numero_projet]

Bon courage,

PGZ

[Lou Pitchoun]

Salut,

Pour gérer l'ouverture d'un état contenant tous les enregistrements ou un enregistrement précis, tu peux faire ceci :

Code :

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

1
2
3
4
5
6
7
8
9
    Dim stDocName As String
 
    stDocName = "Etat"
    If Not IsNull(Me.CmbChoixProjet) then
        stLinkCriteria = "[Numero_projet]=" & "'" & Me![Numero_projet] & "'"
        DoCmd.OpenReport stDocName, acViewReview, , stLinkCriteria
    else
        DoCmd.OpenReport stDocName
    End If

[Sofie109]

Merci merci ca marche!!