1-ضع هذه الدالة في موديول .
Public Function funFileExists(strPath As Variant, Optional lngType As Long) As Boolean
Dim intTest As Integer
On Error Resume Next 'Ignore errors to allow for error evaluation
intTest = GetAttr(strPath)
'Check if error exists and set response appropriately
Select Case Err.Number
Case Is = 0
funFileExists = True
Case Else
funFileExists = False
End Select
Exit_funFileExists:
On Error GoTo 0
Exit Function
End Function
2-استدعيها بهذا الكود غند حدث فتح الفورم الرئيسي الذي يفتح عليه الرنامج.
' أدخل مسار برنامجك بدلاٍ من هذا
' C:\My Documents\output.Accdb
If funFileExists("C:\My Documents\output.Accdb") Then
DoCmd.Quit
Else
End If