AccessTr.neT

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...

Lütfen hazırlamış olduğunuz örneği ekleyiniz.

örneği yüklemeye çaılştm ama dosya türü mdb yi desteklemiyo dio

(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.

Ek Dosyalar

vt1.rar(11.92 KB)

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..

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.