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

ممكن تعمل Catch Try لمعرفة الخطأ الناتج عن عدم وجود قاعدة البيانات

athen25 كتب:

السادة الكرام

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

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

نامل من الله ثم منكم المساعدة العاجله والله يحفظكم ويرعاكم

ولكم مني فائق الاحترام

السلام عليكم

قم بوضع الكود التالي في حدث الفورم لوود

Private Sub Form_Load()
If Dir(App.Path & "\data\db1.mdb") <> "" Then
	Set db = OpenDatabase(App.Path & "\data\db1.mdb")
	Set rs = db.OpenRecordset("sum1", 2)
Else
	MsgBox "من فضلك تأكد من وجود قاعدة البيانات في مسارها" & vbNewLine & "المسار هو" & vbNewLine & "\data\db1.mdb"
	End
End If
End Sub

تم التعديل على الرابط

http://www.4shared.com/file/NoePkH9e/officecotr.html