32bit - 64bit Problemi
#1
Arkadaşlar Merhaba,

Ekteki dosyanın uyarlanmış halini kendi projemde uygulamıştım. Ben 32bit te çalıştığım için sıkıntı olmadı ama başka bir 64bit office olan pc de32bit uyarası verdi. Ben modülleri inceledim fakat 32bit 64bit ayrımının yapılacağı bir alan tespit edemedim. Yada ben anlamamışta olabilir Smile

Projeyi başka bir siteden indirmiştim. Orijinal haliyle gönderiyorum. Sadece 64bit uyarlaması yapılacak. Kontrol edebilir misiniz.

Saygılarımla


Eklenti Dosyaları
.rar   LİSANS.rar (Boyut: 98,17 KB / İndirilme: 45)



  Alıntı
Bu mesajı beğenenler:
#2
Sn adnnfrm;
Uygulamalar 2002 versiyon öncesi mdb olarak oluşturulmuş, mde çevirme esnasında sorun yaşanabilir. Kodlarda 64Bit ile sorun gözükmüyor.
Hata kaynağı hangi satırda çıkmakta?



  Alıntı
Bu mesajı beğenenler:
#3
(04-03-2021, 10:48)dsezgin demiş ki:
Visual Basic
  1. dim DosyaKonumu As string
  2. DosyaKonumu ="C:\.... txt"
  3. Application.FollowHyperlink DosyaKonumu, , True, True



ile dosyalarınızı açabilirsiniz.

Kodun 32-64 Bit ile calismasi icin
Declare Function.... veya Declare Sub... api'nin calismasi icin

#If VBA7 And Win64 Then
Declare PtrSafe Function....
#Else
Declare Function....
#End If

Seklinde Ptrsafe eklemelisiniz. En pratik yol en ustteki yontemdir.PROGRAMLARI-ACCESS-LE-ACMAK

Hocam belirttiğiniz kodlarla başlayan kod satırları yokki. "Ptrsafe" ile ilgili konuyu bir türlü beceremedim. Sanıyorum bir türlü şu 32-64 ayrımını yapamadım. Daha önceden de yapamamıştım. Peki siz ekteki dosyada düzenlemeyi yapmanız mümkün mü? Ben bir türlü anlayamadım kusura bakmayın.Nah

Saygılarımla



  Alıntı
Bu mesajı beğenenler:
#4
Visual Basic
  1. #If VBA7 And Win64 Then
  2. Declare PtrSafe Function aht_apiGetOpenFileName Lib "comdlg32.dll" _
  3. Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean#Else
  4. Declare PtrSafe Function aht_apiGetSaveFileName Lib "comdlg32.dll" _
  5. Alias "GetSaveFileNameA" (OFN As tagOPENFILENAME) As Boolean
  6. Declare PtrSafe Function CommDlgExtendedError Lib "comdlg32.dll" () As Long
  7. #Else
  8. Declare Function aht_apiGetOpenFileName Lib "comdlg32.dll" _
  9. Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean#Else
  10. Declare Function aht_apiGetSaveFileName Lib "comdlg32.dll" _
  11. Alias "GetSaveFileNameA" (OFN As tagOPENFILENAME) As Boolean
  12. Declare Function CommDlgExtendedError Lib "comdlg32.dll" () As Long
  13. #End If




Declare Function Satırları var, iki kelime arasına 64Bit için ptrsafe eklemelisiniz. 32 + 64 için #if ..... önerdiğimi uygulamalısınız.



  Alıntı
Bu mesajı beğenenler:
#5
(07-03-2021, 09:21)dsezgin demiş ki:
Visual Basic
  1. #If VBA7 And Win64 Then
  2.      Declare PtrSafe Function aht_apiGetOpenFileName Lib "comdlg32.dll" _
  3.      Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean#Else
  4.     Declare PtrSafe Function aht_apiGetSaveFileName Lib "comdlg32.dll" _
  5.     Alias "GetSaveFileNameA" (OFN As tagOPENFILENAME) As Boolean
  6.     Declare PtrSafe Function CommDlgExtendedError Lib "comdlg32.dll" () As Long
  7. #Else
  8.    Declare Function aht_apiGetOpenFileName Lib "comdlg32.dll" _
  9.    Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean#Else
  10.    Declare Function aht_apiGetSaveFileName Lib "comdlg32.dll" _
  11.    Alias "GetSaveFileNameA" (OFN As tagOPENFILENAME) As Boolean
  12.    Declare Function CommDlgExtendedError Lib "comdlg32.dll" () As Long
  13. #End If




Declare Function Satırları var, iki kelime arasına 64Bit için ptrsafe eklemelisiniz. 32 + 64 için #if ..... önerdiğimi uygulamalısınız.

Hocam affına sığınıyorum ama ben belirttiğiniz kodları vba tarafında bulamadım. İçerdiğini kelimeleri bile arattım bulamadım. Nereye ekleceğimi de bu yüzden çözemedim maalesef. Sizden rica ilgili kodları düzeltemeniz mümkün müdür. Ben o zaman iki dosyayı mukayese eder nerenin düzeltildiğini anlarım sonraki projelerimde de o şekilde kullanırım Nah.

Saygılarımla



  Alıntı
Bu mesajı beğenenler:
#6
Sn adnnfrm; Başlangıç satırından itibaren End Type satır sonrası Declare ..... satırı. 4'uncu mesajdaki VBA olarak önerdiğim şekilde kullanabilirsiniz.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Yoklama Defterinde Ay Ve Yıl Problemi omergenc7 16 635 22-09-2022, 13:54
Son Mesaj: omergenc7
  [SORGU] Sorgulamada Büyük Ve Küçük Harf Problemi Proteus 2 507 21-08-2020, 10:22
Son Mesaj: Proteus
  [SORGU] combobox tümü seçeneği problemi dayday 12 2.537 19-07-2020, 11:09
Son Mesaj: fmltd
  [VBA] Silme Problemi Hk. aktepes 2 445 10-05-2020, 00:14
Son Mesaj: aktepes
  Unon Sorguda Order By Desc Problemi accessman 1 370 23-03-2020, 16:38
Son Mesaj: onur_can
  Saatin Orda Popup 64bit Hatası feraz 2 526 07-03-2020, 22:37
Son Mesaj: feraz
  Tablo Bağlama Problemi alienerji 8 898 17-01-2020, 01:13
Son Mesaj: alienerji
  Liste Kutusu Aktarma Ve Rapor Problemi sefersanli 8 853 19-11-2019, 09:05
Son Mesaj: halily

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi