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