Access 2010'a yeni başladım, ekte bir örnek yolladım.
1_Bu örnekte arama kısmını yapamadım. Arama kısmına bir veya birkaç har yazınca kayıtlar arasında malzeme ismine göre yazılanlarla ilgili bir liste açılsın ona tıkladığımda ilgili kayıt gelsin istiyorum.
2_Kimlik kısmındaki sıra kayıt silmeme rağmen yukarı doğru artıyor. Üç kayıt varsa 1, 2, 3 olmasını istiyorum. Eğer birini silersem 1 ve 2 şeklinde kayıt kalmalı.


Yardımcı olursanız çok teşekkür ederim.

selam
2003 olsa idi sorularınıza cevap yazabilir idim ama 2.sorunuzun cevabı alttaki kod olabilir

arkadaşlar ekteki örnekte taruzun yaptığı telefon rehberi var burdaki arama mantığını benim malzeme referans örneğinde kullanmak istiyorum.Yardımcı olun.

2003 te kabülümdür.

2003 - 2007 olarak eklerseniz çabuk yardım alırsınız.

Sn. Taruz'un hazırlamış olduğu
Form üzerinden filtreleme
Arama örneği ve dersini incelemişmiydiniz.

Kimlik alani anahtar alan olup bu alandaki verilerin degistirilmesi bundan sonraki VT'niniza ilave edeceginiz tablolardaki iliskileri etkileyecegi icin bu alandaki verileri degistirmeyiniz.

raporda bir artan sira numara gormek istiyorsaniz. rapora ilave metin kutusu kayit kaynagina =1 yazin ve Running sum kismina over group veya over all seciniz

ARAMA --------------------------------------------------------------

VT'ninizin mevcut formdaki metin38 guncelleme olay yordamina

Private Sub Metin43_AfterUpdate()
Dim Kyt As Recordset
Set Kyt = Me.RecordsetClone
AlanType = Kyt("" & AlanAdi & "").Properties(3)
If IsNull(AlanAdi) Or AlanAdi = "" Then
MsgBox "Lutfen arama yapmak istediginiz alani cift tiklayiniz"
Else
Me.RecordsetClone.FindFirst "[" & AlanAdi & "] =" & IIf(CLng(AlanType) = 4, Null, "'") & Me.Metin43 & IIf(CLng(AlanType) = 4, Null, "'")
Me.Bookmark = Me.RecordsetClone.Bookmark
End If
Me.Etiket47.Caption = "ARAMA KISMI"
End Sub

kodu ilave edin ve form uzerindeki hangi alanda arama yaptirmak istiyorsaniz cift tiklama yordamina da

Private Sub MALZEME_ADI_DblClick(Cancel As Integer)
AlanAdi = Me.ActiveControl.Name
Me.Etiket47.Caption = "ARAMA KISMI : (" & AlanAdi & ") Alanindan yapilacak"
Me.Metin43.SetFocus
End Sub

kodunu yapistirin

en iyisi ek'teki VT'zi incelerseniz daha iyi olur.