Discussion :

[La Peonne]

Bonjour à toutes et à tous !
Je suis actuellement en stage et dois mettre en place un base de donnée que j'aimerai compléter d'un formulaire de recherche multicritère. Malheureusement mes connaissances Access sont limitée et mais je me suis appuyée sur des tutoriels pour avancer dans mon projet.

A l'heure d'aujourd'hui je me retrouve bloquée.
Je m'explique :

J'ai une table : T_DepEurope
composée de

• ID

• Date_RCF1

• Stock_8jours

• Dlpa

• Rép_CDE

• No_attente

• No_camion

• Date_OI

• Pays

• Semaine

• Numref

Et dont j'aimerais pouvoir effectuer des recherches en fonction du Pays et de la Semaine.
J'ai donc suivie un tutoriel trouvé sur le net, cependant je me trouve devant un mur puisqu'une partie du code est en SQL et que je n'y comprends même pas la moitié du code

Voici l'infâme ! :

Code sql :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT Pays , Semaine" & "FROM T_DepEurope" & "where T_DepEurope!ID <> 0;"
 
    SQL = SQL & "And T_DepEurope.Sem = '" & Me.cmbSem & "' "
    SQL = SQL & "And T_DepEurope.Pays = '" & Me.cmbPays & "' "
 
SQL = SQL & ";"
Me.lblStats.Caption = DCount("*", "T_DepEurope", SQLWhere) / DCount("*", "T_DepEurope", SQLWhere)
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
 
End Sub

J'ai effectuée quelques modifications par rapport au tutoriel pour essayer d'avancer mais sans grand succès, c'est pourquoi je me tourne vers vous en quête d'aide. ^^

[zoom61]

Salut,

As-tu regardé ce tuto ou cette Question/Réponse ?

@+.

[La Peonne]

Suis-je obligée de passer par une requête ?

[zoom61]

Salut,

Ces lignes sont équivalentes à une requête :

Code :

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

1
2
3
4
5
6
7
SQL = "SELECT Pays , Semaine" & "FROM T_DepEurope" & "where T_DepEurope!ID <> 0;"
 
    SQL = SQL & "And T_DepEurope.Sem = '" & Me.cmbSem & "' "
    SQL = SQL & "And T_DepEurope.Pays = '" & Me.cmbPays & "' "
 
SQL = SQL & ";"
Me.lblStats.Caption = DCount("*", "T_DepEurope", SQLWhere) / DCount("*", "T_DepEurope", SQLWhere)

Donc, oui tu passes pas une requête

@+.

[La Peonne]

J'ai donc commencée à appliquer le tutoriel et je rencontre l'erreur suivante :

Et le débogage m'indique cette ligne :

Code :

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

 If Me.chkSem Then

Cependant ce bouton à bascule est bien nommé et ne devrait pas poser de problème, je ne comprends pas à quoi est liée l'erreur...
Je joins le code pour que vous ayez une vision plus globale

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
18
19
20
21
Private Sub RefreshQuery()
 Dim SQL As String
 Dim SQLWhere As String
 
 SQL = "SELECT Pays , Semaine FROM T_DepEurope Where T_DepEurope!ID <> 0 "
 
 If Me.chkPays Then
    SQL = SQL & "And t_DepMarseille!Pays = '" & Me.cmbPays & "' "
 End If
 If Me.chkSem Then
    SQL = SQL & "And t_DepMarseille!Semaine = '" & Me.cmbSem & "' "
 End If
 
 SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 SQL = SQL & ";"
 
 Me.lblStats.Caption = DCount("*", "t_DepMarseille", SQLWhere) & " / " & DCount("*", "t_DepMarseille")
 Me.lstResults.RowSource = SQL
 Me.lstResults.Requery
 
End Sub