Discussion :

[Salamander24]

Bonjour à tous

Bon je m'énerve tout seul sur un tout petit truc de rien du tout et ...

J'ai le code suivant et je voudrais le rendre plus lisible avec des retours à la ligne.

Code :

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

1
2
3
4
5
SQL = "SELECT Instrument.code_instr, Instrument.num_serie_instr, Instrument.desi_instr, Instrument.period_instr, Instrument.statut_instr, Instrument.inter_temp_inf_instr, Instrument.inter_temp_sup_instr, Instrument.inter_hygro_inf_instr, Instrument.inter_hygro_sup_instr, Stock.desi_stock, Constructeur.desi_constr, Constructeur.code_constr FROM Stock INNER JOIN (Constructeur INNER JOIN (Instrument INNER JOIN [008-Recherche par attribut instrument] ON Instrument.code_instr = [008-Recherche par attribut instrument].code_instr) ON Constructeur.code_constr = Instrument.code_constr) ON Stock.code_stock = Instrument.code_stock"
 
If Me.code <> "" Or Me.Désignation <> "" Or Me.N°série <> "" Or Me.PériodeEtalonnage <> "" Or Me.StatutInstrument <> "" Or Me.Résolution <> "" Or Me.BorneInfEchelle <> "" Or Me.BorneSupEchelle <> "" Or Me.BorneInfTempérature <> "" Or Me.BorneSupTempérature <> "" Or Me.BorneInfHygro <> "" Or Me.BorneSupHygro <> "" Or Me.codeConstructeur <> "" Or Me.desiConstructeur <> "" Then
    SQL = SQL & "WHERE"
End If

Je sais que je dois utiliser le caractère "_" mais j'arrive pas à la placer correctement. Aidez moi s'il vous plait

[Jean-Philippe André]

salut,

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
SQL = "SELECT Instrument.code_instr, Instrument.num_serie_instr, " _ 
& "Instrument.desi_instr, Instrument.period_instr, Instrument.statut_instr, " _
& "Instrument.inter_temp_inf_instr, Instrument.inter_temp_sup_instr, " _
& "Instrument.inter_hygro_inf_instr, Instrument.inter_hygro_sup_instr, " _
& "Stock.desi_stock, Constructeur.desi_constr, Constructeur.code_constr " _
& "FROM Stock INNER JOIN (Constructeur INNER JOIN (Instrument INNER JOIN " _
& "[008-Recherche par attribut instrument] ON Instrument.code_instr = [008-Recherche par attribut instrument].code_instr) " _
& "ON Constructeur.code_constr = Instrument.code_constr) ON Stock.code_stock = Instrument.code_stock"
 
If Me.code <> "" Or Me.Désignation <> "" Or Me.N°série <> "" _
Or Me.PériodeEtalonnage <> "" Or Me.StatutInstrument <> "" _ 
Or Me.Résolution <> "" Or Me.BorneInfEchelle <> "" Or Me.BorneSupEchelle <> "" _
Or Me.BorneInfTempérature <> "" Or Me.BorneSupTempérature <> "" Or _
Me.BorneInfHygro <> "" Or Me.BorneSupHygro <> "" Or Me.codeConstructeur 
<> "" _
Or Me.desiConstructeur <> "" Then
    SQL = SQL & "WHERE"
End If

[Salamander24]

Yahha merci trop bien

Je clos le sujet

[philenull]

bonjour

je déterre ce topic

j'ai fait ça mais je suis en rouge aussi
avec demande d'identificateur

' déclaration des constantes et de l'aPI
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const HWND_TOPMOST = -1
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, " _
& " ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

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
' déclaration des constantes et de l'aPI
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const HWND_TOPMOST = -1
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, " _
& " ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
 
Private Sub PremierPlan(F As Form)
 ' appel de la fontion
Call SetWindowPos(F.hwnd, HWND_TOPMOST, 0&, 0&, 0&, 0&, (SWP_NOSIZE Or SWP_NOMOVE))
End Sub
 
Private Sub Form_Load()
 ' appel de la fontion au chargement de la feuille
PremierPlan Me
End Sub

oops qui c'est ce user32?
ça me dit qque chose mais je ne me souviens plus


au fait, ai-je le droit de réouvrir des sujets clos?

[madefemere]

Salut copain Phil,

Il n'est pas interdit de déterrer un sujet,mais moi je pensais que tu donnais une solution au problème initial. C'est pour cela qu'il vaut mieux ouvrir un nouveau sujet pour son problème pour être sûr que les gens vont le consulter. Parce que les bénévoles regardent plutôt ce qui n'est pas RESOLU.

Pour le cas qui t'a amené, il faudrait plutôt écrire :

Code :

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

1
2
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
 ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Parce que tu ne coupes pas un string , donc t'as pas besoin de mettre entre " et utiliser le &.
A ma connaissance, même s'il ne s'est pas présenté, "user32" fait référence à un code sous 32 bits, c'est tout.

Bonne continuation à toi.

[Christophe]

TU vas utiliser la fonction système SetWindowPos. Celle-ci est contenue dans user32.dll.

Tu lui passes les paramètres quelle attend entre parenthèses