Aramada Hep Aynı Veriler Geliyor

ankaram · 14-11-2023, 16:16

Slm arkadaşlar arama yaparken hep aynı isimler geliyor. Birde tarihe göre aramada da aynı veriler geliyor. Yazdığım tarih gelmiyor. Teşekkürler

dsezgin · 14-11-2023, 17:35

Visual Basic
Private Sub Komut23_Click()
Dim Kayit As Recordset
Set Kayit = Me.RecordsetClone
Cvp = InputBox("İsmi Giriniz", "ARAMA", "")
Kayit.FindFirst "[Adı Soyadı] Like '*" & [Cvp] & "*'"
Me.Bookmark = Kayit.Bookmark
If Kayit.NoMatch Then MsgBox "Kayıt Bulunamadı"
End Sub

Komut23 tıklama olayına, yukarıdaki prosedürü taşıyınız.
Başka form açmadan veya sorgu çalıştırmadan aranan kayda ulaşırsınız.

NOT: Projelerinizde alan veya nesne isimlendirilmesinde BOŞLUK veya TÜRKÇE harfler kullanmanız, tasarım ve performans açısından sorun olabilir.

ankaram · 15-11-2023, 10:19

(14-11-2023, 17:35)dsezgin demiş ki:
Visual Basic
Private Sub Komut23_Click() Dim Kayit As Recordset Set Kayit = Me.RecordsetClone Cvp = InputBox("İsmi Giriniz", "ARAMA", "") Kayit.FindFirst "[Adı Soyadı] Like '*" & [Cvp] & "*'" Me.Bookmark = Kayit.Bookmark If Kayit.NoMatch Then MsgBox "Kayıt Bulunamadı" End Sub
Komut23 tıklama olayına, yukarıdaki prosedürü taşıyınız.
Başka form açmadan veya sorgu çalıştırmadan aranan kayda ulaşırsınız.

NOT: Projelerinizde alan veya nesne isimlendirilmesinde BOŞLUK veya TÜRKÇE harfler kullanmanız, tasarım ve performans açısından sorun olabilir.

Kardeşim ilmine sağlık oldu.Dsezgin kardeşim birde tarihe göre aramada hangi prosedürü kod olarak yazmalıyım.Teşekkürler

dsezgin · 15-11-2023, 16:14

Düğmeyi silin, ARAMA adında metin kutusu oluşturup, güncelleme olay yordamına aşağıdaki prosedürü taşıyın.
Form Kayit Kaynagi SQL'i

SQL
SELECT Tablo1.*, Tablo2.Tarih AS Trh
FROM Tablo1 LEFT JOIN Tablo2 ON Tablo1.[Adı Soyadı] = Tablo2.AdıSoyadı;

yapın.

Visual Basic
Private Sub ARAMA_AfterUpdate()
Dim Kayit As Recordset
Set Kayit = Me.RecordsetClone
If IsDate(Me.ARAMA) = True Then
    Kayit.Filter = "Trh=#" & Format(Me.ARAMA, "mm\/dd\/yyyy") & "#"
    Me.Filter = Kayit.Filter
    Me.FilterOn = True
     If Me.Recordset.RecordCount = 0 Then MsgBox "Kayıt Bulunamadı"
Else
    Kayit.FindFirst "[Adı Soyadı] Like '*" & Me.ARAMA & "*'"
    Me.Bookmark = Kayit.Bookmark
    If Kayit.NoMatch Then MsgBox "Kayıt Bulunamadı"
End If
End Sub

ankaram · 21-11-2023, 10:46

(15-11-2023, 16:14)dsezgin demiş ki: Düğmeyi silin, ARAMA adında metin kutusu oluşturup, güncelleme olay yordamına aşağıdaki prosedürü taşıyın.
Form Kayit Kaynagi SQL'i

Visual Basic
SELECT Tablo1.*, Tablo2.Tarih AS Trh
FROM Tablo1 LEFT JOIN Tablo2 ON Tablo1.[Adı Soyadı] = Tablo2.AdıSoyadı;

yapın.

Visual Basic
Private Sub ARAMA_AfterUpdate()
Dim Kayit As Recordset
Set Kayit = Me.RecordsetClone
If IsDate(Me.ARAMA) = True Then
    Kayit.Filter = "Trh=#" & Format(Me.ARAMA, "mm\/dd\/yyyy") & "#"
    Me.Filter = Kayit.Filter
    Me.FilterOn = True
     If Me.Recordset.RecordCount = 0 Then MsgBox "Kayıt Bulunamadı"
Else
    Kayit.FindFirst "[Adı Soyadı] Like '*" & Me.ARAMA & "*'"
    Me.Bookmark = Kayit.Bookmark
    If Kayit.NoMatch Then MsgBox "Kayıt Bulunamadı"
End If
End Sub

Teşekkürler kardeşim.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Aynı Tarihli Veri Varsa Işlem Yapmasın Ve Sql Col Sayısını Arttırma	snapper	9	322	20-10-2023, 00:36 Son Mesaj: dsezgin
	[TABLO] Tablodaki Aynı Isimlerin Sayısını Yazdırma	omergenc7	13	561	26-03-2023, 13:11 Son Mesaj: dsezgin
	[RAPOR] Aynı Satırları Bir Kere Gösterip Saydırma	oguzt	10	304	14-03-2023, 22:17 Son Mesaj: oguzt
	[SORGU] Veriler Arasında Eşleşen Kelimeleri Bulma.	Satir	5	231	18-02-2023, 15:27 Son Mesaj: celalll
	Aramada ıstenen Gelmiyor	BeyTor	10	333	10-01-2023, 22:59 Son Mesaj: onur_can
	Aramada Istenen Gelmiyor	ankaram	2	160	29-12-2022, 13:56 Son Mesaj: ankaram
	Isim Yerine Rakam Geliyor	ankaram	4	181	27-12-2022, 09:00 Son Mesaj: ankaram
	Başlıkları Aynı Olmayan EXcel Tablosunu Dosya Bul Butonu Ile Accese Veri Almak	snapper	1	189	17-12-2022, 03:13 Son Mesaj: dsezgin

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL