evet arkadaşlar sonunda problemi çözdüm. biraz karışık oldu ama çözdüm. bana önerileriyle yardımda bulunan ufuk abi (POWER) ve cvp yazıp ilgilenen murat hocama ve tüm arkadaşlara teşekkür ederim.

nasıl çözdüğüme gelince :
listenin doubleclick olayına

Private Sub Liste8_DblClick(Cancel As Integer)



Dim stlinkCriteria As String

stlinkCriteria = "[idgelenevrak]=" & Me.Liste8.Column(1)

DoCmd.OpenForm "frm_numune_grs", , , stlinkCriteria



End Sub

ve numune_grs formun yüklendi kısmına

If SysCmd(acSysCmdGetObjectState, acForm, "Fnumara") <> 0 Then

    Select Case Me.scnksugrup

    

    Case Is = 1, 4

    Me.frm_icmekullan_alt.Visible = True

    Me.frm_kaynak_alt.Visible = False

    Me.frm_havuz_alt.Visible = False

    Me.frm_Munferit.Visible = False

    Me.frm_icmekullan_alt.Requery

    

    Case Is = 2, 6

    Me.frm_icmekullan_alt.Visible = False

    Me.frm_kaynak_alt.Visible = True

    Me.frm_havuz_alt.Visible = False

    Me.frm_Munferit.Visible = False

    Me.frm_kaynak_alt.Requery

    

    Case Is = 3

    Me.frm_icmekullan_alt.Visible = False

    Me.frm_kaynak_alt.Visible = False

    Me.frm_havuz_alt.Visible = True

    Me.frm_Munferit.Visible = False

    Me.frm_havuz_alt.Requery

    

    Case Is = 5

    Me.frm_icmekullan_alt.Visible = False

    Me.frm_kaynak_alt.Visible = False

    Me.frm_havuz_alt.Visible = False

    Me.frm_Munferit.Visible = True

    Me.frm_Munferit.Requery

    

    Case Else

    Me.frm_icmekullan_alt.Visible = False

    Me.frm_kaynak_alt.Visible = False

    Me.frm_havuz_alt.Visible = False

    Me.frm_Munferit.Visible = False

    

       

    End Select

  

   

Else

kodunu ekledikten sonra
frm_numune_grs seçenek grubunun varsayılan değerine [Fnumara]![liste8] değerini verdim ve olay çözüldü.