Amr Ashraf

القاعدة مقسمة اخى الكريم Splitted اعمل استيراد للجداول من الاصل ثم ارفعها كاملة عشان نعرف نفيدك

السلام عليكم اخوتى مطلوب التعديل على الكود IF التالى بحيث فى حالة توافر الشرط فى اكثر من سجل فى النموذج الفرعى يتم تطبيق النتيجة على كافة السجلات المتوافر بها الشرط وليس السجل المحدد فقط ,, فى المثال المرفق قاعدة بها نموذج رئيسى ونموذج فرعى بالنسبة للنموذج الرئيسى به زر أمر و 3 حقول غير منضمة Unbound وفى زر الأمر حدث عند الضغط On click فى حالة وجود حقل معين فارغ فى النموذج الفرعى فعند الضغط على زر الأمر يتم كتابة القيم الموجودة بال3 حقول الموجودة بالنموذج الرئيسى داخل حقول محددة فى النموذج الفرعى أرجو انى اوضحت الفكرة ,,, مع العلم انى جربت For ولكنها فى حالة انطباق الشرط يتم تطبيق النتيجة على كافة الحقول المنطبق عليها الشرط والغير منطبق عليها ايضاً واسف على الاطالة القاعدة فى المرفقات new.rar

up

السلام عليكم اساتذتى الافاضل مرفق قاعدة بها عدد من الجداول ونموذجين للتعديل على الجداول (Trans_Top و Transactions) وادراج السجلات محل التعديل فى جداول (tbledit1 و tbledit2 ) المطلوب عند تحديد سجل معين للتعديل عليه وقبل حفظ التعديلات يتم الحاق القيم القديمة قبل التعديل فى الجداول tbledit1 و tbledit2 و طبعا بما انها مرتبطة بالجداول الاصلية يتم التعديل مباشرة ولكن الفكرة الحاق القيمة قبل التعديل فى الجداول المخصصة لذلك بالاضافة الى اسم الكمبيوتر الذى قام بالتعديل قمت بالمحاولة بالفعل وموجود الاكواد داخل القاعدة لكن لم استطع اكمال الفكرة شكرا جزيلا New (2).rar

up

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

لم استطع تطبيق الفكرة

اى استعلام تقصد استاذى ؟ مصدر النموذج الفرعى هو جدول Transactions جدول الحركات وليس هناك استعلام SQL فى هذا النموذج ممكن توضيح للفكرة بمثال ؟ جزاك الله خير

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

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

فعلت كما طلبت استاذى لكنها لم تنجح للاسف وجربتها ايضا فى AfterUpdate ولم يحدث شيئ حاولت اعدل على الكود بحيث يكون شكله هكذا Private Sub out_AfterUpdate dim s as string s = DLookup("qty", "order_sub", "code='" & & "' and id='" & Me.Parent!Combo51 & "'") If out <> s Then cancel = MsgBox("?????? ???? ?? ???????") End Sub لكن لم ينفع ايضا ممكن تطبقها على هذا المثال ؟ جزاك الله خير New (2).rar

النموذج كان بداخل مثال لا أتذكره صراحة على العموم مشكور على مرورك استاذى تشرفت بمرورك :)

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

تمام استاذى وبالنسبة لسؤالك لا لن يتكرر صنف واحد فى نفس طلب الصرف ولكنها اصناف اخرى بكميات اخرى ولكن طبعا قد تتساوى الكميات المطلوبة لأصناف مختلفة مثلا مطلوب من الصنف أ عدد 10 ومطلوب من الصنف ب عدد 10 أيضاً عذرا لم افهم هذه الجزئية ولكن الحركات يجب ان تساوى الاصناف والكميات الواردة بطلب الصرف ويفضل انها تكتب تلقائيا بمجرد اختيار رقم طلب الصرف من القائمة ولتغيير الكمية والصنف يضطر مسئول المستودع ان يطلب منى تعديل فى طلب الصرف لتتماشى مع الكمية الموجودة لديه

هل من الممكن اصلاحه لانى محتاج هذا المثال جزاك الله خير

نجحت التجربة اخى الكريم فى مثال ولكن لم تنجح فى المرفق هذا تفضل New Microsoft Access Database.rar

جزاك الله خير يا غالى تم اغلاق الطلب الاول وبالنسبة للطلب الثانى : بالنسبة للقائمة المنسدلة السابق الاشارة اليها يكون بها رقم تعريفى لطلب صرف موجود بجدول "Order_Top" وبه اصناف محددة بكميات معينة المطلوب ربط هذه الاصناف وكمياتها بعملية الصرف بحيث لا يمكن مخالفة نوعية الصنف او الكمية المحددة بطلب الصرف للعلم انا طبقت فكرة قد تقوم بالمطلوب لكنى متشوق لرؤية فكرتك لحل الموضوع :)

تم التجربة وظهرت رسالة الخطأ هذه مشكور يا غالى

السلام عليكم فى المنتدى الكثير من الامثلة المميزة المصممة على أكسس 2003 و نظام 32 بيت وعند تشغيلها تظهر الكثير من رسائل الخطأ منها : There is no object in this Control the code must be updated for 64 bit use Declare Functions مما يمنعنا من الاستفادة القصوى من هذه الامثلة التى صممها خبراء فى الأكسس فطلبى هو هل هناك طريقة لتشغيل هذه الأمثلة على اوفيس 2013 نظام 64 بيت بشكل طبيعى أم لا جزاكم الله خير

فى انتظارك أستاذنا الله يعينك على أشغالك

تمام طريقة رائعة جعله الله فى ميزان حسناتك استاذى

بارك الله فيك أستاذى الغالى منتظرك على شوق :)

يشرفنى مرورك العطر يا أستاذنا الفاضل جعله الله فى ميزان حسناتك بالله أحتاج أفكارك فى هذا الموضوع (الطلب الثانى محيرنا شوية) واقع فى محنة ومش عارف اكمل البرنامج :(

يا صاحب الموضوع لك الشرف ان استاذنا الكبير رمهان رد عليك عسانا ننهل من علمه سلمت يداك أخى رمهان ونحب نشوفك أكتر بتشارك فى المنتدى :)

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