Referans Hatası

daha önce kullandığım formda kayıtları alta ve üste alabiliyordum anacak şimdi bütün referansları kontrol etmem rağmen kayıtların yerlerini değiştiremiyorum. yardımcı olursanız sevinirim.

2021 64 bit ofis kullanıyorum aşağıdaki değişiklikleri yapınca sorun çıkmadı
1 - Dim db As Database ==> Dim db As Object
2 - Dim xx As Recordset ==> xx As dao.Recordset
3 - Set db = DBEngine(0)(0) ==> Set db = CurrentDb

2021 32 bit ofis kullanıyorum


TopNum = rf("tbl_PERSONEL.persırano")

satırında hata verdi.

o rayı atlamışım recordset içinde alan adını tanımlarken tablo adına gerek yok o kısmı silin
rf("tbl_PERSONEL.persırano") yerine rs("persırano")

sıra numaraları değişiyor ancak isim ve branş bilgileri aynı satırda kalıyor.

en son ne değişiklikler yaptınız?
ofis sürümünü değiştirdiniz mi?