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.
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
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
Açmış olduğunuz 2 aynı konuyu birleştirdim.
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.