إذا السجل موجود تحديث وإلا إضافة....!

تم تحميل الملف المرفق 11 مرة ...!!!

ولا رد ..... :mellow:

يبدوا ان الأمر عصي جداً ....!!!!؟؟ :blink:

بعد عصر الأفكار في الدماغ من يومين ...

وصلت لهذه النتيجة ...أرجوا من ذويي الخبرة أبداء الملاحظة إن كان هذا الكود خطأ ولكنه يعمل بشكل ممتاز و يفي بما أريد :lol:

في حدث عند التغيير في مربع تحرير وسرد

سيتم الأضافة عندما لايكون السجل موجود و التحديث عندما يكون موجود في الجدول CartIn

ولكن بالنظر للكود أرى أنه خاطيء ...!

لآني كنت قد تحايلت عليه ليقوم بما أريد

عموما.....ما زالت مشكلة رسالة مربع تحرير وسرد قائمة لدي.....هل من أقتراح :sad:

وشكراً

عيسى الشريف كتب:

تم تحميل الملف المرفق 11 مرة ...!!!

ولا رد ..... :mellow:

يبدوا ان الأمر عصي جداً ....!!!!؟؟ :blink:

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

أخي الكريم الأمر ليس عصي ولا دواليب

كل ما هنالك أن سؤالك غير واضح أبداً من أول كلمة لآخر كلمة

يقولون السؤال الجيد هو نصف الجواب

اقتباس

احتاج لميكنة للبحث في سجلات الجدول 1 أستناذاً لقيمة في مربع تحرير وسرد مصدر صفه الجدول 2 ,و في حال وجود السجل المطابق في الجدول 1 للسجل من الجدول 2 يتم تحديث فقط و عند عدم وجوده يتم الأضافة .....

علماً بأن في حال عدم وجود السجل في الجدول 2 يتم فتح نموذج لأضافته في الجدول 2 دون عرض رسالة من مربع التحرير تفيد بأن النص غير موجود ضمن القائمة....؟؟؟

- ما هو الجدول 1

- ماهو الجدول 2

- أين هو مربع التحرير

- ماهو معيار تطابق الجدول 1 للسجل من الجدول 2

