Private Sub Liste3_Click()Dim umum = Me.Liste3.ListIndex Select Case umCase 0 DoCmd.OpenReport "srg_hocanin_programi"Case 1 DoCmd.OpenReport "srg_bolumun_ders_programi"Case 2 DoCmd.OpenReport "srg_derslikte_ne_var" End SelectEnd Sub