السلام عليكم ورحمة الله وبركاته
تحيه طيبه للجميع
كود فتح القاعدة
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data SOURCE=" & App.Path & "\XXXXX.mdb" & ";"
طبعا لما ما يكون موجود يقفل البرنامج
كنت اريد ان اتحكم في رد فعل البرنامج من عدم عثوره على القاعده
كيف يكون ذلك
مع خـــــــــــــــــــــــــــــــــــــالص تحياتي ,
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
الحل بسيط الا و هو التأكد أولا من وجود الملف ثم اذا كان يتم تنفيذ الكود
و يكون ذلك كالتالي
If Dir(App.Path & "\XXX.mdb") = "" Then Msgbox "The DataBase Dosn't Exist !!! " else cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data SOURCE=" & App.Path & "\XXXXX.mdb" & ";" End If
Thank U
Very Much :rolleyes:
% crazy-man
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
هذا الموضوع مغلق.