Skip to main content

AccessTr.neT


Vba Projesi Okunamıyor

Vba Projesi Okunamıyor

Çözüldü #1
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.
.rar ELE-02 Faturalama Sayaç Programı_Form - PDF.rar (Dosya Boyutu: 1,43 MB | İndirme Sayısı: 5)
Teşekkürler,
Saygılarımla,

Power BI İş Analitiği Danışmanı

Ali Yüzen
Son Düzenleme: 27/09/2017, 09:29, Düzenleyen: aliyuzen.
Cevapla
#2
Merhaba,

Uygulamanız büyük ihtimalle bozulmuş. İncelenebilmesi ve onarılmaya çalışılması için uygulamanızı ekleyiniz.
Cevapla
#3
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.
Teşekkürler,
Saygılarımla,

Power BI İş Analitiği Danışmanı

Ali Yüzen
Cevapla
#4
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

Visual Basic Code
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.



Visual Basic Code
#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ı
Cevapla
#5
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.
Teşekkürler,
Saygılarımla,

Power BI İş Analitiği Danışmanı

Ali Yüzen
Cevapla
#6
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task