abouelhassan

مشكور والله

بالانتظار اخى الكريم

ماشاء الله تبارك الله

استاذى الفاضل هل بالإمكان التركيز على عند انفصال الاتصال يظهر نموذج الاتصال للمستخدم لإعادة الاتصال محتاج جدا هذا التعديل لكثرة الانفصال عن القاعدة الخلفية مشكوووور

بارك الله فيك وجزاك الله خيرا

شكر وتقدير وفائق الاحترام من اخيك ممتاز

لم تظبط اخى مش عارف الخطأ اين

هذا المثال نفذته عند التطبيق للثاعدة يظل اول نموذج يخرج تم الاتصال دو ن ظهور النموذج المحدد للمسار A-1.accdb

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

اشكرك اخى موسىالحبيب الملف كبير قاعدة كبيرة جداو ل ونماذج ونموذج الدخول انا طبقت كل شى ما ضبط ارفع مثال لحضرتك

نفذت كل شئ وكمان عدلت بيفتح النموذج الاتصال التلقائى وتم الاتصال باستمرار لا ينتقل للنموذج التالى اخى الكريم اين السبب

شكر وتقدير واحترام من القلب

هذه هى المشكلة بالضبط التى قابلتنى

اخى استبدلت الدالة ب Public Function IsFileExists(ByVal TxtPath As Variant) As Boolean On Error GoTo ErrHandler Dim sPath As String sPath = Trim$(Nz(TxtPath, "")) 'إزالة علامات الاقتباس sPath = Replace(sPath, """", "") If Len(sPath) = 0 Then IsFileExists = False Exit Function End If If Dir(sPath, vbDirectory) <> "" Then IsFileExists = True Else IsFileExists = False End If Exit Function ErrHandler: Debug.Print "IsFileExists Error" Debug.Print "Path = [" & sPath & "]" Debug.Print Err.Number & " - " & Err.Description IsFileExists = False End Function وعملت تمام ممكن شرح ما هى النماذج والدوال المطلوب للنثل للبرنامج بتاعى للعمل

اسم النموذج Auto Connect FrontEnd V3.0