Private Sub RefreshQueryV()
Dim SQLV As String
Dim p, h, m, r As String
Dim var1, var2, var3, var4 As String
If Len(Me.[Liste37]) > 0 Then
var4 = " AND"
r = " references!Rendement = '" & Me.[Liste37] & "'" & " "
Else
var4 = ""
r = ""
End If
If Len(Me.[Liste29]) > 0 Then
var3 = " AND"
m = " references!Montage = '" & Me.[Liste29] & "'" & " "
Else
var3 = ""
m = ""
End If
If Len(Me.[Liste8]) > 0 Then
var2 = " AND"
h = " references!Hauteur_axe = '" & Me.[Liste8] & "'" & " "
Else
var2 = ""
h = ""
End If
If Len(Me.[Liste0]) > 0 Then
var1 = "WHERE"
p = " references!Puissance = '" & Me.[Liste0] & "'"
Else
var1 = ""
p = ""
If Len(Me.Liste8) > 0 Then
var2 = "WHERE"
Else
If Len(Me.Liste29) > 0 Then
var3 = "WHERE"
Else
If Len(Me.Liste37) > 0 Then
var4 = "WHERE"
End If
End If
End If
End If
SQLV = "SELECT DISTINCT Vitesse FROM references " & var1 & p & var2 & h & var3 & m & var4 & r
SQLV = SQLV & ";"
Me.Liste4.RowSource = SQLV
Me.Liste4.Requery
End Sub
Partager