Could not use ; file already in use

[Trilenium]

Merhabalar,

Excel VBA üzerinde yapmış olduğum Access 2016 veritabanına bağlantılı programımda son 2 gündür could not use ; file already in use hatası almaktayım.
Daha önce böyle bir hata almamaktaydım.

Hata şöyle ilerliyor ;

Login kısmında hata yok, kayıt yapıyorum, daha sonra Log tutmak için aynı veritabanında başka bir tabloya kayıt atmak istediğim an hata meydana geliyor.
Veya başka kullanıcı X adlı ekranı açtı , ben ise Y adlı ekranı açtığım an bu hata meydana geliyor.
Hata her koşulda meydana geliyor.

Bağlantı cnn kodum ;
Kontrol = "EVET"
yol = ThisWorkbook.Path & "\"
Dosya = "VTA.mdb"
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;data source=" & yol & Dosya & ";Jet OLEDBatabase Password=1234;"


Kayıt listeleme rst kodum ;
rst.Open "select * ............", cnn, adOpenForwardOnly, adLockReadOnly
........

Kaydetme rst kodum;
rst.Open "select * from .........", cnn, adOpenDynamic, adLockOptimistic
rst.AddNew
......



a) MDB dosyası Shared olarak paylaşımlı
b) Dosya server üzerinde yetkileri verilmiş kullanıcılarla kullanılmakta
c) Server restart edildi
d) Dosya ve tablo tamiri yapıldı
e) Kodlarımda hata bulunmamakta çünkü 2 gün önce çalışıyordu

Sizce yapılabilecek başka bir unsur var mıdır?

 

[ÖmerFaruk]

Kodlarınızda cnn ve rst her ikisi içinde OPEN komutlarını takiben yaptığınız işleminiz bitince CLOSE ile kapatırsanız belki sonuç alabilirsiniz.

 

[Trilenium]

Kodlarınızda cnn ve rst her ikisi içinde OPEN komutlarını takiben yaptığınız işleminiz bitince CLOSE ile kapatırsanız belki sonuç alabilirsiniz.

Ömer Bey merhaba,


Tabi ki sonuç tarafında her ikisini de kapatmaktayım.Açılışları göstermemde ki sebep, kilitlerde farklı bir açılış önerisi gelirse diye yazdım.

 

[Trilenium]

Merhaba,

Konu ile ilgili hata Microsoftun bir kaç gün önce yayınladığı KB 5002099 for Office 2016 adlı paketten kaynaklandığını tespit ettim.

Eğer office güncellemeleri aldığınızda bu hata ile karşılaşırsanız ilgili paketten olduğunu belirtmek isterim.


Sorun kurumsal olduğu için ilgili paketi kaldıramıyorum,başka bir yöntem bulmaya çalışacağım.