Couper une ligne de code trop longue

[siocnarf]

Bonjour,

Je souhaite couper la ligne de code suivante pour la mettre sur plusieurs lignes. Elle est réellement trop longue et c'est dur à lire.

J'ai mis un _ après ExecQuery et cela fonctionne mais je ne réussi pas à en mettre ailleurs.

Set colEvents = Q_objWMIService.ExecQuery _
    ("Select * from Win32_NTLogEvent Where Logfile = 'Application' And (Type='Avertissement' or Type='Erreur') or (Type='Informations' and EventCode='500') and TimeWritten >= '" & Q_dtmStartDate & "' and TimeWritten < '" & Q_dtmEndDate & "'")

J'ai essayé ceci mais cela ne fonctionne pas:
Set colEvents = Q_objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where Logfile = 'Application' And " _
& (Type='Avertissement' or Type='Erreur') or (Type='Informations' and EventCode='500') and " _
& TimeWritten >= '" & Q_dtmStartDate & "' and TimeWritten < '" & Q_dtmEndDate & "'")


Est-ce que quelqu'un a une idée? Y-a-t-il un nom pour le processus de mettre des _ et un URL qui l'explique?

Merci!

François

 

[jp14]

Re : Couper une ligne de code trop longue

Bonjour

Il suffit de faire comme pour la première césure, en cherchant l'endroit adéquat.

Set colEvents = Q_objWMIService.ExecQuery _
    ("Select * from Win32_NTLogEvent Where Logfile = 'Application' And (Type='Avertissement' or Type='Erreur') or (Type='Informations' and EventCode='500')_and TimeWritten >= '" _
    & Q_dtmStartDate & "' and TimeWritten < '" & _
    Q_dtmEndDate & "'")

JP

 

[jp14]

Re : Couper une ligne de code trop longue

Bonjour Jean-Marcel

Bonjour
Après essai : pas réussi, a priori il n'aime pas faire de césure entre des parenthèses .
Si c'est cela c'est une découverte pour moi 😕

Je pencherai plutôt pour une chaine de caractères du fait qu'il faut insérer un espace avant le symbole "_",

JP

 

[mromain]

Re : Couper une ligne de code trop longue

bonjour le fil,


une autre solution à tester :

Set colEvents = Q_objWMIService.ExecQuery _
    ("Select * from Win32_NTLogEvent Where Logfile = 'Application' And " _
    & [COLOR=Red][B]"[/B][/COLOR](Type='Avertissement' or Type='Erreur') or (Type='Informations' and EventCode='500') and " _
    & [COLOR=Red][B]"[/B][/COLOR]TimeWritten >= '" & Q_dtmStartDate & "' and TimeWritten < '" & Q_dtmEndDate & "'")

a+