Merhaba Arkadaşlar !

Su Analiz Üzerine uygulamamın sonlarına Yaklaştım ama aşamadığım ve es geçemediğim bazı problemlerim var
bunlardan ilki
aşağıda örnek eklediğim uygulamamda "Fnumara" Formundaki listesine sorgu yaptırdıktan sonra çift tıklayarak "frm_numune_grş" Formunu açıyorum fakat İstediğim kayıt açılmıyor form boş açılıyor.

Bunda "frm_numune_grs" Altformlara ve Seçenek listelerine bağlı olarak çalışması etkili sanırım.

Eğer yardımcı olabilirseniz çok memnun kalacağım
İlgilenen Arkadaşlara Şimdiden Çok teşekkürler

eklemeyi unutmuşum özür dilerim
hemen ekledim

Örneyinizi göremedim ekler misiniz lütfen

Liste8 ÇiftKlikleme olayındaki kodunuz

Dim stlinkCriteria As String

DoCmd.OpenForm "frm_numune_grs", , , stlinkCriteria

aşağıdaki şekilde olmalı. (GevrakSayi alanını kafadan attım siz eşitlenen alanın adını yazın.)

DoCmd.OpenForm "frm_numune_grs", , , "GevrakSayi=" & Me.Liste8

(02/02/2013, 04:45)Yandemir yazdı: Liste8 ÇiftKlikleme olayındaki kodunuz

Dim stlinkCriteria As String

DoCmd.OpenForm "frm_numune_grs", , , stlinkCriteria

aşağıdaki şekilde olmalı. (GevrakSayi alanını kafadan attım siz eşitlenen alanın adını yazın.)

DoCmd.OpenForm "frm_numune_grs", , , "GevrakSayi=" & Me.Liste8

Sayın murat hocam İstenilen kriteri verdirip açıyorum fakat "frm_numune_grs" formumun kayıt kaynağı sorgusu seçeneksugrup'a bağlı olduğundan istediğim kaydı açamıyorum. yani numune_grs formum biraz karışık önerinizi merakla bekiyorum.

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ü.

dediğiniz gibi çok karışık olduğundan kendi örneğimle açıklayayım
Liste kutusundaki bağlı tablonuz "tablo1" alanlarınız "ID,Ad,Soyad" olsun
çift klikleme olayında şu kodu yazarsınız

DoCmd.OpenForm "FormAdi", , , "ID=" & Me.Liste
ID ve Liste kutusunda seçilmiş eşit olanları süzer ve getirir.

"FormAdi" formunuz "tablo1" tablosuyla bağlı olmalıdır. tablonuzdaki alanlar karışık olduğu için çözüm sizde.