AccessTr.neT

Tam Versiyon: Access 64 Bit Sorunu Çözümü??
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Sayın mehami,

Bir diğer tavsiye niteliğinde olması adına,şu hususu da belirtmek faydalı olacaktır.

32 bit / 64 bit kullanımlarında,
declare edilen fonksiyon tanımlarında eğer LONG ifadesi geçiyorsa;bunları da LONGPTR olarak değiştirmek gerekecektir.

Örnek kullanım olarak;
uygulamanızda yer alan MODULE1 adlı modül içeriğindeki kodlardan alıntı yaparak,şu şekilde yazılması uygundur.

Kod:
#If VBA7 Then
Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Longptr) As Longptr
Public Declare PtrSafe Function ReleaseCapture Lib "user32" () As Longptr
Public Declare PtrSafe Function SendMessage Lib "user32" Alias _
        "SendMessageA" (ByVal hwnd As Longptr, ByVal wMsg As Longptr, _
         ByVal wParam As Longptr, lParam As Any) As Longptr
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Longptr, _
ByVal nCmdShow As Longptr) As Longptrptr
 
#Else
 
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
 
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function SendMessage Lib "user32" Alias _
        "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
         ByVal wParam As Long, lParam As Any) As Long
 
#End If

 Bir diğer örnek de;
cls_justifytext adlı sınıf modülünden alıntı yaparak,

Kod:
#If VBA7 Then
Private Type udtPrtMips_str
  strRGB As String * 28
End Type
 
' Structure from ADH97
Private Type udtPrtMips
  lngLeft As Longptr
  lngTop As Longptr
  lngRight As Longptr
  lngBottom As Longptr
  lngDataOnly As Longptr
  lngWidth As Longptr
  lngHeight As Longptr
  lngDefaultSize As Longptr
  lngItemsAcross As Longptr
  lngColumnSpacing As Longptr
  lngRowSpacing As Longptr
  lngItemLayout As Longptr
  lngFastPrinting As Longptr
  lngDataSheet As Longptr
End Type
 
 
' Arrays to hold the info we require from
' processing the Report's Detail Event
Private lngTop() As Longptr
Private lngCtlLeft() As Longptr
Private varData() As String
Private lngHeight() As Longptr
Private lngCtlHeight() As Longptr
Private tokens() As String
Private strCtlName As String
Dim m_FileNumber As Integer
 
 
#Else
 
Private Type udtPrtMips_str
  strRGB As String * 28
End Type
 
' Structure from ADH97
Private Type udtPrtMips
  lngLeft As Long
  lngTop As Long
  lngRight As Long
  lngBottom As Long
  lngDataOnly As Long
  lngWidth As Long
  lngHeight As Long
  lngDefaultSize As Long
  lngItemsAcross As Long
  lngColumnSpacing As Long
  lngRowSpacing As Long
  lngItemLayout As Long
  lngFastPrinting As Long
  lngDataSheet As Long
End Type
 
 
' Arrays to hold the info we require from
' processing the Report's Detail Event
Private lngTop() As Long
Private lngCtlLeft() As Long
Private varData() As String
Private lngHeight() As Long
Private lngCtlHeight() As Long
Private tokens() As String
Private strCtlName As String
Dim m_FileNumber As Integer
 
#End If

Elbette ki,bunları yazmak sureti ile denemek lazım.sonuçları bildirebilirsiniz.

Bilginize…iyi çalışmalar,saygılar. 
Değerli atoz hocama çok tşk ederim..Son verdiği kodlar sayesinde sorun çözüldü.
Konu taşınabilir saygılar sunuyorum.
(29/02/2016, 00:29)mehami yazdı: [ -> ]Değerli atoz hocama çok tşk ederim..Son verdiği kodlar sayesinde sorun çözüldü.
Konu taşınabilir saygılar sunuyorum.

slm


\\10.35.33.221\Users\Administrator\Desktop\Ödeme\etpguncellemesı\ETP ÖDEME 4.5.mdb"

Kolay gelsin yukarıda attığım örneğe güncelleme linkini ekleyemedim yardım edebilir misin
15 konu 37 mesaj ama hala yanlış yere yazıyorsunuz. Lütfen sorular bölümüne sorar mısınız sorularınızı.
Sayfalar: 1 2