AccessTr.neT

Bul · 07/07/2011, 12:35

Değerli Üstadlarım,

Form2 de ve Form1 listbox daki kayıtları seçilince forma getirilmesi

arama yaptıktan sonra çift tıklama ile o kayıtların getirilmesi talep ediyorum.
Yardımcı olursanız sevinirim.

Bul · 07/07/2011, 12:46

form2 deki liste kutusunun çift tıklanıldığında yordamına;

Private Sub Liste0_DblClick(Cancel As Integer)

acilacakForm = "form1"

    

    hangiKriter = "[Kimlik]=" & Me![Liste0]

    

    DoCmd.OpenForm acilacakForm, , , hangiKriter

    DoCmd.Close acForm, "form2"

End Sub

kodunu ekleyin

Bul · 07/07/2011, 12:59

form1 deki liste kutusunun çift tıklanıldığında yordamıda şu şekilde olacak;

Private Sub Liste133_DblClick(Cancel As Integer)

   Dim rs As Object



    Set rs = Me.Recordset.Clone

    rs.FindFirst "[Kimlik] = " & Str(Nz(Me![Liste133], 0))

    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

Bul · 07/07/2011, 13:05

Açmış olduğunuz 2 aynı konuyu birleştirdim.

Bul · 07/07/2011, 13:39

Sayın Coşkun Bey,

cevabınız için çok tşk ederim. Elinize sağlık.

Konun 2 kere açılması sayfa hatası verdiği içindir. Onun içinde ayrıca teşekür ederim.

AccessTr.neT

Forma Kayıt Getirilmesi

Forma Kayıt Getirilmesi

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri