Arama Yaptim fakat...

[cagdasgun]

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

 

[gulsum1]

formun açılışına koyacanki liste kutusu açılşta boş gelmesin
Dim strSQL As String
strSQL = "SELECT [PERSONEL].[PERSONEL NO], [PERSONEL].[ADI SOYADI] FROM PERSONEL ORDER BY PERSONEL.[ADI SOYADI]; "
Me!Liste12.RowSource = strSQL

ekle activexden textbox ekle onun değişme olayına bu yazdığın harflere göre liste kutusuna kişilere getirecek
Private Sub TextBox7_Updated(Code As Integer)
Dim txtSearchString As Variant
Dim strSQL As String

txtSearchString = Me![TextBox7]

If Not IsNull(Me![TextBox7]) Then
strSQL = "SELECT [PERSONEL].[PERSONEL NO],[PERSONEL].[ADI SOYADI] FROM [PERSONEL] "
strSQL = strSQL & "WHERE (([PERSONEL].[ADI SOYADI]) Like '" & txtSearchString & "*') "

End If

Me!Liste12.RowSource = strSQL
End Sub

buda liste kutusundan seçtiğin kaydı bulma kodu
Private Sub Liste12_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[PERSONEL NO] = " & Str(Nz(Me![Liste12], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub