merhabalar,
aşağıdaki kodları kullanarak access i tasarım modu görünmeden açıyorum. fakat bazı bilgisayarlarda sorunsuz açılırken bazı bilgisayarlarda ilk form açılmıyor, aslında access çalışıyor, task manager da access görünüyor, ama açılış formu görünmüyor. çalışan ve çalışmayan iki bilgisayarında işletim sistemleri aynı:win8 64 bit. office 64 bit.
sorun ne olabilir?

Option Compare Database
Option Explicit
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
#If VBA7 And Win64 Then
Private Declare PtrSafe Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
#Else
Private Declare PtrSafe Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
#End If


'Access penceresi gizleme
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

Sn mdongul;
#If VBA7 And Win64 Then
....
#Else
Private Declare PtrSafe Function
....
#end if
Koyu yazan yeri silin ki 32 bit ile uygulama calissin.

sn dsezgin,
aşağıdaki gibi kodu değiştirdim, hatta kırmızı renge boyadı. ama yine olmadı. başka bir öneriniz var mı?win8 ve win8.1 farkından olabilir mi?
...
#Else
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
....

(26-06-2015, 08:50)mdongul demiş ki: sn dsezgin,
aşağıdaki gibi kodu değiştirdim, hatta kırmızı renge boyadı. ama yine olmadı. başka bir öneriniz var mı?win8 ve win8.1 farkından olabilir mi?
...
#Else
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
....

Ben calismayani 32 bit olarak degerlendirmistim.
api satirinda degiskenlerin saklama tiplerini long yerine LongLong veya longptr degistirerek denenebilir. (Win8 uygulamam yok)