+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Sözlük yapma (Tablodan Kayıt Bulma) (/konu-sozluk-yapma-tablodan-kayit-bulma.html)
Sayfalar:
1
2
Sözlük yapma (Tablodan Kayıt Bulma) - ozzy - 10/03/2012
![[Resim: 3dcwv.jpg]](http://e1203.hizliresim.com/v/b/3dcwv.jpg)
Yukarıda eklediğim resimde formun görüntüsü var.
Kelime kısmına bir kelime girilecek. Ara butonuna bastığımızda o kelimeyi tabloda arayacak varsa hemen altındaki tex de anlamı yazacak. Yalnız arama işleminde Docmd komutu kullanılacak.
Yardımınız için şimdiden teşekkürler...
Cvp: Sözlük yapma - chopper07 - 10/03/2012
Lütfen hazırlamış olduğunuz örneği ekleyiniz.
Cvp: Sözlük yapma - ozzy - 10/03/2012
örneği yüklemeye çaılştm ama dosya türü mdb yi desteklemiyo dio
Cvp: Sözlük yapma - ercansahin - 11/03/2012
(10/03/2012, 23:57)ozzy yazdı: örneği yüklemeye çaılştm ama dosya türü mdb yi desteklemiyo dio
Sıkıştırma programları ile sıkıştırarak yüklemelisiniz.
Cvp: Sözlük yapma - ozzy - 11/03/2012
Yukarıda eklediğim resimde formun görüntüsü var.
Kelime kısmına bir kelime girilecek. Ara butonuna bastığımızda o kelimeyi tabloda arayacak varsa hemen altındaki tex de anlamı yazacak. Yalnız arama işleminde Docmd komutu kullanılacak.
Yardımınız için şimdiden teşekkürler...
Tasarımı oluşturulmuş form ektedir..
Cvp: Sözlük yapma - ozanakkaya - 11/03/2012
Komut13'ün tıklandığında olayına aşağıdaki kodu ekle
Alt8.SetFocus
Alt8!Kelime.SetFocus
DoCmd.FindRecord Metin0, acAnywhere, False, acSearchAll, False, acAll, True
If DCount("anlamı", "Tablo1", "[kelime] = " & Chr(34) & Metin0 & Chr(34)) = 1 Then Metin4 = Alt8!anlamı Else: Metin4 = "bulunamadı"
kod içerisinde "Docmd" mevcuttur.