شايب

10 ساعات مضت, محمد سعيد رشاد said:

من سنتين عملت علاقه اطراق اطراف بين  الحقلين السابقين ال autonumber

اخونا شايب يعتقد ان عمل علاقة اطراف باطراف يتطلب وجود جدول ثالث يكون بمثابة الوصل بين الجداول

وبالتالي علاقة اطراف باطراف في حقيقتها هي علاقتي راس باطراف وراس باطراف

10 دقائق مضت, ازهر عبد العزيز said:

لكن ممكن شرح لطريقتك وماذا يقصد ب 

الزر النشط اي المستخدم حاليا

والفكرة باختصار في عالم البرمجة نتجنب تكرار الامر كلما امكن ذلك

مشاركة مع الاستاذ ابو خليل

الفكرة ان نستغني عن تكرار الامر بعدد الازرار وبدون الحاجة لكتابة اسم زر الامر

عن طريق عمل اجراء نعلى النحو التالي

Sub x()
LabelNameText = ActiveControl.ControlTipText
End Sub

ثم في زر الامر نشير لاسم الاجراء فقط

x

الملف مرفق

اخونا الشايب

LabelName.accdb

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

مبارك عليك اخي الحبيب    @محمد احمد لطفى      الترقية الى قائمة الخبراء  .. تستاهل اكثر

الف مبروك للاستاذ محمد

طريقة اخرى مختصرة باستخدام دالة العد

الشايب

Database1.accdb

23 دقائق مضت, Hamtoooo said:

مثلا عندما يكون حقل القسم فارغ يتم عرض كافة الاقسام 

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

[Forms]![a_f_date]![القسم]

الى المعيار التالي

IIf(Len([Forms]![a_f_date]![القسم] & "")=0;[القسم];[Forms]![a_f_date]![القسم])

الملف مرفق

اخونا الشايب

frzz.accdb

6 ساعات مضت, Foksh said:

صح ولا أنا لسه مصدومة بجد ومش بنطق ولا عارفة أرُد

👀

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

DoCmd.OpenReport "Rep1", acViewDesign, , , acHidden

تمام يا استاذنا بارك فيكم ولكم

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

في 10‏/5‏/2013 at 21:53, ابوخليل said:

اكتب في قناع الادخال 12 صفر  هكذا : 000000000000

مشاركة بسيطة

كثير من المستخدمين لا يحبذوا استخدام قناع الادخال

وكذلك اخونا الفاضل شايب يتجنب ذلك

لذا ممكن وضع الامر التالي في حدث بعد التحديث للحقل المطلوب او اي حدث زر حفظ او ...

If (Not IsNumeric([الحقل]) Or Len([الحقل]) <> 12) Then
MsgBox "هذا الحقل يقبل ارقام بعدد 12 رقم"
Me.Undo
End If

وهنا نضع شرط اذا كان الادخال ليس ارقام او ان عدد الارقام لا يساوي 12 اخرج الرسالة

الشايب

لم انتبه الى تاريخ المشاركة

اعتذر من الجميع

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

بريمج صغير لتقييم اداء الموظفين

رائع جدا وينفع ان يكون انطلاقة لعمل اشمل بحيث يعدل ليكون متوافق مع لائحة ادارة الوظيفي

والتي تعتمد مبدأ تقييم الموظف وفقا لما حققه من

الأهداف والجدارات والوزن النسبي والناتج المستهدف لكل هدف

وجدارة وفق ميثاق الأداء والذي يتم توقيعة مع الموظف في بداية دورة الاداء

26 دقائق مضت, بونس الخطابي said:

جزاكم الله عنا خير الجزاء وجعل ذلك في ميزان حسناتكم

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

والله يقضي بهبات وافرة .. لي ولكم في درجات الآخرة

الاخ الشايب

53 دقائق مضت, بونس الخطابي said:

الفقره 1 لازال الترقيم التلقائي يتكرر الرقم مرتين  في النموذج الذي هو على شكل ورقة بيانات وحتى في مقطع الفيديو ظهر الرقم 7 مكرر

اجعل الترقيم في حدث بعد التحديث لحقل الاسم وليس القيمة الافتراضية للحقل

ترقيم يومي.accdb

41 دقائق مضت, بونس الخطابي said:

اما 2 توقف المؤشر في حقل الاسم وعدم انتقاله الى حقل اخر  عند الضغط على مفتاح انتر لازالت قائمه ولاينتقل الموشر الى حقل اخر الا بالماوس او بالضغط على مفتاح تاب . 

غير سلوك مفتاح الادخال الى افتراضي

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

فالمبيع مبيع / والمشتريات مشتريات  / والمرتجع مرتجع

بارك الله فيك استاذنا الفاضل وقد أسفر الصبح لذي عينين

