Merhaba,
Office 2016
Orijinal Versiyon
64 bit
Türkçe
kullanılıyor.
Bugüne kadar çalışan veritabanı bugün itibariyle çalışmıyor. Aşağıdaki mesaj çıkmaktadır.
İçerdiği
Vba projesi okunamadığından veritabanı açılamıyor.
Vba projesinin silinmesi, modüllerdeki, formlardaki ve raporlardaki tüm kodları kaldırır. Veritabanınızı açmayı ve
Vba projesini silmeyi denemeden önce veritabanınızın yedek kopyasını oluşturmalısınız.
Forumda aradım. Konu kapatılmış, ancak kendi kendine bu sorunun geçtiği söylenmiş.
Güncelleme kontrol edildi. Güncelleme yok.
Office kaldırıldı ve yeniden kuruldu.
Diğer
Access projelerinde sorun yok.
Aynı pc de birden fazla veritabanı var ve çalışmaktadır.
Debug Compile edilemiyor. Çünkü, veritabanı açılır açılmaz bu hatayı verip tüm
Vba kodlarını siliyor.
Konu hakkında yardım rica ediyorum. Teşekkürler.
Merhaba,
Uygulamanız büyük ihtimalle bozulmuş. İncelenebilmesi ve onarılmaya çalışılması için uygulamanızı ekleyiniz.
Merhaba Hocam,
Uygulamayı ekleyebilirim, ekledim de.
Ancak, aynı uygulamayı başka pc ye kopyaladığımda çalışıyor.
Bu garip değil mi sizce de...?
Şöyle düzelteyim;
Dosya networkten kopyalanıp bir pc ye yapıştırılıyor. Bu hatayı veriyor.
Aynı dosya onlarca pc ye kopyalanıp masaüstüne yapıştırılıyor. Normal çalışıyor.
O pc deki bir sorun ile ilgili gibi düşünüyorum.
Bu sefer de diğer, veritabanları çok rahat çalışıyor.
Muhtemelen sizde de çalışacaktır.
Uygulamada,
- İlk açılan formda veya içerdiği kodlarda sorun olabilir. Uygulamayı shift tuşuna basılı tutarak açın, alt +f11'e basarak
Vba sayfasını açın, Debug sekmesinden "Compile ............" seçeneğini tıklayın. Çıkan hataları düzelterek deneyin.
- Ofisin 64 bit olduğunu belirtmişsiniz.
Örnek olarak, Modül1 isimli modülde
Declare Function aht_apiGetOpenFileName Lib "comdlg32.dll" _
Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean
Declare Function aht_apiGetSaveFileName Lib "comdlg32.dll" _
Alias "GetSaveFileNameA" (OFN As tagOPENFILENAME) As Boolean
Declare Function CommDlgExtendedError Lib "comdlg32.dll" () As Long
şeklinde kodlar mevcut. Bu şekildeki declare edilen fonksiyonların 64 bite uyarlanması gerekiyor.
#If VBA7 Then
Declare ptrsafe Function aht_apiGetOpenFileName Lib "comdlg32.dll" _
Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean
Declare ptrsafe Function aht_apiGetSaveFileName Lib "comdlg32.dll" _
Alias "GetSaveFileNameA" (OFN As tagOPENFILENAME) As Boolean
Declare ptrsafe Function CommDlgExtendedError Lib "comdlg32.dll" () As Long
#Else
Declare Function aht_apiGetOpenFileName Lib "comdlg32.dll" _
Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean
Declare Function aht_apiGetSaveFileName Lib "comdlg32.dll" _
Alias "GetSaveFileNameA" (OFN As tagOPENFILENAME) As Boolean
Declare Function CommDlgExtendedError Lib "comdlg32.dll" () As Long
#End If
32 bit (x86) yapılan programların 64 bit (x64) çalıştırılması
Hocam,
Aşağıda bahsettiğiniz işlemi size gönderdiğim dosyada yapabiliyorsunuz.
Ben de kendi pc mde yapabiliyorum.
Ancak, bahsettiğim pc de bunu yapamıyorsunuz.
Çünkü, hemen mesajı çıkartıp
Vba ları siliyor.
Şimdilik 2013 e dönüş yaparak sorunu çözdüm.
- İlk açılan formda veya içerdiği kodlarda sorun olabilir. Uygulamayı shift tuşuna basılı tutarak açın, alt +f11'e basarak
Vba sayfasını açın, Debug sekmesinden "Compile ............" seçeneğini tıklayın. Çıkan hataları düzelterek deneyin.
Alıntı:Ancak, bahsettiğim pc de bunu yapamıyorsunuz
Uygulamanızı shift tuşuna basılı tutarak açabilirsiniz.
Açamıyorsanız, belirttiğim bu işlemi uygulamayı açabildiğiniz pcde yapabilirsiniz.
Böylelikle 64 bit ofis kurulu pcde açtığınızda sorun çıkarmayacak.
Yapmazsanız 64 bit olan tüm ofis sürümlerinde sorun çıkarır.