Kod:
Private Sub Açılan_Kutu7_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NAK_ID] = " & Str(Nz(Me![Açılan Kutu7], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Ofisi onardım
forumu ve tabloyu komple silerek yeniden oluşturdum. Ancak sadece bu forumda hata vermektedir.
Oradaki mesajınızı görmemişim. Özür Diliyorum. Bahsettiğiniz uygulamayı deniyorum hemen.
Düzeltme : Tablo ve forumu yeni bir veritabanına çektiğimde uygulama çalışıyor.
Sayın sledgeab;
Tüm nesneleri yeni bir veritabanı oluşturarak içeriye aktardım ve filitreleme ve kodlar çalıştır. Bilgilendirme için teşekkürler..
Sorun çözülmüştür.