Double Click yoluyla ilgili kayıta gitme

[mktemel]

Merhaba Ekli örneğimde 2 adet form sayfam var bunlardan bir tanesi Table1 Ana tablo diğeri Arama bunun içinded ise ilgili kayıtların listesi var.

Amacım Arama formundaki listeden ilgili kayıta çift tıkladığımda Table1 açılarak ilgili kayıtı bulsun.

Yardımcı olcak arkadaşlara şimdiden teşekkürler.

 

[modalı]

Sanırım istediğiniz ekteki uygulama.

iyi çalışmalar :hey:

 

[mktemel]

çok teşekkür ederim yardımlarınızdan dolayı tam istediğim gibi

 

[mktemel]

Sayın Modalı;

Bu başlıkta daha önce göndermiş olduğunuz uygulamayı tekrar göndermeniz konusunda yardımlarınızı rica edeceğim. Teşekkürler.

 

[actil]

Sayın Modalı,

Bu dosyayı rica etsem banada iletebilirmisiniz.

Tşk.

 

[xorion]

Bu örnekte istediğiniz gibi doubleclick olayı mevcut hatta search formundaki order by ksımlarına tıklamınızı tavsiye ederim

 

[actil]

Merhaba,

Belirttiğniz örneği inceledim. Basit bir db yaptım. Ancak ilgili kayıda gitmek istediğimde kodlarda hata veriyor.

Run-time error 2501
----------------------------------
DoCmd.OpenForm "FrmMem", , , _
"[TblMem.KimlikID]=" & "'" & Me.ListSrch.Column(0) & "'"
----------------------------------
Sorunun tam olarak ne olduğunu anlayamadım. Bu konuda yardımcı olabilecek varsa sevinirim. Db ekte gönderiyorum.

Teşekkürler.

Mehmet

 

[modalı]

Sayın actil,Sorun çok basit, access giriş yaptığımız veri tipini ayırd edebilmesi için bazı ayraçlar kullanır. "[TblMem.KimlikID]=" & "'" & Me.ListSrch.Column(0) & "'"Şeklindeki kullanım ancak Me.ListSrch.Column(0) alanı metin biçiminde olduğunda geçerli. Sizde sayısal olduğundan ' ile ' yi kullanmamanız gerekir. Yani:"[TblMem.KimlikID]=" & Me.ListSrch.Column(0) Şeklinde olmalı.Eğer alan tarih alanı ise o zaman"[TblMem.KimlikID]=" & "#" & Me.ListSrch.Column(0) & "#"Şeklinde olmalı.iyi çalışmalar

 

[actil]

Yardımlarınız için çok teşekkürler

 

[mhmd_mhmd]

aynı sorunu bende yasıyorum, eklentiler silindiği için örnek üzerinde inceleme yapmam da mümkün olmuyor. rica etsem bu tip bir örneği tekrar ekler misiniz?

teşekkür ederim.

 

[modalı]

Sayın mhmd mhmd,

Siz kendi örneğinizi ekleyin, üstünde çalışalım.

İyi çalışmalar

 

[modalı]

Sayın mhmd mhmd,

Kod bilgim yok dediniz örneği ekleyemiyorsunuz, umarım becerebilirsiniz. Kaydı görmek istediğiniz form açık olması şartıyla:

Private Sub List1_DblClick()
Dim BulNo As Variant
Dim frm As Form
    On Error GoTo Gozardi
For Each frm In Forms
    If frm.Name = "Hareketler" Then 'Sonuçları görmek istediğiniz form adınız
        GoTo cikis
    End If
Next frm

cikis:
    BulNo = Val(Me.ListView4.SelectedItem)
    frm.RecordsetClone.FindFirst "[MST_ID]=" & Str(BulNo)  'MST_ID formda anahtar alan olan kayıt
    frm.Bookmark = frm.RecordsetClone.Bookmark
    DoCmd.OpenForm "Hareketler", , acNormal
    DoCmd.Close acForm, "FORM1"  'FORM1 yerine liste nin üstünde bulunduğu form adı
    
Exit Sub

Gozardi:
    DoCmd.Close acForm, "FORM1"


End Sub

İyi çalışmalar

 

[mhmd_mhmd]

teşekkür ederim..