[FORM] Metin kutusu ile arama

Şuayip Aktaş · 22-12-2014, 11:20

"Adisoyadi" metin kutusuna çalışan ismi yazılınca bazı kısımları otomatik olarak doldurmak istiyorum. Şu kodları kullandım;

Visual Basic
Dim db1 As Database, rs1 As Recordset, sql1 As String, ara1 As String
    sql1 = "Select * from kayıt"
 
    ara1 = "ADI_SOYADI = " & Str(Adisoyadi.Text)
    Set db1 = CodeDb
    Set rs1 = db1.OpenRecordset(sql1)
    rs1.FindFirst (ara1)
    If Not rs1.NoMatch Then
 
        Adisoyadi.SetFocus
        sicilno.Text = rs1.Fields("sicilno")
        gorev.SetFocus
        gorev.Text = rs1.Fields("GOREV_ADI")
        ust_adi.SetFocus
        ust_adi.Text = rs1.Fields("S_BAGLI_UST_ADI")
        Calistigibolum.SetFocus
        Calistigibolum.Text = rs1.Fields("UNITE_ADI")
        adres.SetFocus
        adres.Text = rs1.Fields("ADRESİ")
 
    Else
        ust_adi.SetFocus
        ust_adi.Text = ""
        Adisoyadi.SetFocus
        Adisoyadi.Text = ""
        gorev.SetFocus
        gorev.Text = ""
        Calistigibolum.SetFocus
        Calistigibolum.Text = ""
        adres.SetFocus
        adres.Text = ""
    End If

Nerede hata yaptığımı bulabilir misiniz?

dsezgin · 22-12-2014, 13:21

Sn Şuayip Aktaş;
Kodlari access icinde ki VB da kullaniyorsaniz.
Adisoyadi nesnesi metin kutusu ise asagida ki gibi sorulabilir.
ara1 = "ADI_SOYADI = '" & Adisoyadi.Text & "'")
Tablo icinde index sutun ile daha iyi sonuc alinir.

Şuayip Aktaş · 22-12-2014, 13:49

Type mismatch hatası alıyorum.

Şuayip Aktaş · 22-12-2014, 13:59

ara1 = "ADI_SOYADI = '" & Trim(Adisoyadi.Value) & "'"
Bu kodu yazarak hatayı düzelttim.

Şuayip Aktaş · 09-02-2015, 09:56

Günaydın arkadaşlar.
Bu kodları kullanarak bazı alanları otomatik olarak dolduruyorum. Metin kutusuna "şuayip aktaş" yazınca istediğim kısımları dolduruyor, "bekir mutlu" yazınca ise alanları doldurmuyor.

Kişinin verileri tabloda var.

Teşekkür ederim, kolay gelsin.

dsezgin · 09-02-2015, 15:32

Sn Şuayip Aktaş;
Dim rs1 As Recordset
Set rs1 = CurrentDb.OpenRecordset("Select * from kayıt")
rs1.MoveFirst
rs1.FindFirst "[ADI_SOYADI]='" & me.Adisoyadi & "'"
If Not rs1.NoMatch Then
sicilno.Text = rs1.Fields("sicilno")
gorev.Text = rs1.Fields("GOREV_ADI")
ust_adi.Text = rs1.Fields("S_BAGLI_UST_ADI")
Calistigibolum.Text = rs1.Fields("UNITE_ADI")
adres.Text = rs1.Fields("ADRESİ")
Else
ust_adi.Text = ""
Adisoyadi.Text = ""
gorev.Text = ""
Calistigibolum.Text = ""
adres.Text = ""
End If
rs1.Close: Set rs1 = Nothing
olarak deneyebilirsin. rs1 kayit setini arama yapilmadan en basa getirmek ve isimiz bittiginde kayit setini kapatmaliyiz.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[FORM] Liste kutusu biçimlendirme...	rafetgulmez	7	4.047	28-11-2025, 13:18 Son Mesaj: osman06
	[FORM] Metin Kutusundaki Değeri Başka Bir Metin Kutusuna Aktarmak	TheREDROSE	2	368	02-08-2024, 11:56 Son Mesaj: TheREDROSE
	[VBA] Metin Içerisindeki Kelimeler Ile Arama Yapma	ekremer1969	6	1.243	22-06-2024, 16:15 Son Mesaj: dsezgin
	[FORM] Arama Sorunu	Pasham	0	349	08-04-2024, 14:32 Son Mesaj: Pasham
	[FORM] metin kutusu kaydırma	onkay	5	2.323	27-12-2023, 13:24 Son Mesaj: dsezgin
	Metin Kutusu Adı Değiştirme Hk.	snapper	9	683	08-11-2023, 01:12 Son Mesaj: dsezgin
	[TABLO] çoklu Birleşik Giriş Kutusu	RASİMPEH	2	443	19-09-2023, 04:53 Son Mesaj: RASİMPEH
	Uzun Metin Formatını Sql De Kısa Metin Formatına çevirebilir Miyiz?	adnnfrm	2	484	06-08-2023, 03:51 Son Mesaj: adnnfrm

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL