Dim rs New ADODB.Recordset
rs.Open "TABLO", Currentproject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew 'bir tablaya ekleme yapmasını belirtiyoruz.

doDoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYEs
Application.CommandBars.FindControl(ID:=2071).accDoDefaultAction
Docmd.Quit 'sıkıştır ve onar yapmasını belirtiyoruz.

arkadaşlar uygulamam 20 mb civarında. uygulamamın kapanma komutuna yukarıdaki kodu yazdım. her kapattığımda sıkıştır ve onar yaptırıyorum. daha önceden çalışan kod bugünlerde uygulamamda herhangi bir değişiklik yapmamama rağmen çalışmıyor, aşağıda ki uyarıyı veriyor.

Microsoft Office Access programından şimdi çıkamazsınız.
OLE veya DDE kullanan bir Visual Basic Modülü çalıştırıyorsanız, modülü kesmeniz gerekebilir.


uygulamamın her kapandığında bakım yaptırabileceğim başka bir yöntem var mıdır? veya yukarıdaki kodlarda nasıl bir problem olabilir. yardımlarınız için şimdiden çok teşekkür ederim.

Access Seçenekleri --> Geçerli Veritabanı --> Kapatırken Düzenle (işaretli olmalıdır.)

ahmet.aydin yardım isteğin için teşekkür ederim. bahsettiğin özellik office 2003 ve öncesi versiyonlarda bulunmamaktadır.

hayırr bütün office versiyonlarında var