اذهب الي المحتوي
أوفيسنا

abouelhassan

05 عضو ذهبي
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    2944

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    9

 نوع المحتوي 

كل منشورات العضو abouelhassan

  1. abouelhassan
    روائع بارك الله فيكم
  2. abouelhassan
    بارك الله فيك وجزاك الله خيرا يا رب
  3. abouelhassan
    مشكور والله
  4. abouelhassan
    بالانتظار اخى الكريم
  5. abouelhassan
    ماشاء الله تبارك الله
  6. abouelhassan
    استاذى الفاضل هل بالإمكان التركيز على عند انفصال الاتصال يظهر نموذج الاتصال للمستخدم لإعادة الاتصال محتاج جدا هذا التعديل لكثرة الانفصال عن القاعدة الخلفية مشكوووور
  7. abouelhassan
    بارك الله فيك وجزاك الله خيرا
  8. abouelhassan
    شكر وتقدير وفائق الاحترام من اخيك ممتاز
  9. abouelhassan
    لم تظبط اخى مش عارف الخطأ اين
  10. abouelhassan
    هذا المثال نفذته عند التطبيق للثاعدة يظل اول نموذج يخرج تم الاتصال دو ن ظهور النموذج المحدد للمسار A-1.accdb
  11. abouelhassan
    حفظك الله والله عدلت كل شئ تمام كمان عدلت من القاعدة من الاعدادات كانت الدخول ل نموذج الدخول عملتها نون كما فى مثالك بالضبط اجدان عند الفتح نموذج يخرج رسالة تم الاتصال التلقائي لنجاح باستمرار فحصت مثالك تمام ونفذته كلل ما فيه لا ينقلني إلى نموذج تحديد المسار بل يستمر مرارا ويتكرر تم الاتصال بنجاح مشكوووور اخى مش عارف الخطأ اين بس بصراحة مجهود ممتاز ونماذج رائعة لذلك احتاج اضمها لقاعدة بياناتى اسف للاطالة
  12. abouelhassan
    اشكرك اخى موسىالحبيب الملف كبير قاعدة كبيرة جداو ل ونماذج ونموذج الدخول انا طبقت كل شى ما ضبط ارفع مثال لحضرتك
  13. abouelhassan
    نفذت كل شئ وكمان عدلت بيفتح النموذج الاتصال التلقائى وتم الاتصال باستمرار لا ينتقل للنموذج التالى اخى الكريم اين السبب
  14. abouelhassan
    شكر وتقدير واحترام من القلب
  15. abouelhassan
    هذه هى المشكلة بالضبط التى قابلتنى
  16. abouelhassan
    اخى استبدلت الدالة ب 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 وعملت تمام ممكن شرح ما هى النماذج والدوال المطلوب للنثل للبرنامج بتاعى للعمل
  17. abouelhassan
    اسم النموذج Auto Connect FrontEnd V3.0
  18. abouelhassan
    خطأ52 هنا If Dir(TxtPath, vbDirectory) = "" Then وصف الخطأ bAD FILE NAME مع الشكر والتقدير
  19. abouelhassan
    بمجرد فتح البرنامج
  20. abouelhassan
    اخى الكريم الملف من مشاركة حضرتك ملفك هو ما يعطيني خطأ عندم اجربه لاستخدامه فى برنامج مشكورين
  21. abouelhassan
    السلام عليكم اخى فى الله لدى نفس المشكلة خطـأ57 ما سبل الحل اخى Moosak والشكر موصول لاخى واستاذى الاستاذ jjafferr
  22. abouelhassan
    شكر وتقدير اخى الكريم نحتاج شرح ربط الاكسيس بالويب مع الشكر والدعاء من القلب
  23. abouelhassan
    بارك الله فيك اخى الكريم مشكوووووور
  24. abouelhassan
    اخى الكريم احتاج تنفيذ هذا لدى نموذج البدائة هو frmLogin احتاج خطوات التنغيذ على هذا النموذج
  25. abouelhassan
    شكر وتقدير من أخيك
×
×
  • اضف...

Important Information

  I accept