arkadaslar simdi aktif arama yaptim, aktif arama yapt1ktan sonra ulastigim kayda cift tikladigimda benim kendi form umda tikladigim kayda ulasmak istiyorum. simdi asagidaki kodda TYPE MISMATCH die ilgili hata veriyo kodtaki bu hata ne olabilir...
Private Sub List2_DblClick(Cancel As Integer)
Dim rs As Object
DoCmd.OpenForm "Adresler"
Set rs = Forms!Adresler.Recordset.Clone
rs.FindFirst "[Numara] = " & Str(Nz(Me![List2], 0))
If Not rs.EOF Then Forms!Adresler.Bookmark = rs.Bookmark
DoCmd.Close acForm, Me.Name
End Sub
Private Sub List2_DblClick(Cancel As Integer)
Dim rs As Object
DoCmd.OpenForm "Adresler"
Set rs = Forms!Adresler.Recordset.Clone
rs.FindFirst "[Numara] = " & Str(Nz(Me![List2], 0))
If Not rs.EOF Then Forms!Adresler.Bookmark = rs.Bookmark
DoCmd.Close acForm, Me.Name
End Sub