عدم فتح البرنامج اذا كان شغال

[Mohameddd200300]

هل في كود او خدعه علشان لو جا يشغال البرنامج وهو شغال او القاعد في بداية الشغل يعني لسا جا يفتح البرنامج وتاهر كم ثانيه يقوم كثير من المستخدمين بفتح البرنامج مرتين وثلث واربع وهذا يسبب مشكال بنسبه لبرنامجي هل في طريقه لحل هذا المشكلة وشكوا لكم. 

[kkhalifa1960]

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

 

[Mohameddd200300]

صار يلغق البرنامج كل مافتحة   ماصر يفتح ولا مر

[أبوبسمله]

السلام عليكم ورحمه الله وبركاته

اتفضل اطلع المشاركه التاليه لاخى واستاذى العزيز @kanory جزاه الله عنا كل خير

بالتوفيق