ربط الجداول لمسار المبرمج ، ثم اعادة ربطها بمسار المستخدم

[jjafferr]

وعليكم السلام 🙂

 

وبعد ان اصلحت يدويا في الجدول مسارات قواعد البيانات ، شفت 3 ملفات ما يشوفها البرنامج :

 

.

للتأكد ان الاسم والمسار صح في الجداول ، مقارنه مع مكان الملفات:

.

اخذت اسم الملف الغير ظاهر في النموذج اعلاه (ما كتبته ، وانما عملت له نسخ ولصق) ، علشان يصير عندي المسار كاملا مع اسم الملف :

.

والصقته في VBE ، واذا المشكلة ممتدة الى اسماء الملفات كذلك :

.

وانا على سفر اليوم العصر ، فما بالحق اجرب اكثر ، للأسف 😞

على العموم ، انا قمت بتعديل مرفقك اعلاه ، فاللي يجي ورائي ان شاء يقدر يجرب مباشرة 🙂

 

ولكن ، بغض النظر ، فعملك جبّار وواضح فيه لمسات جميلة ، والكثير ممكن يستفيد منه 🙂

 

جعفر

[Moosak]

أولا :  أشكر لك اللحظات التي بذلتها للتجربة والتصحيح باش مهندس @jjafferr  ..  🌹🎉

مع أني لا زلت ما فاهم أين تكمن المشكلة بالضبط ولا كيف أحلها 😅 لأن الظاهر الأمور شغالة معي تمام ..

ما أدري هل المشكلة تستمر حتى مع استخدام المستعرض لجلب المسار ؟

طبعا هذا ما حصل معي حتى بعد إعادة التسمية ..🤷‍♂️

حتى مع استخدام خاصية نسخ المسار  

على الرغم من ذلك القاعدة تظهر عندي بدون مشاكل 😅

 

ما أدري هل واجه أحد الأخوة نفس المشكلة في هذا الموضوع ؟ 

 

2 ساعات مضت, jjafferr said:

وانا على سفر اليوم العصر ، فما بالحق اجرب اكثر ، للأسف 😞

أسأل الله العظيم رب العرش العظيم أن يحفظك في حلك وترحالك .. 🙂 

واضح جدا أنك مستعجل لدرجة أنك نسيت ترفق الملف  😅

2 ساعات مضت, jjafferr said:

ولكن ، بغض النظر ، فعملك جبّار وواضح فيه لمسات جميلة ، والكثير ممكن يستفيد منه 🙂

يكفيني شرفا هذي الشهادة منك باش مهندس ☺️

 

تم تعديل مارس 22, 2022 بواسطه Moosak

[jjafferr]

1 ساعه مضت, Moosak said:

مع أني لا زلت ما فاهم أين تكمن المشكلة بالضبط ولا كيف أحلها 😅 لأن الظاهر الأمور شغالة معي تمام ..

ما أدري هل المشكلة تستمر حتى مع استخدام المستعرض لجلب المسار ؟

استخدم ملفاتك الاصليه ، افصل الشبكة واشتغل من كمبيوتر ثاني ، وبتظهر لك المشكلة.

اساس المشكلة مو الاكسس ، وانما الوندوز ، فلما حفظت/غيّرت اسماء ملفاتك يدويا ، الوندوز اضاف هذه العلامات اللي ما تنشاف بالعين ، او يمكن انت بدأت تكتب اسم الملف ، واتضح لك انك تكتب بالعربي ، فحذفت الكلمات العربية ولكنك لم تحذف اسم الملف كاملا ، وبقيت التشكيلات التي لا تراها ، ثم واصلت بكتابة الاسم بالانجليزي !!

 

1 ساعه مضت, Moosak said:

على الرغم من ذلك القاعدة تظهر عندي بدون مشاكل 😅

برنامجك يقرأ اللي الوندوز اعطاه 🙂

 

1 ساعه مضت, Moosak said:

واضح جدا أنك مستعجل لدرجة أنك نسيت ترفق الملف  😅

وابويا انا عليك موسى ، صح كنت مستعجل ، لكن ما متدوده ، صاني قلت لك:

4 ساعات مضت, jjafferr said:

على العموم ، انا قمت بتعديل مرفقك اعلاه ، فاللي يجي ورائي ان شاء يقدر يجرب مباشرة 🙂

 

جعفر

[Moosak]

3 ساعات مضت, jjafferr said:

اساس المشكلة مو الاكسس ، وانما الوندوز ، فلما حفظت/غيّرت اسماء ملفاتك يدويا ، الوندوز اضاف هذه العلامات اللي ما تنشاف بالعين ، او يمكن انت بدأت تكتب اسم الملف ، واتضح لك انك تكتب بالعربي ، فحذفت الكلمات العربية ولكنك لم تحذف اسم الملف كاملا ، وبقيت التشكيلات التي لا تراها ، ثم واصلت بكتابة الاسم بالانجليزي !!

