نوشته شده توسط
narpco
سنارویوی بهتر اینه که تو فایل اجرایی برنامه ادرس مشخصی درج بشه و اگر فایل تو اون مسیر نبود اجرا نشه
ساده روان و بدون هدر دادن زمان
سلام
خوب اگر مشکل با چک کردن آدرس حل میشود میتوانید در رویداد لود فرم استارت آپ فایل اجرائی آدرس فایل بانک اطلاعاتی برنامه را درج کنی که اگر فایل در آدرس فوق وجود نداشت برنامه بسته شود
مثلاً فرض کند نام فایل بانک اطلاعاتی test.accdb است و در درایو E قرار دارد
If Len(Dir("e:\test.accdb", vbDirectory)) = 0 Then
MsgBox "xxxxxxxxxxxxxxxx"
DoCmd.Quit
End If
البته بکار بردن این کد برای منظور فوق خیلی حرفه ای بنظر نمیرسد و با کمی خلاقیت میتوان دنبال راه حل بهتری بود