Maalesef olmadı. 2013 ve 2016 32 bit versiyonlarında denedim yine aynı yerde aynı hatayı aldım. ADO 2,8 denedim oda olmadı. Listbox kullanmak istemiyorum. Onun için alt kısmı alt form ekledim ve sürekli form yaptım. Tabloları farklı bir Access dosyasında tutuyorum ve ADO.connections ile bağlantı kurup verleri sürekli forma getirmek istiyorum. Aşağıdaki gibi bir kod yazdım oda sadece ilk satıra tüm kayıtları yazıyor yani alt alta olmuyor. Daha öncelerden Listview Kullanmıştım onda da register sorunu oluyordu. Bu durum sizin öneriniz ne olabilir.
ADO.connections kullanmamın nedeni veritabbanı ilerde MSSQL veya Mysql taşıdığımda kodlarla fazla uğraşmamak. Buda olmazsa Bağlı tablo yöntemini kullanacağım.
Kod:
Do While Rs.EOF = False
Frm![fs_StokFisSepet].Form.txtislemTuru = Rs.Fields("islemTuru").Value
Frm![fs_StokFisSepet].Form.txtUrnId = Rs.Fields("UrnId").Value
Frm![fs_StokFisSepet].Form.txtUrnAdi = Rs.Fields("UrunAdi").Value
Frm!fs_StokFisSepet.Form.txtMiktari = Rs.Fields("Miktari").Value
Frm!fs_StokFisSepet.Form.txtBirimFiyat = Rs.Fields("BirimFiyat").Value
Frm!fs_StokFisSepet.Form.txtKdvOran = Rs.Fields("KdvOran").Value
Frm!fs_StokFisSepet.Form.txtiskOrn = Rs.Fields("iskOrn").Value
Frm!fs_StokFisSepet.Form.txtKdvTutar = Rs.Fields("kdvTutar").Value
Frm!fs_StokFisSepet.Form.txtiskTutar = Rs.Fields("iskTutar").Value
Frm!fs_StokFisSepet.Form.txtToplamTutar = Rs.Fields("ToplamTutar").Value
Frm!fs_StokFisSepet.Form.chkDrm = Rs.Fields("Drm").Value
Frm!fs_StokFisSepet.Form.txtAciklama = Rs.Fields("Aciklama").Value
Frm!fs_StokFisSepet.Form.txtFisId = Rs.Fields("FisDtyId").Value
Rs.MoveNext
Loop