Discussion :

[egg3774]

Bonjour,

Je me demande comment fait-on pour joindre deux champs en VBA comme en SQL.

Voici le code en SQL:

Code :

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

1
2
SELECT DISTINCTROW champ1 &" / " champ2
FROM tbl_tableA

Voici mon code en VBA:

Code :

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

1
2
3
4
5
6
7
Private Function ordre(A As String, B As String) As Integer
Dim strSQL As String
strSQL = "SELECT DISTINCTROW champ1, champ2 FROM TableA"
strSQL = strSQL & " ORDER BY  " & A & " " & B
Me!lstSearch.RowSource = strSQL
Me!lstSearch.Requery
End Function

Il veut créer le même résultat avec la troisième ligne soit "SELECT DISTINCTROW champ1, champ2 FROM TableA".

Est-ce que vous pouvez m'aider au niveau de la syntaxe à utiliser ?

Merci,
egg3774

[pc75]

Bonjour,

Désolé, mais je ne comprends pas ta question.

Par contre, il te manque une virgule dans le order by :

Code :

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

1
2
3
 
strSQL = "SELECT DISTINCTROW champ1, champ2 FROM TableA"
strSQL = strSQL & " ORDER BY  " & A & ", " & B

[egg3774]

Alors je vais mis prendre autrement.

Avec du code SQL, lorsque nous voulons faire apparaitre le contenu de deux champs dans la même zone de texte, il suffit d'entrer le code suivant (exemple):

Code :

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

1
2
SELECT DISTINCTROW champ1 &" / " champ2 As Expr1
FROM tbl_tableA

Cependant, il est plus compliquer de faire la même chose en VBA. Alors, exist-il une façon d'obtenir le même résultat en VBA ?

Merci

egg3774

[=JBO=]

Bonjour,

Avec du code SQL, lorsque nous voulons faire apparaitre le contenu de deux champs dans la même zone de texte, il suffit d'entrer le code suivant (exemple):

Code :

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

1
2
SELECT DISTINCTROW champ1 &" / " champ2 As Expr1
FROM tbl_tableA

Cependant, il est plus compliquer de faire la même chose en VBA.

Alors, exist-il une façon d'obtenir le même résultat en VBA ?

Oui, c'est quasiment la même chose:

Code vba :

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

1
2
3
4
5
6
7
8
9
Private Function ordre(A As String, B As String) As Integer
    Dim strSQL As String
 
    strSQL = "SELECT DISTINCTROW champ1 & '/' & champ2 FROM TableA "
    strSQL = strSQL & " ORDER BY [" & A & "], [" & B & "]"
 
    Me!lstSearch.RowSource = strSQL
    Me!lstSearch.Requery
End Function

En prime:
Ne sachant pas quelle est l'orthographe des champs passés en paramètre de ta fonction ordre, il vaudrait mieux se protéger de possibles caractères non standards. Pour ça, il suffit d'encadrer ces noms de champs par des crochets.

P.S. ici il faudrait dire "concaténer" (et non pas "joindre").

[egg3774]

Bonjour,


Oui, c'est quasiment la même chose:

Code vba :

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

1
2
3
4
5
6
7
8
9
Private Function ordre(A As String, B As String) As Integer
    Dim strSQL As String
 
    strSQL = "SELECT DISTINCTROW champ1 & '/' & champ2 FROM TableA "
    strSQL = strSQL & " ORDER BY [" & A & "], [" & B & "]"
 
    Me!lstSearch.RowSource = strSQL
    Me!lstSearch.Requery
End Function

En prime:
Ne sachant pas quelle est l'orthographe des champs passés en paramètre de ta fonction ordre, il vaudrait mieux se protéger de possibles caractères non standards. Pour ça, il suffit d'encadrer ces noms de champs par des crochets.

P.S. ici il faudrait dire "concaténer" (et non pas "joindre").

Un gros merci. Ca fonctionne ma concaténation