29/10/2019, 23:46
Mecnun24
merhaba, anaform üzerindeki bir tuşta aşağıdaki kod yazılı. Alt formdaki verileri sıralıyor. Çalışıyordu fakat office 2019 yükleyince runtime error 7 out of memory hatası vermeye başladı. Araştırdım fakat neden olduğunu çözemedim. Yardım edebilirmisiniz.
Select Case Sirala
Case Is = "Hisse Artan"
Form_PerformansAlt.OrderBy = "HISSEM"
Case Is = "Hisse Azalan"
Form_PerformansAlt.OrderBy = "HISSEM DESC"
Case Is = "Fiyat Artan"
Form_PerformansAlt.OrderBy = "FIYAT"
Case Is = "Fiyat Azalan"
Form_PerformansAlt.OrderBy = "FIYAT DESC"
Case Is = "Günlük Artan"
Form_PerformansAlt.OrderBy = "GUNLUK"
Case Is = "Günlük Azalan"
Form_PerformansAlt.OrderBy = "GUNLUK DESC"
Case Is = "Haftalık Artan"
Form_PerformansAlt.OrderBy = "HAFTALIK"
Case Is = "Haftalık Azalan"
Form_PerformansAlt.OrderBy = "HAFTALIK DESC"
Case Is = "Aylık Artan"
Form_PerformansAlt.OrderBy = "AYLIK"
Case Is = "Aylık Azalan"
Form_PerformansAlt.OrderBy = "AYLIK DESC"
Case Is = "Yıllık Artan"
Form_PerformansAlt.OrderBy = "YILLIK"
Case Is = "Yıllık Azalan"
Form_PerformansAlt.OrderBy = "YILLIK DESC"
End Select
Select Case Sirala
Case Is = "Hisse Artan"
Form_PerformansAlt.OrderBy = "HISSEM"
Case Is = "Hisse Azalan"
Form_PerformansAlt.OrderBy = "HISSEM DESC"
Case Is = "Fiyat Artan"
Form_PerformansAlt.OrderBy = "FIYAT"
Case Is = "Fiyat Azalan"
Form_PerformansAlt.OrderBy = "FIYAT DESC"
Case Is = "Günlük Artan"
Form_PerformansAlt.OrderBy = "GUNLUK"
Case Is = "Günlük Azalan"
Form_PerformansAlt.OrderBy = "GUNLUK DESC"
Case Is = "Haftalık Artan"
Form_PerformansAlt.OrderBy = "HAFTALIK"
Case Is = "Haftalık Azalan"
Form_PerformansAlt.OrderBy = "HAFTALIK DESC"
Case Is = "Aylık Artan"
Form_PerformansAlt.OrderBy = "AYLIK"
Case Is = "Aylık Azalan"
Form_PerformansAlt.OrderBy = "AYLIK DESC"
Case Is = "Yıllık Artan"
Form_PerformansAlt.OrderBy = "YILLIK"
Case Is = "Yıllık Azalan"
Form_PerformansAlt.OrderBy = "YILLIK DESC"
End Select