Son isteğinizi bir If - ElseIf kontrolü ekleyerek yapabilirsiniz.
Kod:
Dim Bulunan_AltM2, Bulunan_UstM2, Bulunan_AltDeger, Bulunan_UstDeger
Select Case Me.SINIF
Case "1 Sınıf"
Bulunan_AltDeger = DLookup("[1_Sınıf]", "PID_SORGUSU_ALT", "[YYm/BM (m2)] <=" & Me.TOPSAYI)
Bulunan_UstDeger = DLookup("[1_Sınıf]", "PID_SORGUSU_UST", "[YYm/BM (m2)] >=" & Me.TOPSAYI)
Case "2 Sınıf"
Bulunan_AltDeger = DLookup("[2_Sınıf]", "PID_SORGUSU_ALT", "[YYm/BM (m2)] <=" & Me.TOPSAYI)
Bulunan_UstDeger = DLookup("[2_Sınıf]", "PID_SORGUSU_UST", "[YYm/BM (m2)] >=" & Me.TOPSAYI)
Case "3 Sınıf"
Bulunan_AltDeger = DLookup("[3_Sınıf]", "PID_SORGUSU_ALT", "[YYm/BM (m2)] <=" & Me.TOPSAYI)
Bulunan_UstDeger = DLookup("[3_Sınıf]", "PID_SORGUSU_UST", "[YYm/BM (m2)] >=" & Me.TOPSAYI)
Case "4 Sınıf"
Bulunan_AltDeger = DLookup("[4_Sınıf]", "PID_SORGUSU_ALT", "[YYm/BM (m2)] <=" & Me.TOPSAYI)
Bulunan_UstDeger = DLookup("[4_Sınıf]", "PID_SORGUSU_UST", "[YYm/BM (m2)] >=" & Me.TOPSAYI)
Case "5 Sınıf"
Bulunan_AltDeger = DLookup("[5_Sınıf]", "PID_SORGUSU_ALT", "[YYm/BM (m2)] <=" & Me.TOPSAYI)
Bulunan_UstDeger = DLookup("[5_Sınıf]", "PID_SORGUSU_UST", "[YYm/BM (m2)] >=" & Me.TOPSAYI)
End Select
Bulunan_AltM2 = DLookup("[YYm/BM (m2)]", "PID_SORGUSU_ALT", "[YYm/BM (m2)] <=" & Me.TOPSAYI)
Bulunan_UstM2 = DLookup("[YYm/BM (m2)]", "PID_SORGUSU_UST", "[YYm/BM (m2)] >=" & Me.TOPSAYI)
If Bulunan_UstM2 <= 500 Then
Me.Deger = Bulunan_UstDeger
Bulunan_AltDeger = Bulunan_UstDeger
Bulunan_AltM2 = Bulunan_UstM2
ElseIf Bulunan_AltM2 >= 80000 Then
Me.Deger = Bulunan_AltDeger
Bulunan_UstDeger = Bulunan_AltDeger
Bulunan_UstM2 = Bulunan_AltM2
Else
Me.Deger = ((Bulunan_UstDeger - Bulunan_AltDeger) / (Bulunan_UstM2 - Bulunan_AltM2)) * (Me.TOPSAYI - Bulunan_AltM2) + Bulunan_AltDeger
End If
Me.AltDeger = Bulunan_AltDeger
Me.UstDeger = Bulunan_UstDeger
Me.AltM2 = Bulunan_AltM2
Me.UstM2 = Bulunan_UstM2