Sonra tüm formlarımı tek tek tasarım görünümünde açıp Özellikler / Diğer Sekmesinde bulunan Açılan ve Kalıcı kısımlarını Evet yaptım.
yeni bir modül oluşturup içerisine alttaki kodları yazdım.
************************************
Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
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***************************************
Açılmasını istediğim formda
Özellikler / Olay / Açıldığında kısmına
*****************************
Call fSetAccessWindow(0)*****************************
kodunu yazdım.
Access i kapatıp açtığımda tam da istediğim gibi sadece form gözüküyor Access penceresi görünmüyordu.
Fakat form üzerine sağ tıklayıp tasarım veya düzen menüsünü aç dediğimde form kapanıyor ve tablolarım dahil hiç bir şeye erişemiyorum.
Access i yeniden başlatmam içinde windows görev yöneticisine girip accessi sonlandırmam gerekiyor.
Bu yaptıklarımı nasıl geri alabilirim ve / veya tablolarıma nasıl geri alabilirim.
