Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global 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 Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
#End If
 
Function www_access(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, 3)
        Err.Clear
    End If
Else
        loX = apiShowWindow(hWndAccessApp, 0)
End If
www_access = (loX <> 0)
End Function

Option Compare Database
Private Sub Form_Close()
Application.Quit acQuitSaveAll
End Sub
Private Sub Form_Open(Cancel As Integer)
Call www_access(0)
End Sub
Private Sub Komut10_Click()
On Error GoTo Hata
Dim str As String
 .....
hatas:
 
        DoCmd.OpenForm "Frm_Kullanici_Giris", acNormal, , , acFormReadOnly, acHidden
        DoCmd.OpenForm "Form2", , , , , , "Value=" + str
.....
end sub

Private Sub Komut11_Click()
On Error GoTo Err_Komut11_Click
 
 
    DoCmd.Close acForm, "Frm_Kullanici_Giris"
....
end sub