Access Form Tasarımı 13 VBA'ya Giriş: Arama Sorgusu Oluşturma ve Sonuçlarını Formda Görüntüleme

#access #sorgu #form #query #display #görüntüleme #result #sonuc
Dim tcno, a, s, gy As String
tcno = ytcno.Value
Dim sorgu As String
sorgu = "Select * From yazarlar Where yazartcno=' " & tcno & " ' "
Set sonuc = CurrentDb.OpenRecordset(sorgu)
If sonuc.RecordCount = 0 Then
MsgBox ("Yazar TcNO Sistemde Bulunamamıştır")
Else
ad.Value = sonuc!adi
soyad.Value = sonuc!soyadi
genelyazim.Value = sonuc!genelyazimturu
ytcno.Enabled = False
End If

[@İlyasArslan-s3r]

Ömer Hocam elinize sağlık. Birden çok değer olan hücrelerde sorgu çalışmıyor. (Sizin örneğinizde Yazım Türü alanında birden fazla değer olduğunu varsayarsak. Deneme; Psikoloji gibi) Bu sorunu nasıl aşabiliriz? Tşkler

[@sifrele]

tc no benim tabloda sayısal yapıyorum veritürü uyuşmazlığı diye hata veriyor

[@sifrele]

a=cint(txt.value) sorgu = "select * from anatablo where DOSYA_NO = ' & a & '"
Set sonuc = CurrentDb.OpenRecordset(sorgu)--bu satırda veriyor hatayı

[@Mafya27]

Bende de.