1 2 3 4 5 6 7 8 9 10 11 12 13
|
If InStr(rsChamps.Fields(Boucle).Name, "-") <> 0 Then
If Me.txt_Montant.Value < Left(rsChamps.Fields(Boucle).Name, InStr(rsChamps.Fields(Boucle).Name, "-") - 1) And Me.txt_Montant.Value > Mid(rsChamps.Fields(Boucle).Name, InStr(rsChamps.Fields(Boucle).Name, "-") + 1) Then
MsgBox Me.txt_Montant.Value & " > " & Mid(rsChamps.Fields(Boucle).Name, InStr(rsChamps.Fields(Boucle).Name, "-") + 1) & " et " & Me.txt_Montant.Value & " < " & Left(rsChamps.Fields(Boucle).Name, InStr(rsChamps.Fields(Boucle).Name, "-") - 1)
End If
Else
If Me.txt_Montant.Value < rsChamps.Fields(Boucle).Name And Me.txt_Montant.Value > Mid(rsChamps.Fields(Boucle).Name, InStr(rsChamps.Fields(Boucle).Name, "-") + 1) Then
MsgBox Me.txt_Montant.Value & " > " & Mid(rsChamps.Fields(Boucle).Name, InStr(rsChamps.Fields(Boucle).Name, "-") + 1) & " et " & Me.txt_Montant.Value & " < " & rsChamps.Fields(Boucle).Name
End If
End If
If Me.txt_Montant.Value < Mid(rsChamps.Fields(Boucle).Name, InStr(rsChamps.Fields(Boucle).Name, "-") + 1) Then
MsgBox Me.txt_Montant.Value & " < " & Mid(rsChamps.Fields(Boucle).Name, InStr(rsChamps.Fields(Boucle).Name, "-") + 1)
End If |
Partager