الآن فهمت عمي جعفر لما رجعت للملفات وفحصت ومحصت وجربت أنسخ ملفات أخرى 😅🖐🏼️

لكن أليس من المفترض أنه عند نقل الملفات من جهاز إلى آخر أن ينتقل الملف بعلاته ( بالاسم المشوه 😁 ) ويتعامل معاه بنفس الطريقة ؟!

إلى الآن ما جربت أنقله جهاز آخر .. لكني صلحت أسماء الملفات اللي عندي في جهازي 🙂 

3 ساعات مضت, jjafferr said:

لكن ما متدوده

حاشاك عن المدوده .. الظاهر إني أنا اللي كنت متدوده  😂 

الحين وضحت الصورة الحمد لله وسأراعيها مستقبلا 🙂 

رحلة سعيدة موفقة باش مهندس ولا تنسانا من الهدايا 😉

 

معاني الكلمات : المتدوده بالعماني : هو الشخص الغائب عن وعيه وفاقد للتركيز في لحظة ما 🙂 

تم تعديل مارس 22, 2022 بواسطه Moosak

[Moosak]

الآن بفضل الله اتضح أن المشكلة ليست في أصل البرنامج وإنما في أسماء ملفات الـ(BE) ..

وبعد أن قام أستاذنا جعفر @jjafferr مشكورا بإصلاح المسميات ندعوكم أساتذتنا وأحبائنا للتجربة وإبداء رأيكم وملاحظاتكم 🙂 

المرفق والشرح موجود هنا :

 

تم تعديل مارس 22, 2022 بواسطه Moosak

[Bshar]

بارك الله بك وجعله في ميزان حسناتك ، اجمل من رائع  كل الاحترام والتقدير لك

[abouelhassan]

السلام عليكم اخى فى الله لدى نفس المشكلة خطـأ57 ما سبل الحل اخى Moosak والشكر موصول لاخى واستاذى الاستاذ jjafferr

[Moosak]

4 ساعات مضت, abouelhassan said:

السلام عليكم اخى فى الله لدى نفس المشكلة خطـأ57 ما سبل الحل اخى Moosak والشكر موصول لاخى واستاذى الاستاذ jjafferr

وعليكم السلام ورحمة الله وبركاته 🙂 
ضع ملفك هنا أخي @abouelhassan ..

[abouelhassan]

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

[Moosak]

17 دقائق مضت, abouelhassan said:

يعطيني خطأ عندم اجربه لاستخدامه فى برنامج

متى يظهر لك الخطأ تحديدا ؟

[abouelhassan]

بمجرد فتح البرنامج

[ابوخليل]

انا جربت المثال : يعمل على أكمل وجه وبدون أخطاء

العمل جميل واحترافي وفيه الكثير من الافكار والفوائد

ولكن لي وجهة نظر .. حول الحاجة الفعلية العملية لمثل هذه الأفكار . بعيدا عن الكثير من الادوات
ارى لو تم تصميم المثال على النحو التالي :
- استبعاد الكثير من الادوات غير الضرورية من نماذج وغيرها والاكتفاء بنموذج واحد هو نموذج البداية ( الدخول ) فقط فقط  على اساس ان الامثلة تعليمة ميسرة

-  الاكتفاء بقاعدة بيانت خلفية واحدة تكون  بجانب الواجهات ويتم الارتباط بها آليا عند تشغيل البرنامج كل مرة يقلع فيها البرنامج

- تعديل النسخة الاحتياطية بحيث تكون عبارة عن تاريخ وووقت ( Now ) فقط كرقم مثل هذا التنسيق : 202607080253  .. السنة والشهر واليوم والساعة والدقيقة ... ويمكن تركها كتاريخ صريح

على نموذج البداية اربعة ازرار : النسخة الاحتياطية / الارتباط بآخر نسخة / الارتباط بنسخة محددة / العودة أو الارتباط بالنسخة الاساسية

عند اختيار الارتباط بآخر نسخة يبحث اكسس في مجلد النسخ عن آخر تاريخ ويرتبط بها

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

عند اختيار العودة يرتبط اكسسس بالقاعدة الاساسية التي بجانبه

هذه الازرار  يمكن نقلها لأي مكان يراه المبرمج ..

ولكني في البداية قلت انه مجرد مثال تعليمي مبسط .. وعلى اعتبار غالب برامج اكسس تعتمد على قاعدة جداول واحدة

[Moosak]

