[AC-2007] Filtre suivant l'utilisateur avec "stLinkCriteria"

[YDind]

Bonjour à tous,

Je cherche à pouvoir filtrer les enregistrements d'un formulaire suivant l'utilisateur connecté à la base.

En détails, j'ai un formulaire permettant de faire une recherche multi-critères en utilisant une procédure événementielle "stLinkCriteria" décrite ci-dessous.

J'aimerais ajouter un critère du style:

Code :

1
2
3
If user is "YDind" (pour prendre en exemple mon username à moi) Then
stLinkCriteria = stLinkCriteria & " AND [Aircraft] = "HB-JRS" OR "HB-JIH"
End If

J'espère a voir réussi à etre clair....


Merci pour votre aide


Yannick



CODE Actuel:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Private Sub Bouton_Search_Click()
On Error GoTo Err_Bouton_Search_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Work_Report_and_Release_to_Service"
 
    stLinkCriteria = "[Control my Reference]=" & "'" & Me![Control my Reference] & "'"
 
 
    If Not IsNull(Me.Search_by_PO_Number) And Me.Search_by_PO_Number <> "" Then
stLinkCriteria = stLinkCriteria & " AND [PO_Number] LIKE '*" & Me![Search_by_PO_Number] & "*'"
End If
 
If Not IsNull(Me.Search_by_Work_Done) And Me.Search_by_Work_Done <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Detail of Work Done] LIKE '*" & Me![Search_by_Work_Done] & "*'"
End If
 
If Not IsNull(Me.Search_by_Work_Done_2) And Me.Search_by_Work_Done_2 <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Detail of Work Done] LIKE '*" & Me![Search_by_Work_Done_2] & "*'"
End If
 
If Not IsNull(Me.Search_by_Aircraft) And Me.Search_by_Aircraft <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Aircraft] = '" & Me![Search_by_Aircraft] & "'"
End If
 
If Not IsNull(Me.Search_by_Maintenance_Center) And Me.Search_by_Maintenance_Center <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Maintenance Center] = '" & Me![Search_by_Maintenance_Center] & "'"
End If
 
 
If Not IsNull(Me.Search_by_Date_1) And Me.Search_by_Date_1 <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Finish date] >= #" & Format(Me.[Search_by_Date_1], "yyyy/mm/dd") & "#"
End If
 
If Not IsNull(Me.Search_by_Date_2) And Me.Search_by_Date_2 <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Finish date] <= #" & Format(Me.[Search_by_Date_2], "yyyy/mm/dd") & "#"
End If
 
If Not IsNull(Me.Search_by_Work_Report_Number) And Me.Search_by_Work_Report_Number <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Work Report Number] LIKE '*" & Me![Search_by_Work_Report_Number] & "*'"
End If
 
 
If Not IsNull(Me.Search_Carry_Forward) And Me.Search_Carry_Forward <> "" Then
stLinkCriteria = stLinkCriteria & " AND [Carry Forward Item ?] = '" & Me![Search_Carry_Forward] & "'"
End If
 
 
DoCmd.Close
 
 
DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Bouton_Search_Click:
    Exit Sub
 
Err_Bouton_Search_Click:
    MsgBox Err.Description
    Resume Exit_Bouton_Search_Click
 
End Sub

[helas]

Bonjour,
pour la syntaxe

Code :

1
2
stLinkCriteria = stLinkCriteria & " AND [Aircraft] = ""HB-JRS"" OR ""HB-JIH"" "

il faut doubler les guillemets pour le texte

[YDind]

Merci pour votre réponse Helas

Mais mon problème se situe au niveau du "user"

Est-ce possible de rajouter une condition qui prend en compte le user qui est connecté à la base ?

Si oui, quel est le code


Merci d'avance


Yannick

[helas]

triple guillemets pour du texte

Code :

1
2
 
AND [user] = """ & Environ("USERNAME") & """

[YDind]

Merci Helas pour ces réponses rapides

Mais je n'arrive toujours pas à mes fins

J'ai donc rajouté le critère suivant:

Code :

1
2
3
If "" & Environ("USERNAME") & "" = "ydind" Then
stLinkCriteria = stLinkCriteria & " AND [CrewName] = ""GCA"" OR ""YAN"" "
End If

Mais cela ne change absolument rien au filtre des enregistrements.

Si j'enlève le OR ""YAN"" "

Seuls les enregistrements avec le [CrewName] GCA apparaissent mais ceci pour tous les utilisateurs de la base, et pas seulement pour le user "ydind" comme souhaité...

[helas]

Bonsoir,
L'exemple que je donne est inclus dans le code SQL
Dans le cas ci-dessous

Code :

1
2
 
If "" & Environ("USERNAME") & "" = "ydind" Then

il faut écrire

Code :

1
2
 
If  Environ("USERNAME") = "ydind" Then

[YDind]

Bonjour,

Je m'excuse, cela fonctionne parfaitement. Mais en fait suivant le username de la session windows, et non pas le username de l'utilisateur de la base access

Le seul truc qui ne fonctionne pas c'est la condition "OR". Si je l'ajoute, le filtre ne fonctionne plus et tous les enregistrements sont montrés.

Code :

1
2
3
If "" & Environ("USERNAME") & "" = "YDind" Then
stLinkCriteria = stLinkCriteria & " AND [CrewName] = ""GCA"" Or ""MOR"""
End If

J'ai essayé de modifier la condition comme suit, mais cela me fait un message d'erreur d'incompatibilité

Code :

1
2
3
If "" & Environ("USERNAME") & "" = "JSagot" Then
stLinkCriteria = stLinkCriteria & " AND [CrewName] = ""GCA""" Or stLinkCriteria = stLinkCriteria & " AND [CrewName] = ""MOR"""
End If

[YDind]

Bonjour à tous,

Est-ce que quelqu'un aurait la formule magique pour finaliser la solution à mon problème ?

Grace à Helas, j'ai pu quasiment résoudre mon problème, il me manque juste la façon d'ajouter cette condition "OR"

Merci :-)