liste kutusundan form açmak

1 2
30/01/2013, 12:34

metehan16

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
30/01/2013, 12:37

QATLET

Örneyinizi göremedim ekler misiniz lütfen
02/02/2013, 04:45

Yandemir

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
03/02/2013, 01:52

metehan16

(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.
03/02/2013, 18:18

metehan16

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ü.
03/02/2013, 18:23

Yandemir

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.
1 2