6 ساعات مضت, ابوخليل said:

ولكن لي وجهة نظر .. حول الحاجة الفعلية العملية لمثل هذه الأفكار . بعيدا عن الكثير من الادوات

أفكار جميلة جدا عمي @ابوخليل 🙂👌

 

ولكن أحب أن  أوضح بأن الأفكار التي وضعتها أنا أو الأستاذ جعفر كانت مبنية على احتياج فعلي في واقع بيئات أعمالنا 🙂 

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

مع إتاحة المجال لاختيار القاعدة المرغوب الاتصال بها من خلال النموذج .. وهذا يحصل غالبا في بيئة التطوير ، حيث أنك كمصمم للبرنامج تحتاج أحيانا للتنقل بسرعة بين القاعدة التجريبية وقاعدة العمل الفعلية .. فكان هذا هو الحل الأسرع ..
 

ليس الهدف الرئيسي من هذا العمل هو استعادة النسخ الاحتياطية المحفوظة كم فهمت من شرحك ، إنما الهدف الرئيسي هو الارتباط بالقاعدة الخلفية الرسمية تلقائيا .. مع إمكانية تمديد الاستفادة من النموذج للارتباط بأحد النسخ الاحتياطية .. 

 

وكمعلومة بالنسبة للنموذج السابق .. فإنني قمت بتطويره في برامجي الفعلية للاتصال بالقاعدة المحلية أو القاعدة المشتركة في الشبكة وكذلك أضفت خدمة استعادة النسخة الاحتياطية كذلك .. 🙂 

 

[ابوخليل]

السموحة اخوي موسى
اذاً  هي للمطورين

زادكم الله علما ونفع بكم

[jjafferr]

وعليكم السلام اخوي ابوخليل

 

اساس الموضوع هو المستخدم:

1. المستخدم عنده  FE مسار للجداول BE (عادة في الشبكة) ، والمطور/المبرمج عنده مسار آخر BE لنفس قاعدة البيانات (مسار محلي D مثلا) ،

2. المبرمج عمل تعديلات ، وبعدها ارسل النسخة التالية من الواجهة الى المستخدم. هنا يقوم الكود/العمل اعلاه باعادة ربط الواجهة الجديدة FE بمسار جداوله تلقائيا.

3. والمبرمج لما يحتاج الى ربط الواجهة الى مساره ، يستخدم الامر التالي ، وتلقائيا يربط بمساره

f_ReLink_To_Original(2)

[Moosak]

منذ ساعه, ابوخليل said:

اذاً  هي للمطورين

 

بل هي للإثنين .. ولكن بواجهة أنيقة سهلة ومفهومة للمستخدم 🙂 

[ابوخليل]

منذ ساعه, Moosak said:

بل هي للإثنين .. ولكن بواجهة أنيقة سهلة ومفهومة للمستخدم 🙂 

رغم اني مقتنع ان المستخدم العادي يكفيه فقط  قاعدة الجداول الرئيسية مع اتاحة الرجوع لنسخة سابقة واحدة

ومع ذلك انا مع المثل الذي يقول .. اذا جاءك اثنان فحك رأسك 

[abouelhassan]

خطأ52  هنا If Dir(TxtPath, vbDirectory) = "" Then   وصف الخطأ bAD FILE NAME  مع الشكر والتقدير

[Moosak]

43 دقائق مضت, ابوخليل said:

المستخدم العادي يكفيه فقط  قاعدة الجداول الرئيسية مع اتاحة الرجوع لنسخة سابقة واحدة

هي في الأصل موجهة للأدمن (مدير البرنامج الرئيسي وليس بالضرورة يكون المبرمج نفسه ربما مدير المؤسسة أو تقني المعلومات في موقع العمل) أو لك كمبرمج لما تقدم دعم فني بالاتصال عن بعد .. ترتاح من الدخول للأكواد .. 🙂 
وكثير ما تحصل المشاكل لما تنقطع الشبكة المحلية تلقة ال FE في جهة وال BE في عالم آخر .. فالمستخدم العادي يتوه .. لكن أنت ستعرف سبب المشكلة من خلال النموذج اللي يظهر لك .. وسيكون سهل عليك تشرح لمدير البرنامج في موقع العمل .. 🙂 

[abouelhassan]

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

[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 وعملت تمام ممكن شرح ما هى النماذج والدوال المطلوب للنثل للبرنامج بتاعى للعمل

 

[abouelhassan]

في 21‏/3‏/2022 at 22:08, jjafferr said:

وعليكم السلام اخوي موسى 🙂

 

فتحت البرنامج ، ورحبت بي رسالة خطأ

.

هذا الرابط يوضح لك ما هي المشكلة

 

.

 

جعفر

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