فتح ملف او برنامج محمول بمسار قاعدة البيانات

[ابو جودي]

فتح ملف او برنامج محمول بمسار قاعدة البيانات 

يتم كتابة اسم الف او البرنامج كاملا بالامتداد الخاص به فى الجدول الموجود فى المرفق مع وصف له ان اردت وعند التأشير على الفتح فى الجدول 

يتم الفتح والاستعراض مرة واحدة بعد التأكد من وجود الملف اولا فى المسار الخاص بقاعدة البيانات

 

open programs.zip

[محمد صلاح1]

أفكارك جميلة أ محمد بارك الله فيك

ولكن إذا كنت لا أريد إعادة فتح البرنامج مع كل إعادة تشغيل قاعدة البيانات مرة أخري (أي أنه فتح مرة واحد وخلاص أنتهي دوره)

فما هو التعديل المطلوب علي الكود في الوحدة النمطية

[ابو جودي]

Public Function OpeneApp()
On Error Resume Next

    If FileExist = True Then
        If countopen = 0 Then
            'MsgBox ".. سوف يتم فتح البرنامج الان"   'هذه الرسائل فقط للتأكيد يمكنك حذفها
            OpeneApp = Shell(StrPath)
            countopen = 1
            
            Dim StrSql As String
            StrSql = "DELETE tblprograms.* FROM tblprograms;"
            DoCmd.RunSQL StrSql

        ElseIf countopen <> 0 Then
            'هذه الرسائل فقط للتأكيد يمكنك حذفها
            'MsgBox "... تم فتح البرنامج من قبل ولن يفتح مرة اخرى الا بعد اغلاق القاعدة وفتحها"
            Exit Function
        End If
    Else
    'هذه الرسائل فقط للتأكيد يمكنك حذفها
    'MsgBox "لا يوجد ملفات او برامج لفتحها مع النموذج عند الفتح"
        Exit Function
    End If
End Function

 

[محمد صلاح1]

أخي @ابا جودى

بعد نجاح التطبيق تظهر رسالة كما بالصورة المرفقة للتخيير بين ترك مسار البرنامج لأستخدامه كما هو أو حذفه وهذا جيد ولكن هذه الرسالة لن تكون مناسبة خاصة بعد تحزيم البرنامج وجعله قابل للتنصيب فبرجاء تعديل الكود الخاص بحيث يجعل يعمل البرنامج مرة واحدة دون إعادة استخدامه وبدون ظهور رسائل إلي كان ذلك بالإمكان وشكرا لمجهودك وإبداعاتك الطيبة بالمنتدي

 

[محمد صلاح1]

في ٢٦‏/٥‏/٢٠١٩ at 22:20, محمد صلاح1 said:

برجاء تعديل الكود الخاص بحيث يجعل يعمل البرنامج مرة واحدة دون إعادة استخدامه وبدون ظهور رسائل إلي كان ذلك بالإمكان

 

[ابو جودي]

Public Function OpeneApp()
On Error Resume Next

    If FileExist = True Then
        If countopen = 0 Then
            'MsgBox ".. سوف يتم فتح البرنامج الان"   'هذه الرسائل فقط للتأكيد يمكنك حذفها
            OpeneApp = Shell(StrPath)
            countopen = 1
            
DoCmd.SetWarnings False
            Dim StrSql As String
            StrSql = "DELETE tblprograms.* FROM tblprograms;"
            DoCmd.RunSQL StrSql
DoCmd.SetWarnings True

        ElseIf countopen <> 0 Then
            'هذه الرسائل فقط للتأكيد يمكنك حذفها
            'MsgBox "... تم فتح البرنامج من قبل ولن يفتح مرة اخرى الا بعد اغلاق القاعدة وفتحها"
            Exit Function
        End If
    Else
    'هذه الرسائل فقط للتأكيد يمكنك حذفها
    'MsgBox "لا يوجد ملفات او برامج لفتحها مع النموذج عند الفتح"
        Exit Function
    End If
End Function