Form Ekranında Kayıt Filtreleme - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: AccessTr.neT Genel (https://accesstr.net/forum-accesstr-net-genel.html) +--- Forum: Çöp Kutusu (https://accesstr.net/forum-cop-kutusu.html) +--- Konu Başlığı: Form Ekranında Kayıt Filtreleme (/konu-form-ekraninda-kayit-filtreleme.html) |
Form Ekranında Kayıt Filtreleme - Medet Savaş - 03/03/2022 Formda Sonraki ve önceki kayda Git butonlarını tanımladım Birde Benim belirlediğim kayıt numarasına gitmesi için filtre texbox ve buton yaptım Bu butona tıkladığımda istediğim ilgili kayda gidiyor fakat bu işlem bir filtreleme olduğu için ben 102 yazdığımda 102,1102 gibi filtre yapıyor sonraki kayıt dediğimde 103 e gitmesi gerekirken 1102 ye gidiyor Access formun altındaki filtrelemede bunu yapmıyor alttaki filtre kutusunun aynısını nasıl yapabilirim? yani 205 yazıp sonraki dediğimde 1205 değil 206 ya gitmeli RE: Form Ekranında Kayıt Filtreleme - Medet Savaş - 04/03/2022 Şöyle bir kod bulup çözdüm. Private Sub Komut30_Click() If IsNull(Me.aramatxt) Then MsgBox " Lütfen Boş Bırakmayınız.." Else kontrol = DCount("aramatxt", "DAIRE_BILGILERI", "DAIRE_NO=" & aramatxt) If kontrol > 0 Then Dim strwhat2find As String If aramatxt.Value = "" Then Else strwhat2find = aramatxt.Value aramatxt.Value = "" DoCmd.FindRecord strwhat2find, acAnywhere, False, acSearchAll, True, acAll, True aramatxt.Value = strwhat2find End If Else MsgBox "Sitemizde Böyle bir daire Bulunmamaktadır.." End If End If End Sub |