süzme yapmadan veri bulma

[celoaga]

afterupdate ile bir kutuya yazdığımız veriyi buldurabilir miyiz.form filtresi kullanmadan yapabilir miyiz, ayrıntısı ekte var. şimdiden teşekkürler.. .

 

[Taruz]

Merhaba..

2007 de var mı bilmiyorum ama 2003 sürümünde formun üzerine Araç Kutusundan yeni bir Açılan Kutu eklemek istediğinizde karşınıza gelen sihirbazda "seçtiğim değere ait kaydı bul" mealinde bir seçenek var.. Seçip, yönergeleri takip ederseniz istediğiniz özelliği denetime katmış olursunuz..

Sizin metin kutunuz için geçerli olan kod..:

Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[id] = " & Str(Nz(Me![[COLOR=red]Metin7[/COLOR]], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

 

[beab05]

2007'de de var

 

[adnanyurdakul]

metin 7 i combo box ile değiştirdikten sonra after update ine
Private Sub Metin7_AfterUpdate()
Dim sql As String
sql = "Select * from tablo1 where id= " & Form_Tablo1.Metin7 & ""
Forms!Tablo1.RecordSource = sql
End Sub
yazın
tabii combobox ın özelliklerini ayarlayacaksınız.

 

[Taruz]

metin 7 i combo box ile değiştirdikten sonra after update ine
Private Sub Metin7_AfterUpdate()
Dim sql As String
sql = "Select * from tablo1 where id= " & Form_Tablo1.Metin7 & ""
Forms!Tablo1.RecordSource = sql
End Sub
yazın
tabii combobox ın özelliklerini ayarlayacaksınız.

Merhaba..

Sn. adnanyurdakul,

siz soruyu yanlış değerlendirdiniz sanırım.. Önerdiğiniz yol süzme yaparak kaydı verir..

 

[celoaga]

tesekkurler sayin TARUZ. sizin nickiniz TARUZ degil HIZIR olmaliymis