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.

[dalmasma]

Merci mais l'aide n'est pas installée

J'essaye autrement d'abord (mais ça ne veut pas marcher je sais pas pourquoi :s)

[timoth]

Je te mets l'aide de la fonction en attachment si tu en as besoin. Si tu vas vers cette solution, tu auras peut etre besoin des fonctions:

• MID: Selectionnes une partie d'un texte en specifiant a quel caractere commencer et combien de caracteres selectionner
• LEFT: Selectionne la partie gauche d'un texte, en specifiant le nombre de caracteres
• RIGHT: meme qu'au dessus avec a partie droite
• LEN : te donne le nombre de caracteres dans un texte.

Ca correspond a la suggestion de Jeannot45, de faire du traitement de chaines de caracteres. Il y a peut etre plus simple mais sans me creuser la tete, je dirais que c'est une solution.

Bon courage !

[dalmasma]

Merci pour l'aide

[AlainTech]

Merci mais l'aide n'est pas installée

Et tu comptes donc sur nous pour te servir d'aide en ligne?

Il n'est pas possible de développer sans avoir, au moins, la référence du langage utilisé.

Alors, débrouille-toi pour l'installer.
Si c'est sur un PC perso, pas de problème, l'aide est sur le CD.
Si c'est au boulot, c'est à toi d'exiger que l'aide soit installée car c'est un outil indispensable au développement.

[dalmasma]

Quand on m'a dit de regarder l'aide il ne me restait que 4 jours de stage...