Discussion :

[dalmasma]

Bonjour,

j'ai un critère de recherche qui évolue selon les checkBox que je coche (c'est à dire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
If Nz(Me.chk_hyd, 0) Then
    SQL = SQL & "WHERE [EquipmentTypes]![EquipmentType] = 'HYD'"
End If
 
 
If Nz(Me.chk_el, 0) Then
    If Nz(Me.chk_hyd, 0) Then
    SQL = SQL & "'-EL'"
    Else
    SQL = SQL & "WHERE [EquipmentTypes]![EquipmentType] = 'EL'"
    End If
End If

Mais il faut que ce qu'il y a dans le second membre de l'égalité soit encadré par des ' ' or problème :

Lors du

Code :

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

1
2
3
If Nz(Me.chk_el, 0) Then
    If Nz(Me.chk_hyd, 0) Then
    SQL = SQL & "'-EL'"

le second membre est : 'HYD''-EL' ( avec '' = 2 ' collés) et il me faudrait 'HYD-EL'

Donc je pense faire une fonction (parce qu'il n'ya pas que ce cas là, il me faut du générique) ayant pour paramètre la chaine SQL et le truc à ajouter. Cette fonction enleverait le '" de la chaine SQL et le ' du truc à ajouter et les collerait.

Comment faire ça?

Merci

[Jeannot45]

Salut Matt,

tu peux utiliser les fonctions de traitement de chaines

ainsi
ton second cas pourrait s' écrire

Code :

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

SQL = left(SQL,Len(SQL)-1) & "-EL'"

A+

Jeannot

[dalmasma]

Merci

Dsl je viens de me rendre compte qu'il y a plus simple

[Jeannot45]

Re,

Peux nous indiquer ta solution

Merci

Jeannot

[dalmasma]

Ca roule, mais je sais pas si ça marchera dans tous les cas où on voudrait faire ce à quoi la fonction que je voulais créer sert.

Pour cela j'vais expliquer dans quel cas ça devait me servir:

Dans ma table EquipmentType j'ai des enregistrements du type :
HYD
HYD-EL
HYD-EL-INH
EL
EL-INH
etc avec toutes les combinaisons ordonnées possibles, s'il y a HYD-EL il n'y aura pas EL-HYD (j'ai 6 éléments distincts plus le cas où ya rien ce qui me donne 23 combinaisons)

Je fais une requête pour trouver cet enregistrement en fonction de checkbox

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
If Nz(Me.chk_hyd,0) Then ' si la HYD est coché alors je vais chercher l'enregistrement HYD
    SQL = SQL & "WHERE [EquipmentTypes]![EquipmentType] = 'HYD'"
End If
 
If Nz(Me.chk_el,0) Then ' si EL est coché  alors 
    If Nz(Me.chk_hyd,0) Then ' soit HYD est coché aussi 
    SQL = SQL & " & '-EL'" ' et dans ce cas je vais chercher HYD-EL
    Else ' soit HYD n'est pas coché et je vais chercher EL
    SQL = SQL & "WHERE [EquipmentTypes]![EquipmentType] = 'EL'"
    End If
End If
 
If Nz(Me.chk_inh,0) Then
    If Nz(Me.chk_hyd,0) Or Nz(Me.chk_el,0) Then
    SQL = SQL & " & '-INH'"
    Else
    SQL = SQL & "WHERE [EquipmentTypes]![EquipmentType] = 'INH'"
    End If
End If
 
If Nz(Me.chk_ch,0) Then
    If Nz(Me.chk_hyd,0) Or Nz(Me.chk_el,0) Or Nz(Me.chk_inh,0) Then
    SQL = SQL & " & '-CH'"
    Else
    SQL = SQL & "WHERE [EquipmentTypes]![EquipmentType] = 'HYD'"
    End If
End If
 
If Nz(Me.chk_gl,0) Then
    If Nz(Me.chk_hyd,0) Or Nz(Me.chk_el,0) Or nz(Me.chk_inh,0) Or Nz(Me.chk_ch,0) Then
    SQL = SQL & " & '-GL'"
    Else
    SQL = SQL & "WHERE [EquipmentTypes]![EquipmentType] = 'GL'"
    End If
End If
 
If Nz(Me.chk_sp,0) Then
    If Nz(Me.chk_hyd,0) Or Nz(Me.chk_el,0) Or Nz(Me.chk_inh,0) Or Nz(Me.chk_ch,0) Or Nz(Me.chk_gl,0) Then
    SQL = SQL & " & '-SP'"
    Else
    SQL = SQL & "WHERE [EquipmentTypes]![EquipmentType] = 'SP'"
    End If
End If

En fait je avais mis

Code :

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

SQL = SQL & "'blahblah'"

au lieu de

Code :

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

SQL = SQL & " & 'blahblah'"

[timoth]

Regarde aussi si tu as toujours des soucis la finction Instr pour localiser le "=" et changer ce qu'il y a apres.
Je pense qu'il doit y avoir des tas de solutions en se creusant un peu la tete...

Oublie pas le "Resolu" si tu as trouvé une réponse.