مشكله عند الاستيراد

[ابو ياسين المشولي]

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

اخواني مشرفي واعضاء المنتدى الكرام

عندي مشكله عند عمل استيراد

يحذف بينات جدول المشتريات والمرتجع وجدول transaction

ولا عرفت ايش السر

واتوقع انه يوجد علاقه بهما باكثر من جدول 

ارجو افادتكم ولك مني جزيل الشكر

اخوكم ابو ياسين

بـرنـامـج خـيـاط.rar

[ابو ياسين المشولي]

للرفع

[ابو ياسين المشولي]

للرفع

[ابوخليل]

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

 فكلامك صحيح ومشكلتك  بسبب العلاقات

فيلزم لحل المشكلة ان يتم الاستيراد على خطوات بالترتيب :

1- حذف العلاقات في القاعدة المرتبطة

2- حذف البيانات في القاعدة المرتبطة

3- جلب البيانات من القاعدة النسخة

4- جلب العلاقات من القاعدة النسخة

وهذا ماتم عمله في مثالك المرفق

اتمنى ان يلبي حاجتك

بـرنـامـج خـيـاط.rar

[ابو ياسين المشولي]

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

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

 فكلامك صحيح ومشكلتك  بسبب العلاقات

فيلزم لحل المشكلة ان يتم الاستيراد على خطوات بالترتيب :

1- حذف العلاقات في القاعدة المرتبطة

2- حذف البيانات في القاعدة المرتبطة

3- جلب البيانات من القاعدة النسخة

4- جلب العلاقات من القاعدة النسخة

وهذا ماتم عمله في مثالك المرفق

اتمنى ان يلبي حاجتك

بـرنـامـج خـيـاط.rar

الف الف شكر استاذ ابو خليك ربي يحفظك

[ابو ياسين المشولي]

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

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

 فكلامك صحيح ومشكلتك  بسبب العلاقات

فيلزم لحل المشكلة ان يتم الاستيراد على خطوات بالترتيب :

1- حذف العلاقات في القاعدة المرتبطة

2- حذف البيانات في القاعدة المرتبطة

3- جلب البيانات من القاعدة النسخة

4- جلب العلاقات من القاعدة النسخة

وهذا ماتم عمله في مثالك المرفق

اتمنى ان يلبي حاجتك

بـرنـامـج خـيـاط.rar

استاذي ابو خليك جزاك الله خير ماقصرت

هو المطلوب ولكنه فيه نقص شوي

اي انه لم يراء العلاقات ثم يعيدها لولحظت جدول transaction

مربوط بجدول المشتريات وجدول المرتجعات وجدول اقمشة

وعند الاستيراد مرة يستورد بدون ربط العلاقات

مرة ومرة اخرى بدون بدون ربط كامل العلاقات

ياليت تتفحص اين المشكلة

[ابوخليل]

ابو ياسين نريد نفهم ليش تنتهج هذه الطريقة .. الى الآن لم توضح لنا ذلك ؟

مع ان المسألة كلها نسخ احتياطية . ويتم استرجاعها

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

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

فما بالك بحذف العلاقات  ؟

 

 

[ابو ياسين المشولي]

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

ابو ياسين نريد نفهم ليش تنتهج هذه الطريقة .. الى الآن لم توضح لنا ذلك ؟

مع ان المسألة كلها نسخ احتياطية . ويتم استرجاعها

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

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

فما بالك بحذف العلاقات  ؟

 

 

هههههههه

استاذي لانه كل 3 اشهر احذف البيانات واعتمتد من جديد

هذا كل شي على العموم والله انك ماقصرت

وانا بحاول فيها اظن في شي لم افهمه ربما يكون من عندي الخطاء

برجها خلال يومين وبيتضح الامر

اكرر شكري لك

[kaser906]

16 دقائق مضت, ابو ياسين المشولي said:

هههههههه

استاذي لانه كل 3 اشهر احذف البيانات واعتمتد من جديد

هذا كل شي على العموم والله انك ماقصرت

وانا بحاول فيها اظن في شي لم افهمه ربما يكون من عندي الخطاء

برجها خلال يومين وبيتضح الامر

اكرر شكري لك

من بعد أذن استاذنا ابو خليل

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

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

كما قال استاذنا  انت لست بحاجة الى حذف البيانات كل ما تحتاجه

قاعدة بيانات خلفية فارغة وتعيد الارتباط بها وتبقى بياناتك كماهي

[ابو ياسين المشولي]

يا اخوان انا عارف والله ان طريقتي ما تعجبكم

بس بحب اوضح لكم شي

انا عامل عند الاقلاع انه يقلع من مجلد البرنامج بالدي

وعندما ادخل بينات ت

