الترحيل الجزئي و الكلي للسجلات من فورم فرعي بناء علي شروط

السلام عليكم

الأخ العزيز محمد

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

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

شاكر لك جدا وجزاك الله خيرا

أخي لم أفهم ( أنه لا يقوم بالترحيل )

أنزلت المثال

و علي ما أفهم أن الترحيل يتم - فبرجاء التوضيح

أدخل قيمة فى خانة المنفذ و جرب الترحيل

أدخل قيمة فى خانة المنفذ ( ثم اضغط علي زر تنفيذ )

فى انتظار ردك

مع تحياتي

أخي محمد

نعم قمت بأنزال البرنامج وادخال قيمة في المنفذ وضغط تنفيذ ولكنه لا يعمل ..

والله هذا ما حدث وجربت أكثر من مرة

جربت ثانية

ووجدته يعمل !! :confused:

هل من الممكن ان تجرب علي جهاز آخر

أو تعيد التنزيل و فك الضغط في مكان آخر

فربما إختلطت النسخ

ربما يكون المقصود بيننا مختلف ؟؟

انا أقصد أنه مثلا من إجمالي 190 اذا كتبت منفذ 100 يتم اظهار مشاركة جديدة لها قيمة 90 و منفذ صفر .. و هذا بالنسبة لأي عدد من السجلات

هل هذا هو المقصود ؟؟

اذا كان كذلك فهذا يحدث :)

اما اذا كان المقصود شيئا آخر فأرجو التوضيح :confused:

نعم هذا هو المقصود بالتحديد ولكن هذا لا يحدث .. قمت بعمل فك على جهاز أخر وكذلك Compact and repair للداتابيز ولكن للأسف دون جدوى

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

منتظر التوضيح

أنزلت الملف فى الرابط السابق

و كان ظاهر به 3 سجلات

وضعت منفذ 10 فى كل من الثلاثة

و ضغطت تنفيذ

فكانت النتيجة هكذا

فانزل المثالين و لاحظ فرق الارقام

و هذا نتيجة وضع منفذ 10 فى كل من الثلاث سجلات الظاهرة

test3_reaganet.rar

للأسف لا يعمل عندي :'(

جربت على حوالي 5 اجهزة بنسخ مختلفة من الأكسس 2000 و XP وكذلك 97 ولكن بدون جدوى ..

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

طيب هل تأثير تنفيذ ال 10 سليم بين المثالين ؟؟

سأجرب غدا علي جهاز آخر بإذن الله

و مالدي الان

هو اوفيس اكس بي

مع ويندوز اكس بي

مع تحياتي

نفس النظام الذي أعمل عليه هنا Win Xp و Office Xp وكن للأسف لا نتيجة مع هذا الملف ..

هل أثقل عليك اذا طلبت منك تحميل الملف القديم Test2-Reagent ومسح الأشياء التي قمت بتعديلها أخر مرة ثم عمل Import لها من الملف الجديد لعل وعسى قد يجدي بشئ ..

انا عندي Test2-Reagent هذا يعمل بصورة جيدة ولكن مشكلته هي النسخ مرتين عند الترحيل لثاني مرة وكذل مشكلة نسخ الشراء بدون اي تنفيذ اقوم به ..

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

أخوك أحمد سعيد

أخي محمد

هل من جديد ؟؟؟

ما زلت ابحث عن سر هذه المشكلة ولكن دون جدوى

منتظر اي أخبار جديدة

ساعد مثال مشابه ، من البداية و بصورة مبسطة ، و أوضح الفكرة من البداية علي هذا الملف

و بذلك يكون فائدته أكبر ليستفيد منه عدد أكبر من الأخوة

و سأضعه قريبا بإذن الله

الأخ الكريم محمد

السلام عليكم ورحمة الله

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

ولكن لي رجااااااء خاص هو اني اريد ان انتهي من هذا البرنامج في اسرع وقت ممكن حيث انه سبب لي في مشاكل كثيرة ليس لي اي علاقة بها :o

