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 |
Partager