Discussion :

[Sofie109]

Bonjour,

J'ai un problème dans ma conception de base de données, le voici.

J'ai deux listes déroulantes. Liste1 et Liste2.
Dans la Liste1, j'ai tous les secteurs d'activité existant. Cette liste est alimentée par la table "Secteur"
Dans la Liste2, j'ai tous les types de mission existant. Cette liste est alimentée par la table "Type de mission"


J'aimerai qu'une fois qu'on ait choisi dans chacune des listes un secteur et un type de mission, que en cliquant sur un bouton on arrive à un état dans lequel les informations lié a ce secteur et à ce type de mission apparaissent.

Voici mon code qui hélas ne marche pas. Je pense que je ne dois pas avoir grand chose a modifier mais je sais pas quoi :

Le bouton pour arriver sur l'état se nomme : CmdAperçuEtat2
L'état se nomme : Etat


Private Sub CmdAperçuEtat2_Click()
On Error GoTo Err_CmdAperçuEtat2_Click

Dim stDocName As String

stDocName = "Etat"
stLinkCriteria = "[Secteur]=" & "'" & Me![Liste1] & "'" And "[Type_mission]=" & " '" & Me![Liste2] & "'"
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria

Exit_CmdAperçuEtat2_Click:
Exit Sub

Err_CmdAperçuEtat2_Click:
MsgBox Err.Description
Resume Exit_CmdAperçuEtat2_Click

End Sub


Mon code ne marche pas et je sais que c'est a cause des noms Liste1 et Liste2 dans le code...

Comment pourrais faire pour que le secteur affiché dans la liste déroulante Liste1 et le type de mission affiché dans la liste déroulante Liste2, soient en relation avec les champs de l'état : Secteur et Type_mission

Merci de votre aide

[Sofie109]

Sinon j'ai pensé faire d'une autre manière:

J'ai crée deux zone de texte affichant respectivement le nom du secteur selectionné dans la liste déroulante Liste1 et le nom du type de mission selectionné dans la liste déroulante Litse2

La premiere zone de texte se nomme : TxtSecteur
la seconde zone de texte se nomme : TxtTypeMission

Mon code alors s'articule de la sorte :

Private Sub CmdAperçuEtat2_Click()
On Error GoTo Err_CmdAperçuEtat2_Click

Dim stDocName As String

stDocName = "Etat"
stLinkCriteria = "[Secteur]=" & "'" & Me![TxtSecteur] & "'" And "[Type_mission]=" & " '" & Me![TxtTypeMission] & "'"
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria

Exit_CmdAperçuEtat2_Click:
Exit Sub

Err_CmdAperçuEtat2_Click:
MsgBox Err.Description
Resume Exit_CmdAperçuEtat2_Click

End Sub

Mais il me met la meme erreur que avant : Type mismatch

Dur dur dur....

[Sofie109]

C'est bon j'ai résolu mon probleme! C'était tout bête en fait!!

Voici mon code :

Private Sub CmdAperçuEtat2_Click()
On Error GoTo Err_CmdAperçuEtat2_Click

Dim stDocName As String

stDocName = "Etat"
stLinkCriteria = "[Secteur]=" & "'" & Me![TxtSecteur] & "'"
stLinkCriteria = "[Type_mission]=" & " '" & Me![TxtTypeMission] & "'"
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria

Exit_CmdAperçuEtat2_Click:
Exit Sub

Err_CmdAperçuEtat2_Click:
MsgBox Err.Description
Resume Exit_CmdAperçuEtat2_Click

End Sub

[Sofie109]

Lol a non ca marche po....