جزاك الله خيرا وفي انتظار الرد

test.zip

بما أنك وضعت المثال ثانية

فسأحاول مرة أخري معه :(

استبدل الكود فى زر تنفيذ بالآتي

Private Sub Command26_Click()

DoCmd.SetWarnings False

DoCmd.RunSQL "INSERT INTO Trans ( [No], NIN, [comp], Sttotalno,  price, Perform, type, Period )" & _

"SELECT NonCompleted.[no], NonCompleted.NIN, NonCompleted.comp, NonCompleted.rem,  NonCompleted.price, NonCompleted.Perform, NonCompleted.type, NonCompleted.Period FROM NonCompleted WHERE (((NonCompleted.Perform)=False));"

DoCmd.RunSQL "UPDATE Trans SET Trans.Perform = True WHERE (((Trans.Sttotalno)>[Trans]![stdone]) AND ((Trans.stdone)>0));"

DoCmd.SetWarnings True

Forms![äãæÐÌ1]![qur1].Form.Requery

End Sub

و الفرق هو اضافة شرط أن perform <> False

اذا لم يكن مناسبا فيبدو أنني لا أفهم ما تريد :(

و سأضع بإذن الله اذا لم يفي الملف المرفق بالغرض مثال مبسط يوضح عمليات الترحيل و طرق التعامل معها ، و عليك بتطبيقه علي مثالك ، أو أن توضح لي أكثر ما المشكلة

test_reaganet5.rar

الأخ العزيز محمد

انت تفهم ما اريد بالفعل وقد قمت بعملع في المثال الأعلى test2-reagent وهو هذا بالفعل ما اريد بكل تفصيل ولكن كان به خطأ وهو انه يقوم بعمل الترحيل مرتين اي نسخ البيان مرتين ..

ولكن المثال الخير وكذلك المثال test3-reagent فلا يعملوا ولا يتم عمل ترحيل نهائيا بهم ولا أعلم ما السبب فقمت بالتجربة على اكثر من جهاز و لكن لا فائدة لا يتم عمل ترحيل نهائيا والله

اسف لك ولكن حاول مساعدتي لحل هذا العيب البسيط فقط

تحياتي لك

المشكل أخي العزيز هي أني متخيل أن الترحيل يتم فى المثالين

لدي اقتراح

انزل الملف السابق رقم 5 ثانية

و كما هو موجود أدخل البيانات التي تريد ، ثم خذ لقطة للشاشة قبل الضغط علي زر تنفيذ

و لقطة أخري بعد الضغط علي الزر

و أخبرني علي الارقام مباشرة ، ماذا كنت تتوقع أن تري و لم يحدث

و أرفق اللقطتين

مع تحياتي

الأخ محمد

اسف على كل هذا المجهود والتعب اللي سببته لك

اليك التفاصيل بالصور

1- بعد ادخال الرقم المطلوب تنفيذه وقب الضغط على تنفيذ كانت كما يلي

2- بعد الضغط على تنفيذ كانت النتيجة

3-المفروض ان يكون هو

المفترض هو ما يحدث معي تماما سواء في آخر ملف أو ما قبله !!!

طيب لنبحث سبب الفرق ، نسخة الاكس بي التي أعمل عليها هلي النسخة ذات واجهة التطبيق الانجليزية ، فهل ما لديك هي واجهة التطبيق العربية ؟؟

إقتراح

جرب اسبدال كلمة False فى الكود الموجود فى زر تنفيذ ب 0 أي صفر

أي :

WHERE (((NonCompleted.Perform)=0));"

كما فى الكود فى الأدني :

المفترض من الكود الموجود فى هذا الامر أنه يقوم بعمل شيئين

الاول هو اضافة سجل جديد الي الجدول يمثل الفرق ، فبصرف النظر عن النموذج

إفتح الجدول و شاهد هل تم إضافة السجل الجديد أم لا ؟؟

كود الجزء الاول

DoCmd.RunSQL "INSERT INTO Trans ( [No], NIN, [comp], Sttotalno,  price, Perform, type, Period )" & _

"SELECT NonCompleted.[no], NonCompleted.NIN, NonCompleted.comp, NonCompleted.rem,  NonCompleted.price, NonCompleted.Perform, NonCompleted.type, NonCompleted.Period FROM NonCompleted WHERE (((NonCompleted.Perform)=0));"

الجزء الثاني يقوم بتفعيل اختيار الحقل perform الموجود فى السجل السابق علي الترحيل

و يبدو أن هذا يحدث لأن السجل لا يظهر فى النموذج و لكن تأكد علي تم تغيير قيمة هذا الحقل فى السجل الأصلي أم لا ؟؟

كود الجزء الثاني

DoCmd.RunSQL "UPDATE Trans SET Trans.Perform = True WHERE (((Trans.Sttotalno)>[Trans]![stdone]) AND ((Trans.stdone)>0));"

الاقتراح الثالث

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

من قائمة debud فربما كان هناك مشكلة فى مكان ما فى الكود

و أخبرني أين يتوقف الكود اذا توقف

الاقتراح الرابع

جرب علي جهاز محمل عليه فيجوال بيزيك

الاقتراح الخامس

راجع قائمة المراجع

من

Tools

Preferences

هل بها شيء missing

ثم هل هي مطابقة لهذه

النسخة التي أعمل عليها هي ذات واجهة الأنجليزية

سوف اجرب كل هذا يوم السبت إن شاء الله لأني أجازة اليوم و لا أملك جهاز إلا في العمل وانا هنا لظروف طارئة ..

عاجز عن الشكر وسأخبرك بالنتيجة يوم السبت إن شاء الله

جزاك الله خيرا

:mad:

زعلان ليه يا أخ فيصل :)

و بالاضافة الي الاقتراحات السابقة هذا تعديل آخر للمثال

به زر جديد للتنفيذ

المثال الذي به التعديل الاضافي

فبالاضافة الي الزر الذي يعمل بالكود ، و الذي أظنه يعمل جيدا

هذا بجانبه زر آخر يقوم بتنفيذ نفس المهمة عن طريق ماكرو

و الماكرو يشغل استعلام إضافة و يليه استعلام تحديث

و لكن بعد التنفيذ من خلال زر الماكرو ، اضغط F9 ليحدث refresh

أخبرني عن نتيجة الاقتراحات السابقة بالاضافة الي هذا المثال

مع تحياتي

test_reaganet6.rar

السلام عليكم

أعتذاري للاخ فيصل ولكن السبب هو السرعة ..

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

قمت بتغيير من false to 0 ولكن لا نتيجة

وال referance نفس التي قمت بأرسالها

قمت بأنزال VB Run Time ولكن دون جدوى

قمت باظهار code ولكن لا يمكن اصلا تشغيل Combile اي ان ليس هناك اي خطا في الكود..

لي اقتراح بسيط ..

الملف Test2-Reagent الذي قمت بارساله من قبل يعمل بشكل جيد مع وجود المشاكل التي ابلغتك بها من قبل فهل ممكن مقارنة الملفين ومعرفة ما هو سبب الخطأ وما السبب الذي يمكن ان يوقف عمل البرنامج ؟؟

لك مني كل الشكر وفي انتظار الرد ان شاء الله

مش ممكن ..

ايضا هذا لا يعمل ..

والله انا ما عارف اقول ايه ..

:(

قمت بعمل setup for access 2000 على جهاز جديد مع windows.Net Server ولكن ما زالت نفس المشكلة ..

جربت على أكثر من خمسة أجهزة منها ما يحمل access 97 ولكن دون جدوى والله مش عارف اقول ايه

بس الغريب جدا جدا ان البرنامج السابق test2-reagent يعمل على اي جهاز من الأجهزة هذه .. فترى ما الفرق !!!!!!!!!!

هل تنصحني بعمل setup ل SQL server على الجهاز ربما يكون هذا مطلوب ؟؟

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