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.