02/03/2015, 12:08
ugur1208
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 Functionkodu 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