Public Function acbRelink(strPath As String, Optional blnSilent As Boolean) As Boolean
   On Error GoTo alalal
    Call SysCmd(acSysCmdSetStatus, "Re-linking the data tables...")
    Set DB = CurrentDb()
    For Each tdf In DB.TableDefs
    If (tdf.Attributes And dbAttachedTable) = _
    dbAttachedTable Then
    tdf.Connect = ";DATABASE=" & "D:\بـرنـامـج الـخـيـاط\data\tailor"
    tdf.RefreshLink
    End If
    Next
    Call SysCmd(acSysCmdClearStatus)
    If blnSilent Then
    MsgBox " تم العوده الى النسخه الأصليه مره أخرى  ", vbInformation, " بـرنـامـج الـخـيـاط : النسخه الأصليه  "
    End If
alalal:
    If err.Number = 3024 Then
    MsgBox "     عفوا مجلد البيانات تم نقلة أو أعادة تسميتة " & Chr(13) & "                لذا سوف يتم اغلاق البرنامج " & Chr(13) & " رجاء أذهب الى مصدر البرنامج وتأكد من وجود مجلد باسم " & Chr(13) & "             بجوار ملف بـرنـامـج الـخـيـاط  tailor  ", vbYes, " بـرنـامـج الـخـيـاط : خطــــــأ "
    DoCmd.Quit
    End If
End Function

حفظ بالدي

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

انا لست خشيم الى هذة الدرجه

كل واحد المهم الاستاذ ابو خليل بارك الله فيه جاب المطلوب وما قصر

بقلى شي قليل اظن انه حله بسيط ليس صعب وقد يكون الخطاء مني انا

[ابوخليل]

طيب .. نقول العاقل خصيم نفسه

  اذا عندي لك طريقة محكمة 

وسهلة جدا  

انتظرني ...

[ابو ياسين المشولي]

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

طيب .. نقول العاقل خصيم نفسه

  اذا عندي لك طريقة محكمة 

وسهلة جدا  

انتظرني ...

انا في انتظارك استاذي ماقصرت من اول الموضوع وانت من جاب الطلب وانا ممنون لك ربي يحفظك

[ابوخليل]

تفضل

 

بـرنـامـج خـيـاط2.rar

[ابو ياسين المشولي]

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

تفضل

 

بـرنـامـج خـيـاط2.rar

تسلم استاذي ابو خليل 

بس هذة خطيرة جدا

الاولى افضل بنسبة 95 %

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

[ابوخليل]

لا يوجد فارق في الخطورة  بل الاخيرة محكمة واضمن بعدم حدوث الأخطاء

الاولى : أول خطوة  يتم فيها هو حذف جميع البيانات  وهذا يكفي 

الطريقة الثانية يتم استبدال القاعدة  بالكامل  وكلا الطريقتين بالفناء سواء  

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

[ابو ياسين المشولي]

1 دقيقه مضت, ابوخليل said:

لا يوجد فارق في الخطورة  بل الاخيرة محكمة واضمن بعدم حدوث الأخطاء

الاولى : أول خطوة  يتم فيها هو حذف جميع البيانات  وهذا يكفي 

الطريقة الثانية يتم استبدال القاعدة  بالكامل  وكلا الطريقتين بالفناء سواء  

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

استاذي ابو خليل الاولى اذا كان اسماء الجداول او الحقول فيه اي اختلف يرفض حذف ويخرج

لكن الاخير تحذف اي حاجه واي قاعده

على العموم انت عملت مجهود كبير جدا في الاولى والاخير

بس انا افضل الاولى بعشرة اضعاف عن الاخير

لو تشرح لي الاكواد استاذي

ممكن نجد لها حل

تلميذك عنده سنه اولى متوسط في التعليم

لذلك يواجهني تعب بفهم الكود حتى اتجاوز اخطائه

[ابوخليل]

اقتباس

الاولى اذا كان اسماء الجداول او الحقول فيه اي اختلف يرفض حذف ويخرج

طيب اذا في الأولى كود مسؤول عن المقارنة والتأكد من الاختلاف فهذا تمام  انقله واستخدمه في الثانية 

 

 

[ابو ياسين المشولي]

مانفع استاذي ابو خليل

هو كان هذا

 On Error GoTo MyErr

Exit Sub
MyErr:
MsgBox " مصرح بإسترجاع البيانات المنسوخه أو المحفوظه  " & Chr(13) & "  عن طريق  ( بـرنـامـج الـخـيـاط )  فقط  ", vbInformation, "         بـرنـامـج الـخـيـاط : خطــــــــأ "
 

شوف حاول تحذف اي خانه في اي جدول وشوف لم يقبل

او حاول تستورد من اي قاعده لم يقبل