+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: 32 bit (x86) yapılan programların 64 bit (x64) çalıştırılması (/konu-32-bit-x86-yapilan-programlarin-64-bit-x64-calistirilmasi.html)
Cvp: 32 bit (x86) yapılan programların 64 bit (x64) çalıştırılması - ugur1208 - 02/03/2015
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 FunctionVista 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
Cvp: 32 bit (x86) yapılan programların 64 bit (x64) çalıştırılması - yorum70 - 02/03/2015
declare gördüğünüz her yerden sonra "PtrSafe" ekleyip tekrar deneyiniz.
Cvp: 32 bit (x86) yapılan programların 64 bit (x64) çalıştırılması - enginozdmr - 22/07/2015
Çok teşkkürler Mehmet Bey... Emeğinize sağlık.
Cvp: 32 bit (x86) yapılan programların 64 bit (x64) çalıştırılması - huramiral - 22/07/2015
bende hem kendi adıma hemde mesut yağmur adına teşekkür edeyim. teşekkürler.
Cvp: 32 bit (x86) yapılan programların 64 bit (x64) çalıştırılması - termolist - 08/08/2016
Mehmet Bey Teşekkür ederiz.
Cvp: 32 bit (x86) yapılan programların 64 bit (x64) çalıştırılması - akif_erdem - 06/04/2017
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...