Liste Kutusunda Süzülen Veriye Tıklayınca Form Üzerinde O Veriye Nasıl Ulaşılır.

1 2
22/10/2018, 00:34

ozanakkaya

Merhaba, form açma kodu ile ilgili daha önce bilgilendirme yapmıştım.

Liste kutusunun çift tıklandığında olayına aşağıdaki kodu yazarak deneyiniz.


DoCmd.OpenForm "F_001_MUSTERITANIMLAMA", , , "[musterinumarasi]=" & Me![MusteriListesi]
22/10/2018, 01:06

Oğuz Türkyılmaz

(22/10/2018, 00:34)ozanakkaya yazdı: Merhaba, form açma kodu ile ilgili daha önce bilgilendirme yapmıştım.

Liste kutusunun çift tıklandığında olayına aşağıdaki kodu yazarak deneyiniz.


DoCmd.OpenForm "F_001_MUSTERITANIMLAMA", , , "[musterinumarasi]=" & Me![MusteriListesi]

Ozan bey iyi geceler yanıtınız için teşekkür ederim.  Ben bütün gün neden openform komutuyla yapılamıyor da bu kadar uzun 
bir kod yazılmış acaba diye neyin ne olduğunu anlamaya çalıştım. İki kodda aynı kapıya çıkmıyormu benmi yanlış anlıyorum, neyi göremiyorum. Sn.Mehmet DEMİRAL'ın süzülen veriye tıklayınca form üzerinde o veriye gitmesi için, list1'in güncellenme sonrasına 

Dim rs As Object

Set rs = Me.Recordset.Clone

rs.FindFirst "[musterinumarasi] = " & Str(Nz(Me![MusteriListesi], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
yazarsak süper olur dediği
 
konuyla ilgili makalenizden dolayı soruyorum affınıza sığınarak. Tek satırlık basit bir kodla halledilebilen bir sonuç için yazılan bu uzun kodda diğerinden farklı olarak daha farklı neler elde edilebilir. Sadece meraktan soruyorum cevap vermesenizde olur. Ben Vba ile ilgili açıklamaları okumaya devam edeyim. İyi geceler dilerim.
22/10/2018, 02:28

ozanakkaya

Merhaba. Sizin kod liste kutusu çift tıklandığında liste kutusunun bulunduğu formda kayıt bulur. Benim eklediğim kod ise liste kutusu çift tıklandığında seçilen kayıt ile eşleşen farklı formu açtırır.
1 2