الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

نقلت الكود من علي النت ونسيتة سعدوني بليز

بدأه kamel_2004_1 في 27 يونيو 2009 · 2 رد · 365 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

بســم الله الـرحمــن الرحيــم

الأخوة : أعضاء المنتدى المحترمين

اثناء بحثي وجدت الكود المثالي لبرنامجي لكن للاسف نقلتة ونسيت ازاي كتبتة

هو كود للبحث في فترة بين تارخين في النموزج الي اسمة [ الاستعلام بفترة ]

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

و ياريت ازاي اطبق نفس الكلام مع النموزج [الاستعلام بتاريخ واحد فقط ] طبعا بادخال تاريخ واحد علي انا تكون البيانات فارغة قبل البحث

بردة كان عندي مشكله في حساب (اجمالي صافي الطن & و اجمالي صافي المتر المكعب ) باستخدام الداله

=sum([01])

او

=sum([012])

وكان الكود ده هو الحل

=Sum([0 استعلام عن اخطارات بتروبل قبل_طـــن]-[1 استعلام عن اخطارات بتروبل بعد_طن])

بس النتيجة كانت مش نفس التقريب المرجو

ملحوظة القيمة صافي التر و صافي الطن محسوبة في النموزج من الكود التالي

=[0 استعلام عن اخطارات بتروبل قبل_طـــن]-[1 استعلام عن اخطارات بتروبل بعد_طن]

=[0 استعلام عن اخطارات بتروبل قبل_وحدة المتر المكعب]-[1 استعلام عن اخطارات بتروبل بعد_وحدة المتر المكعب]

طبعا الكلام ده للنموزجي

[الاستعلام بتاريخ واحد فقط ]&[ الاستعلام بفترة ]

و انا شاكرا جدا لمنتدانا الغالي الي استفدت منه كتير

____2.rar

تم تعديل هذه المشاركة بواسطة kamel_2004_1 في 27 يونيو 2009 في 23:42

#2

نظرة عامة عن البرنامج للمشاركة و النقاش

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

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

العمليات الحسابية

1 وحدة المتر المكعب: [معامل الخطء]*[مقاس التر]

2 طـــن: [وحدة المتر المكعب]*[كثافة ]

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

كل شركة بيكون لها نظام حساب منفصل

مثلا شركة لا يتم طرح مقاس المياة قبل او بعد لتحديد صافي التر

البعض الاخر يتم طرح مقاس المياة بالتر

و هاكذا

البرنامج محتاج نظرة خاصة للعلقات لفهم تداخل الحسابات

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

تم تعديل هذه المشاركة بواسطة kamel_2004_1 في 27 يونيو 2009 في 23:39

#3

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

و دي الطريقة

1 - في الاستعلام في معيار التاريخ المراد الفرز بة

>=[Forms]![1]![txtStartDate] And <=[Forms]![1]![txtEndDate]

حيث [1] اسم النموزج و [txtstartdate] اسم مربع نص ادخال التاريخ قبل كذلك [txtEndDate] اسم مربع نص ادخال التاريخ بعد

2 - في النموزج من خصائص النموذج من حدث في الحالي الكود التالي

  Private Sub Form_Current()
Me.txtStartDate.SetFocus
End Sub

3 - في النموزج من خصائص زرار البحث من حدث عند النقر الكود التالي

  Private Sub GO_Click()
Me.Requery
End Sub

حيث GO اسم زرار البحث

ياريت لو في طريقة افضل يتم عرضها للمنفعة

____3.rar

تم تعديل هذه المشاركة بواسطة kamel_2004_1 في 2 يوليو 2009 في 21:41

مواضيع مشابهة