05-01-2016, 19:06
Merhabalar,
Programın ilk açılışında dizayn modunu engellemeyi ve kullanıcının access tasarım modunu görmesini aşağıdaki kod bloğu ile engelliyorum. Fakat form içerisindeki bir buton ile iletişim görünüm modunda bir rapor açtığımda da aşağıdaki kod bloğu bu rapor ekranının görünmesini engelliyor. Ne yapabilirim?
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
Programın ilk açılışında dizayn modunu engellemeyi ve kullanıcının access tasarım modunu görmesini aşağıdaki kod bloğu ile engelliyorum. Fakat form içerisindeki bir buton ile iletişim görünüm modunda bir rapor açtığımda da aşağıdaki kod bloğu bu rapor ekranının görünmesini engelliyor. Ne yapabilirim?
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