Discussion :

[kgb1917]

Bonjour,

Sur ce code sur l’évènement Open d’un formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim n As Long
    Dim ctl As Control
    Dim sql As String
        If Not Nz(Me.OpenArgs, "") = "" Then
            n = CLng(Me.OpenArgs)
            sql = "SELECT Id, [Champ1] & ' ' & [Champ2] AS Expr1 FROM Tbl1 WHERE Id = ' & n & ' ORDER BY [Champ1] & ' ' & [Champ2];"
            Me.MaZdLMod.RowSource = sql
            Me.MaZdLMod.DefaultValue = MaZdLMod.ItemData(0)
        Else
            Me.MaZdLMod.RowSource = "SELECT Id, [Champ1] & ' ' & [Champ2] AS Expr1 FROM Tbl1 ORDER BY [Champ1] & ' ' & [Champ2];"
        End If

J’ai un message d’erreur indiquant que MaZdLMod.ItemData(0) est Null. Le problème intervient quand je concatène 2 champs dans le sql. Si je fais :

Code :

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

sql = "SELECT Id, Champ1, Champ2 FROM Tbl1 WHERE Id = ' & n & ' ORDER BY Champ1;"

ça fonctionne sans problème.

Auriez-vous un conseil pour que la concaténation soit prise en compte dans le sql ? L’objectif étant que s’il y a un argument passé à l’ouverture du formulaire, il n’y ait qu’un seul enregistrement en source de MaZdLMod et que celui-ci soit directement affiché dans MaZdLMod.

Merci par avance

[Lou Pitchoun]

Salut,

Code :

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

1
2
3
4
5
sql = "SELECT Id, [Champ1]" & " " & "[Champ2] AS Expr1 FROM Tbl1 WHERE Id =" & n & "ORDER BY [Champ1]" & " " & "[Champ2];"
Me.MaZdLMod.RowSource = sql
Me.MaZdLMod.DefaultValue = MaZdLMod.ItemData(0)
Else
Me.MaZdLMod.RowSource = "SELECT Id, [Champ1]" & " " & "[Champ2] AS Expr1 FROM Tbl1 ORDER BY [Champ1]" & " " & "[Champ2];"

[kgb1917]

Re,

Malheureusement, ça ne change rien. Dans VBE, au survol de Me.MaZdLMod.DefaultValue j'ai "" et au survol de MaZdLMod.ItemData(0), j'ai Null.
Pourtant, je teste dans le qbe ce que revoit sql et j'ai bien l'enregistrement voulu.

Où est l'erreur ?
Merci pour ton aide Kikof

[Lou Pitchoun]

J'ai oublié la concaténation

Code :

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

1
2
3
4
5
sql = "SELECT Id, [Champ1] & " & Chr(34) & " " & Chr(34) & " & [Champ2] AS Expr1 FROM Tbl1 WHERE Id =" & n & "ORDER BY [Champ1& " & Chr(34) & " " & Chr(34) & " & [Champ2];"
Me.MaZdLMod.RowSource = sql
Me.MaZdLMod.DefaultValue = MaZdLMod.ItemData(0)
Else
Me.MaZdLMod.RowSource = "SELECT Id, [Champ1] & " & Chr(34) & " " & Chr(34) & " & [Champ2] AS Expr1 FROM Tbl1 ORDER BY [Champ1] & " & Chr(34) & " " & Chr(34) & " & [Champ2];"

[kgb1917]

Re,

ça fonctionne. merci bcp. Pour info, peux tu m'expliquer l'utilisation de Chr(34) dans le sql stp ?

[Lou Pitchoun]

chr(34) correspond à "

Quand tu écris une chaine SQL dans du VBA, tu ne peux pas la coller telle que tu l'as conçu en mode création de requête.

Code :

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

SQL = "SELECT champ FROM Table WHERE champ = "Ma valeur""

Ceci ne fonctionnera pas.
Ma valeur sera lue comme une variable et va générer une erreur car pas de déclaration ou encore parce qu'il y a un espace entre les 2 mots.
Il faut donc remplacer les quotes encadrant Ma Valeur pour que la chaine SQL puisse être lu correctement.

Certains doublent les quotes, moi j'utilise Chr(34) : je trouve que c'est plus lisible de lire " & Chr(34) & " que """.

Pense à cliquer sur

[kgb1917]

Re,

Merci Kikof pour ton aide et les explications.