وعليكم السلام   هاي مختصر المطلوب 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 & _