Skip to main content

AccessTr.neT


32 bit (x86) yapılan programların 64 bit (x64) çalıştırılması

32 bit (x86) yapılan programların 64 bit (x64) çalıştırılması

#7
Kod:
Option Compare Database

Option Explicit

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

#If VBA7 Then
    Declare PtrSafe Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
  (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
#Else
    Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
  (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
#End If
Function fSetAccessWindow(nCmdShow As Long)
Dim loX        As Long
Dim loForm     As Form
    On Error Resume Next
    Set loForm = Screen.ActiveForm
    If Err <> 0 Then
        If nCmdShow = SW_HIDE Then
            loX = apiShowWindow(hWndAccessApp, nCmdShow)
            Err.Clear
        End If
    Else

            loX = apiShowWindow(hWndAccessApp, nCmdShow)

    End If
    fSetAccessWindow = (loX <> 0)
End Function
Public Function MenuGizle()
'Menü ve Araç çubuklarınız gizler..

Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = False
Next i

End Function

Public Function MenuGoster()
'Menü ve Araç çubuklarınız gösterir..

Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = True
Next i

End Function

kodu yazdım 64 bit çalışması için ama vba7 den sonraki kod kırmızı ile görünüyor.

Vista 32 bit form otomatik başlamıyor. win7 sorun yok .
şöyle bir şey de var formu Vista 32 bit ile hazırladım iş yerindeki Vista 32 bit te çalışmıyor nedeni ne olabilir.
yukarıdaki kodlarla bir ilgisi var mı acaba
Cevapla
#8
declare gördüğünüz her yerden sonra "PtrSafe" ekleyip tekrar deneyiniz.
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla
#9
Çok teşkkürler Mehmet Bey... Emeğinize sağlık.
Cevapla
#10
bende hem kendi adıma hemde mesut yağmur adına teşekkür edeyim. teşekkürler.
Cevapla
#11
Mehmet Bey Teşekkür ederiz.
Cevapla
#12
Sayın Mehmetdemiral Hocam,

Paylaşımınız için çok teşekkür ederim. Uygulamamı hem 32 bit hem de 64 bit'te çalıştırmak istiyordum ve nasıl yapacağım hakkında hiçbir fikrim de yoktu. Paylaşımınız ilaç gibi geldi.
Çok sağolun değerli hocam...
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task