Option Compare Database
Option Explicit


Private Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (lpMutexAttributes As Any, ByVal bInitialOwner As Long, ByVal lpName As String) As Long
Private Declare Function ReleaseMutex Lib "kernel32" (ByVal hMutex As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Sub Check_Mutex()
    Dim hMutex As Long
    hMutex = CreateMutex(ByVal  0 &,  1 , CurrentProject.name)
    If (Err.LastDllError =  183 &) Then
        ReleaseMutex hMutex
        CloseHandle hMutex
'        MsgBox "Приложение уже запущено, нажмите OK для завершения."
        Application.Quit
    End If
End Sub