ACCESS ~ SQL
[FORM] ACCESS FORMDA ARAMA YAPMA YARDIM. - Yazdırılabilir Sürüm

+- ACCESS ~ SQL (http://www.access-sql.com)
+-- Forum: ACCESS SORULARI VE ÖRNEK UYGULAMALARI (/Forum-ACCESS-SORULARI-VE-ORNEK-UYGULAMALARI)
+--- Forum: ACCESS SORULARI (/Forum-ACCESS-SORULARI)
+--- Konu: [FORM] ACCESS FORMDA ARAMA YAPMA YARDIM. (/Konu-ACCESS-FORMDA-ARAMA-YAPMA-YARDIM)



ACCESS FORMDA ARAMA YAPMA YARDIM. - arasson - 11-01-2017 15:29

Merhaba,

Ekteki çalışmamda kayıt formuna adına veya TC kimlik nosuna göre arama yaptırmak istiyorum ama takıldım yardımcı olabilirseniz sevinirim..

şimdiden teşekkürler.


Cvp: ACCESS FORMDA ARAMA YAPMA YARDIM. - dsezgin - 11-01-2017 17:04

Metin271, Metin273 kutulari guncelleme sonrasi olay yordamina asagida ki prosedurleri tasiyin.

Private Sub Metin271_AfterUpdate()
Me.RecordsetClone.FindFirst "[ADI] & [SOYADI] like '*" & Me.Metin271 & "*'"
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

Private Sub Metin273_AfterUpdate()
Me.RecordsetClone.FindFirst "[TCKIMLIKNO]='" & Me.Metin273 & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub


Cvp: ACCESS FORMDA ARAMA YAPMA YARDIM. - arasson - 12-01-2017 12:28

Öncelikle yardımınız için çok teşekkür ederim dsezgin83260.

Yalnız öğrencinin adını yazdığımda sadece ilk öğrenciyi buluyor fakat aynı isimle başka öğrenci bulmuyor ilk öğrencide kalıyor. Aradığım öğrenci o değilse sonraki aynı ismi nasıl buldura bilirim acaba.

teşekkürler kolay gelsin.


Cvp: ACCESS FORMDA ARAMA YAPMA YARDIM. - dsezgin - 12-01-2017 14:10

Formun VBA bolumu en bastaki satirin onune asagida ki preseduru tasiyin.
 VBA Kodu
Option Compare Database
Option Explicit
Dim Kimlikler As String
Private Sub Yuzde_hesap()


Ara butonu Komut275 olan guncelleme sonrasi olay yordamina
 VBA Kodu
Private Sub Komut275_Click()
Call Metin271_AfterUpdate
End Sub

ekleyiniz.

Metin271' asagida ki prosedurle guncelleyiniz.
 VBA Kodu
Private Sub Metin271_AfterUpdate()
Me.RecordsetClone.FindFirst "[ADI] & [SOYADI] like '*" & Me.Metin271 & "*' " & IIf(Kimlikler = "", "", " And [Kimlik] Not In(" & Kimlikler & ")")
Me.Bookmark = Me.RecordsetClone.Bookmark
Kimlikler = Kimlikler & Kimlik & ", "
If Kimlikler <> "" And DMin("Kimlik", "T_ana_tablo") = Me.Kimlik Then Me.Metin271 = "": Kimlikler = "": Me.Metin271.Format = "@;[Red]ARAMA BITTI": Me.Metin271.Requery
End Sub



Cvp: ACCESS FORMDA ARAMA YAPMA YARDIM. - arasson - 16-01-2017 11:23

Teşekkürler Sezgin bey,

çok sağ olun.

iyi çalışmalar.