[FORM] 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.

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

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.

dsezgin · 12-01-2017, 14:10

Formun VBA bolumu en bastaki satirin onune asagida ki preseduru tasiyin.

Visual Basic
Option Compare Database
Option Explicit
Dim Kimlikler As String
Private Sub Yuzde_hesap()

Ara butonu Komut275 olan guncelleme sonrasi olay yordamina

Visual Basic
Private Sub Komut275_Click()
Call Metin271_AfterUpdate
End Sub

ekleyiniz.

Metin271' asagida ki prosedurle guncelleyiniz.

Visual Basic
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

arasson · 16-01-2017, 11:23

Teşekkürler Sezgin bey,

çok sağ olun.

iyi çalışmalar.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Access Kayıt Yapma	kertiller_55	1	215	29-09-2025, 21:15 Son Mesaj: dsezgin
	[VBA] Access 2016 Accdb Dosyasını Vba Komutu Ile Sıkıştır Ve Onar Için Yardım	abkbek	2	504	10-08-2024, 18:16 Son Mesaj: abkbek
	[VBA] Metin Içerisindeki Kelimeler Ile Arama Yapma	ekremer1969	6	1.329	22-06-2024, 16:15 Son Mesaj: dsezgin
	[FORM] Arama Sorunu	Pasham	0	374	08-04-2024, 14:32 Son Mesaj: Pasham
	[SORGU] Iki Tablo Arasında Sorgu Ile Güncelleme Yapma	yahyamacit	2	465	10-11-2023, 13:22 Son Mesaj: yahyamacit
	Liste Arama Kutusundan Kayıt Silme	CarpeDiem	12	861	21-07-2023, 10:31 Son Mesaj: onur_can
	[FORM] Forma Arama Ekleyemedim :(	finishim	16	1.132	16-05-2023, 12:44 Son Mesaj: finishim
	Altformda Hücre Ile Değil Satır Ile Işlem Yapma Hakkında.	OGUZTURKYILMAZ	1	450	22-04-2023, 23:48 Son Mesaj: OGUZTURKYILMAZ

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL