Sorgudaki alana IIF ile 15 adet koşul belirtmek yerine

modüle aşağıdaki kodu ekle

Function VeriBul(Alan As String) As String





Select Case True

    Case Alan = 1

        VeriBul = "Veri 1"

    Case Alan = 2

        VeriBul = "Veri 2"

    Case Alan = 3

        VeriBul = "Veri 3"

    Case Alan = 4

        VeriBul = "Veri 4"

    Case Alan = 5

        VeriBul = "Veri 5"

    Case Alan = 6

        VeriBul = "Veri 6"

    Case Alan = 7

        VeriBul = "Veri 7"

    Case Alan = 8

        VeriBul = "Veri 8"

    Case Alan = 9

        VeriBul = "Veri 9"

    Case Alan = 10

        VeriBul = "Veri 10"

    Case Alan = 11

        VeriBul = "Veri 11"

    Case Alan = 12

        VeriBul = "Veri 12"

    Case Alan = 13

        VeriBul = "Veri 13"

    Case Alan = 14

        VeriBul = "Veri 14"

    Case Alan = 15

        VeriBul = "Veri 15"

    Case Else

        VeriBul = "Veri Tanımsız"

End Select

End Function

modülü kaydet, sorguda boş sütuna 

Deger: VeriBul([ek_ahlatder_uye_profil])

kodu ekle. 

Bu şekilde, modülde case'e tanımladığın veriye göre sorgudaki Deger alanına ilgili veriyi yazar. Uzun uzun IIF veya Switch kodu yazmak veya alan isimlerini kısaltmak zorunda kalmazsın.