Skip to main content

AccessTr.neT


Form Üzerinden Filtreleme Kaldırma

Form Üzerinden Filtreleme Kaldırma

Çözüldü #1
Private Sub OgrenciEkle()
Set db = CurrentDb()
SQL = "SELECT * FROM tbl_Ogrenci_bilgileri WHERE okul_num = " & Me.okul_num & ";"
Set rs = db.OpenRecordset(SQL)
If rs.EOF = False Then
            MsgBox Me.okul_num & " nolu cari daha önce girilmiş.."
            Me.okul_num.SetFocus
            Exit Sub
End If
SQL = "SELECT * FROM tbl_Ogrenci_bilgileri"
Set rs = db.OpenRecordset(SQL)
rs.AddNew
rs!okul_num = Me.okul_num
rs!adi_soyadi = Me.adi_soyadi
rs!sinifi = Me.sinifi
rs!sube = Me.sube
rs.Update
    stLinkCriteria = "[okul_num]=" & Me.okul_num
     DoCmd.Close
     DoCmd.OpenForm "frml_Ogrenci_bilgileri", , , stLinkCriteria
End Sub

bu kod ile frml_Ogrenci_bilgileri formunu açabiliyorum ancak form açıldığında gezinti düğmelerinde "Filtre uygulanmış" dediğinden kayıtlar arası gezinemiyorum form açıldığı zaman filtreyi kod ile nasıl kaldırabilirim.
mustinba, 11-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Form Üzerinden Filtreleme Kaldırma - Yazar: mustinba - 31/08/2018, 21:26
Task