Skip to main content

AccessTr.neT


Arama Özelliği Çalışmıyor

Arama Özelliği Çalışmıyor

Çözüldü #1
HERKEZE İİ AKŞAMLAR YENİ ÜYE OLDUM BİR SORUNUM VAR FORMDADA ARAŞTIRDIM AMA OLMUYOR CÖZEMİYORUM:

FORM ÜZERİNDE ARAMA YAPTIRMAK İÇİN SECENEK GRUBUNU KULLANARAK BİR KUTUCUK OLUŞTURDUM İÇERİSİNE BİR METİN KUTUSU VE BİR BUTON EKLEDİM BUTON İÇİNDE OLAY OLUŞTURDAN KOD OLUŞTUR DEDİM VE Option Compare Database
Private Sub Komut21_Click()
Dim ks As Object

If fra_arama.Value = 1 Then
kriter = "[sicil] = '" & Nz(txt_arama_kelimesi, "") & "'"
ElseIf fra_arama.Value = 2 Then
kriter = "[tc] = '" & Nz(txt_arama_kelimesi, "") & "'"
Else
MsgBox "Lütfen öncelikle hangi kritere göre arama yapmak istediğinizi seçiniz", vbInformation + vbOKOnly, "Kriter Belirtiniz"
End If


Set ks = Me.Recordset.Clone
ks.FindFirst kriter
If Not ks.EOF Then Me.Bookmark = ks.Bookmark

End Sub

Private Sub baba_adı_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub TextBox2_Change()
Dim metin As String

metin = TextBox2.Value

ana tablo.Requery
End Sub


BUNU YAPTIM SİZCE NERDE HATA YAPIYORUM ARA BUTONUNA BASTIGIMDA ARAMA YAPMIYOR YARDIMCI OLURSANIZ SEVİNİRİM SAYGILARIMLA
Cevapla
Çözüldü #2
Mesajlarınızı küçük harf ile yazınız ve örneğinizi ekleyin lütfen.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da