31 دقائق مضت, الحلبي said:

البضاعة فى هذا الفرع ثمنها كام فقط ام مسألة الضريبة وماشابه فانه يتم حسابها فى الادارة الام يحسب كل شئ

احسنت استاذي واخي د.محمد

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

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

10 ساعات مضت, Foksh said:

ولكن عند حساب الكمية الحالية x السعر يكون المبلغ مختلف

اي سعر هل هو سعر البيع ام سعر الشراء

وهل هناك صنف تم توريده باكثر من سعر

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

710 + 8 = 718
70+32 = 102
718-102 = 616

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

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

وجهة نظر

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

منضم : من الانضمام والارتباط وتنطق  بضم الميم وتسكين النون  وفتح الضاد بدون تشديد

نعم احسنت وغلطة الشايب بعشرة 🌹

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

كيف تستخدم جمل SQL كمصدر لحقل غير منظم في النموذج ؟ ..... أو كحقل محسوب في الاستعلام ؟

السؤال ايضا لابي جودي ولكن الاخ شايب ملقوف بعض الشيء

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

اقتباس

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

الخلاصة دوال D تسهل العمل وتحقق المطلوب باسهل الطرق وسواء كانت استعلام او جزء من استعلام فان الافضل استخدامها يكون وفقا لمتطلبات العمل

والاخ شايب يعتقد ان البعض يفرط في استخدامها للحصول على قيمة حقول ليست ذات فائدة او ليست مطلوبة قي النموذج

مرفق صورة لاستخدام ثلاث نماذج فرعية مبني كل نموذج منهم على استعلام بينما دالة DSUM تغني عنها

اخيرا لا ننتقد عمل اي من الزملاء ولكن نحاول تصحيح بعض المفاهيم وتبقى وجهة نظر غير ملزمة

الشايب

21 دقائق مضت, Moosak said:

أليست دوال DLookup وأخواتها عبارة عن جمل SQL مبسطة على شكل Function في الواقع ؟

مع ان السؤال للاستاذ محمد لكن نعم هي استعلام

ولها استخداماتها كما اشرتم

منذ ساعه, شايب said:

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

وهنا اقصد يمكن الاستغناء عنها في الاستعلامات لما تسببه من تاخير في تنفيذ الاستعلام وبالذات عندما يكون لدينا عدد كبير من البيانات واستخدام اكثر من استعلام يمكن الاستغناء عن بعض دوال تجميع المجال

المايك للاستاذ محمد للاجابة عن السؤال

37 دقائق مضت, Mohamed Khaled Galal said:

وهذا هو الكود النهائي ولكن اريد ان اضيف عليه الChild لان مربع نص التحقق بداخله وليس في النموذج الرئيسي

لا تجعل الجدول BundleDataOut هو النموذج الفرعي وانما اعمل نموذج اضافي مصدرة الجدول BundleDataOut وبالامكان جعل النموذج الجديد يعرض على شكل ورقة بيانات ثم ضع الكود في حدث بعد التحديث للحقل BundleCode وسوف يعمل الكود

انظر للفيديو ⬇️

16 دقائق مضت, gavan said:

ولكن يوجد مشكلة حين يكون الجدول فارغ من المعلومات وفتح النموذج يعطي رسالة خطا كما في الصور ادناه

في بداية الكود ضع الامر

On Error Resume Next

وسوف تنتهي المشكلة

ويمكن ايضا الحل بطريقة اخرى

استبد الامر بالامر بالكود التالي

If Me.RecordsetClone.RecordCount > 0 Then
Me.RecordsetClone.MoveLast
Me.tx2 = "السجل" & Me.CurrentRecord & _
        " من " & Me.RecordsetClone.RecordCount
End If

اخونا الشايب

4 دقائق مضت, ابو جودي said:

لان تقريبا اعيد ما اريد من خلال الاستعلامات بدلا من DLookup

فعلا الاستعلامات رهيبة جدا جدا جدا جدا

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

6 دقائق مضت, Mohamed Khaled Galal said:

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

انا اعتذر لك اريد انا يطبق هذا الكود على الفورم وبداخله Child وهو الذي يحتوي على خليه التحقق

اخي الفاضل انا ماني فاهم هل انتهت مشكلتك ؟

5 دقائق مضت, Mohamed Khaled Galal said:

تمام اخي هكذا الكود يعمل ولكن عندي النزول لكتابه كود جديد تظهر لي هذه الرساله

شوف ردي السابق

14 دقائق مضت, شايب said:

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

جرب احذف السطر الرابع والخامس

3 ساعات مضت, ابو جودي said:

وممكن 

ماشاء الله عليك اخي محمد كفيت ووفيت 🌹