- في حال التطابق يتم تحديث فقط !!!!!!@@@؟؟؟؟؟؟؟؟؟؟؟؟؟+(*()(&*)^*:blink:

- في حال عدم التطابق يتم إضافة !!!!!!@@@؟؟؟؟؟؟؟؟؟؟؟؟؟+(*()(&*)^*:blink:

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

إياد بيك كتب:

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

أخي الكريم الأمر ليس عصي ولا دواليب

كل ما هنالك أن سؤالك غير واضح أبداً من أول كلمة لآخر كلمة

يقولون السؤال الجيد هو نصف الجواب

- ما هو الجدول 1

- ماهو الجدول 2

- أين هو مربع التحرير

- ماهو معيار تطابق الجدول 1 للسجل من الجدول 2

- في حال التطابق يتم تحديث فقط !!!!!!@@@؟؟؟؟؟؟؟؟؟؟؟؟؟+(*()(&*)^*:blink:

- في حال عدم التطابق يتم إضافة !!!!!!@@@؟؟؟؟؟؟؟؟؟؟؟؟؟+(*()(&*)^*:blink:

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

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

إياد بيك كتب:

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

أخي الكريم الأمر ليس عصي ولا دواليب

كل ما هنالك أن سؤالك غير واضح أبداً من أول كلمة لآخر كلمة

يقولون السؤال الجيد هو نصف الجواب

- ما هو الجدول 1

- ماهو الجدول 2

- أين هو مربع التحرير

- ماهو معيار تطابق الجدول 1 للسجل من الجدول 2

- في حال التطابق يتم تحديث فقط !!!!!!@@@؟؟؟؟؟؟؟؟؟؟؟؟؟+(*()(&*)^*:blink:

- في حال عدم التطابق يتم إضافة !!!!!!@@@؟؟؟؟؟؟؟؟؟؟؟؟؟+(*()(&*)^*:blink:

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

فعلاً الأمر كان مشوش علي تفكيري ...وأنا أسف أني ما وضحت كويس المطلوب في المثال المرفق لآني كنت أعدته على مضض ....

وأرجوا أنك ما تأخد الموضوع شخصي ....

الجدول 1 و الجدول 2 عنيت بها مجازيا أي جدولين 1 الجدول الأول , 2 الجدول الثاني .....

في حال تطابق السجلين في الجدولين بالمعيار وهو barecode يتم تحديثه في الأول

في حال السجل غير موجود في الجدول الأول يتم أضافته من الجدول الثاني

هل اتضح الأمر أم هناك شيء غير واضح

Creative Man كتب:

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

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

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

و اكرر أسفي عن عدم الوضوح و التسرع في السؤال

وشكراً للنقد

عيسى الشريف كتب:

فعلاً الأمر كان مشوش علي تفكيري ...وأنا أسف أني ما وضحت كويس المطلوب في المثال المرفق لآني كنت أعدته على مضض ....

وأرجوا أنك ما تأخد الموضوع شخصي ....

الجدول 1 و الجدول 2 عنيت بها مجازيا أي جدولين 1 الجدول الأول , 2 الجدول الثاني .....

في حال تطابق السجلين في الجدولين بالمعيار وهو barecode يتم تحديثه في الأول

في حال السجل غير موجود في الجدول الأول يتم أضافته من الجدول الثاني

هل اتضح الأمر أم هناك شيء غير واضح

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

في هذه المناسبة تذكرت بيت من الشعر يقول:

وفسّر الماء بعد الجهد .... بالماءٍ

"يعني ما استفدنا شي "

أنا بصراحة لم أفهم ما قصدته في مشاركتك ... على كل حال يمكن يكون أحد الأعضاء قد توصل إلى فهم ماتريد

أتمنى لك كل التوفيق وسلامي لك وللجميع

إياد بيك كتب:

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

في هذه المناسبة تذكرت بيت من الشعر يقول:

وفسّر الماء بعد الجهد .... بالماءٍ

"يعني ما استفدنا شي "

أنا بصراحة لم أفهم ما قصدته في مشاركتك ... على كل حال يمكن يكون أحد الأعضاء قد توصل إلى فهم ماتريد

أتمنى لك كل التوفيق وسلامي لك وللجميع

هلا إذا كان فهمك بطيء وشرحي سريع, عمو شو بأعملـــــــــــــــــــــــــــــــــك....!!!!!

إذا فهمت وحابب تشرح أهلا وسهلا ما فهمت روح وما في حدا معاتبك خيو ....شو بنــــــــا....!!!!؟؟؟

عيسى الشريف كتب:

هلا إذا كان فهمك بطيء وشرحي سريع, عمو شو بأعملـــــــــــــــــــــــــــــــــك....!!!!!إذا فهمت وحابب تشرح أهلا وسهلا ما فهمت روح وما في حدا معاتبك خيو ....شو بنــــــــا....!!!!؟؟؟

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

أخي لحإجي معك واعتبر يللي قلتو مزح

انت كتبت هالتعليمة العجيبة

Private Sub BARCODE_Change()




If Me.[BARCODE] = DLast("[BARCODE]", "cartin", "[BARCODE]") Then

DoCmd.OpenQuery ("updating")

Else
DoCmd.SetWarnings False
 DoCmd.OpenQuery ("adding")
 DoCmd.SetWarnings True
  End If
 If Me.[BARCODE] = DLast("[BARCODE]", "cartin", [BARCODE]) Then
DoCmd.SetWarnings False
 DoCmd.OpenQuery ("adding")
 DoCmd.SetWarnings True
 Else

 End If

طيب الاستعلام "Adding" شو بيلعب بالظبط ونفس الشي بالنسبة للاستعلام "Updating"

لا تقلي الجدول الاول والتاني ... حدد بالاسم ... عبر ولا ما عبر خيو

إياد بيك كتب:

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

أخي لحإجي معك واعتبر يللي قلتو مزح

انت كتبت هالتعليمة العجيبة

Private Sub BARCODE_Change()




If Me.[BARCODE] = DLast("[BARCODE]", "cartin", "[BARCODE]") Then

DoCmd.OpenQuery ("updating")

Else
DoCmd.SetWarnings False
 DoCmd.OpenQuery ("adding")
 DoCmd.SetWarnings True
  End If
 If Me.[BARCODE] = DLast("[BARCODE]", "cartin", [BARCODE]) Then
DoCmd.SetWarnings False
 DoCmd.OpenQuery ("adding")
 DoCmd.SetWarnings True
 Else

 End If

طيب الاستعلام "Adding" شو بيلعب بالظبط ونفس الشي بالنسبة للاستعلام "Updating"

لا تقلي الجدول الاول والتاني ... حدد بالاسم ... عبر ولا ما عبر خيو

هههههه كلك ظرافة أخي

أنا تقريباً حليت المشكلة تبعـــي

بس أحب أنك تفهمني بس وما تأخد موقف هيك ولا هيك

السطر الأول شرط التحقق و هو بيشوف إذا هالرقم اللي في مربع تحرير وسرد في منو في (cartin) ..إذا فيه ينفذ updating

اللي هو معناتو تحديث السجل من (pro_all) الى (cartin) المطابق للمعيار (BARCODE)

هلا ... إذا ما تحقق الشرط بيعني أنو السجل ما موجود وينفذ adding

الأستعلام adding من أسمو مبين أنو يضيف السجل من الـــ ....ما بدي أقول الجدول الأول ..."حتى ما تزعل " الجدول (pro_all) الى جدول أسمو (cartin) المطابق للمعيار (BARCODE) ... تمام..!!؟

لو وقفنا لهون وبس خيو ....بيكون في مشكلة هو انو ما راح أيضيف أي سجل يوم يكون الــــ..... (cartin) فاضي من السجلات...لاهيك ...حطيت الأستعلام adding مرة ثانية لتحت ... وأضفت السطرين

DoCmd.SetWarnings False

DoCmd.SetWarnings True

ما بين تنفيذ الأستعلام حتى ما يبعت أكسس أي رسالة خطأ ....

هالتعليمة العجيبة ... هاي سوت اللي بدي أيه بالضبظ ..

لهون المشكلة أنحلت

أما مشكلة رسالة مربع تحرير وسرد ....

بدل مربع تحرير وسرد حطيت مربع نص وزر

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

أرجوا أن يكون صدرك رحب لفظاظي حين و سماجتي حين

و بارك الله مسعاك في خدمة الجميع وجزاك به كل ثواب

وشكراً

خيك عيسى الشريف من هونيك ...ليبيا