كيفية التحقق من امتداد قاعدة البيانات

[Amr Ashraf]

السلام عليكم

اساتذتى الافاضل محتاج طريقة للتحقق من امتداد قاعدة البيانات فاذا كانت Accdb تظهر رسالة "لم يكتمل التثبيت وجارى الخروج من البرنامج " اما اذا كانت بصيغة Accde تفتح على النموذج الرئيسى بطريقة عادية وذلك كجزء من طريقة عند اتمامها سأشرحها على المنتدى لعلكم تستفيدون منها ... جزاكم الله خير 

 

[Amr Ashraf]

up

[jjafferr]

 

وعليكم السلام

 

هاي مختصر المطلوب

    AppPath = Application.CurrentDb.Name
    AppName = Application.CurrentProject.Name
    AppExt = Mid(AppName, InStrRev(AppName, ".") + 1)
    
    MsgBox AppPath & vbTab & " اسم ومسار قاعدة البيانات " & vbCrLf & _
           AppName & vbTab & " اسم قاعدة البيانات " & vbCrLf & _
           AppExt & vbTab & " صيغة قاعدة البيانات "
           
'or

    MsgBox Application.CurrentDb.Name & vbCrLf & _
           Application.CurrentProject.Name & vbCrLf & _
           Mid(Application.CurrentProject.Name, InStrRev(Application.CurrentProject.Name, ".") + 1)
           

 

جعفر

[Amr Ashraf]

30 دقائق مضت, jjafferr said:

هاي مختصر المطلوب

تمام جزاك الله خير استاذى ... هو المطلوب