إظهار أكبر تاريخ فقط وتجاهل الباقي

 $e = mysql_query("select min(call_date) as C from calls where coid = $id");
				  $h = mysql_num_rows($e);

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

سلام

أهلا أبو ياسر

- ماأدري كيف فاتتك دلة :

DLast("YourDateField","YourTable")

أو

DMax("YourDateField","YourTable")

- سهلة بالمرة

- ساعدوه تكفون

- أتمنى لك التوفيق

سلام

القحم

المعذرة: تم تحرير المشاركة للتالي:

- لا يلزم أن يكون آخر ما يدخل (الأكبر)!!!

- قد يكون آخر ما يدخل (الأصغر)!!!

أخي : القحم

شاكر لك تفاعلك ,,ولا أخفيك أني لا أعرف الدالة السهلة التي قلت عنها

وياليتك قمت بالتغير حتى تتم الفائدة,,,,,, والله يحفظك من كل مكروه

مازلت منتظر أي مشاركة توضح كيف أوقوم وفين أحط الدالة ,,,,, أو يكون التغيير على نفس البرنامج

سلام

أهلا أبو ياسر

- في الحقيقة مانزلت الملف إلا الآن. برجاء المعذرة

- في الجدول المثال في خمسة حقول لكل عوض بمعنى:

1 : 1 2 3 4 5

2: 1 2 3 4 5

- في نظري كان من المفترض أن يكون تاريخ الزيارة الأولى هي الأصغر، والخامة هي الأكبر تصاعديا.

- في السطر الأول: حقل(الزيارة2) أصغر من حقل (الزيارة1) أنظر الصورة رجاءً. ليس من المعقول أن تكون الزيارة الثانية قبل الأولى!!!

- في اعتقادي من هنا وقع الإشكال عندي غيري على ما أظن!!. ولذلك لم تجد الأجابة!!.

- اشرح لي كيف تريد استخراج أعلى تاريخ وعلى أي حقل.؟

- وإذا لم يكن يضايقك تخبرني عن سبب تكوين هذا الجدول بهذه الطريقة؟

- برجاء الإجابة كي استطيع من إيجاد الحل

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

سلام

القحم

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

أخي أبو ياسر حفظك الله ورعاك - وبعد أذن أخي عبدالعزيز القحم

لابد من كما أشار أخي القحم من المنطقية في أدخال البيانات ثم لابد

أيضا - عند تصميم القاعدة أن نبدا بهرم المعرفه المعروف

أو كما يقول التربويون هرم بلوم

المعرفه ثم يأتي بعدها الاستيعاب ثم يأتي التحليل فالتركيب ثم قمة الهرم التقييم

بمعنى عند تصميم الجدول تسأل نفسك ماذا أريد أن يؤدي لي هذا الجدول من معلومات

فعلى إجابة هذا السؤال - تبني أشياء كثيرة ومنها دوال تساعدك في استخراج ماتريد

دالة DMAX لن تعمل الا باعادة قيمة واحدة لكل حقل ؟

عموما أرى أنه لابد لك من اعادة النظر في صياغة الحقول - وأدخال البيانات

أنا لا أدري هل تريد أخر وأول تاريخ في عموم الجدول من حقل الزيارة الاولى الى حقل الزيارة الخامسة

أو ترغب اول وأخر تاريخ ( في القيم الظاهرة لنا في الفورم لكل حقل ) وكل له جواب

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

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

شيء أخر - أن اردت أن ترتاح عند كتابة الكود نصيحة أجعل كل اسماء حقول جدولك بالإنجليزية

مع قبول تحياتي أخي أبو ياسر - مع الاعتذار لأخي القحم لإقتحامي عليه في هذا الموضوع :rolleyes:

EKSEER

ek_Dmax.rar

شكري لك ياقحم وعلى كل كلمة قلتها لي

وشكري لك أخي EKSEER على العتاب الرفيع وعلى الدرس التربوي

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

المهم سؤالي واضح جدا وأنت فهمته أخي EKSEER لكنعلى عموم الجدول وإنما الذي أريده على آخر تاريخ على مستوى النموج أو بالاصح على مستوى السجل

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

وأثناء ردي الآن خطر على بالي مثال يقرب الصورة بشكل أوضح

الآن لاستخراج صك شرعي على ارض يلزم أن تجيب الدوائر الحكومية على ذلك

ومنها البلدية

الزراعة

الأوقاف

الثروة المعدنية

الطرق

المياه

وقد تجيب إدارة قبل إدارة وتسجل لها في نفس الحقل تاريخ الإجابة ,,, وعند استكمال الإجابات ,, تحتاج إلى معرفة أخر دائرة أجابت ,, فمن المنطق أن يكون آخر تاريخ هو يمثل آخر إجابة وردت ,,,,

إذا عليه يكون آخر إجابة هي مثلا الزراعة

وإعذروني على التقصير وضعف التعبير وسوء التمثيل

وإلا مثلكم لا يجارى ولا يبارى و,,,,, والله أعلم بالصواب

بعد اذن اخواننا الكرام..

اخي الكريم ...

اتمنى ان يكون بالمرفق ما تريد.

last.rar

اخي / ايهاب عثمان

سلمت يداك على هذا الحل الرائع.

جزاك الله كل خير على حلولك المميزة والتي دائما نستفيد منها.

اخوك / يوسف احمد

شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا

شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا

شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا

شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا

شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا

شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا

شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا

شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا

شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا

شكرا شكرا شكرا شكرا شكرا شكرا

شكرا شكرا شكرا شكرا

شكرا شكرا

شكرا

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

والله جوابك رائع بمعنى الكلمى ,,, وأنت مبدع وأستاذي القدير ,,,,,, حفظك ربي من كل سوء

وشكري لك من حاول وشارك على جهده

أخي إيهاب عثمان

ظهرت عندي مشكلة غير متوقعة بعد الفرح الشديد لحل المشكلة ,,,, لكن أملي في الله كبير وثم فيكم

وهي إذا كان أي واحد من الحقول فارغ null ليس فيه تاريخ مدخل فإنه لا يقوم بالعملية ولا يستخرج آخر تاريخ ,.. فكيف يكون الحل بارك الله فيك وفي الجميع

والسؤال للكل

شكر الله لك اخي الكريم وبارك فيك....

تم الالتفاف حول المشكلة الاخيرة - كما بالمرفق.

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

last.rar

إثراء للموضوع ، حل آخر

بعمل دالة تأخذ الخمس زيارات وترجع أكبرها قيمة

Function LastVisit(V1, V2, V3, V4, V5) As Variant
  Dim Max

  Max = Nz(V1, 0)
  If Nz(V2, 0) > Max Then Max = V2
  If Nz(V3, 0) > Max Then Max = V3
  If Nz(V4, 0) > Max Then Max = V4
  If Nz(V5, 0) > Max Then Max = V5

  LastVisit = Max
End Function

LastVisit.rar

طريقة حلوة وجميلة

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

تم التعديل على الدالة

Function LastVisit(V1, V2, V3, V4, V5) As Variant
  Dim Max

  Max = Null
  If Not IsNull(V1) Then Max = V1
  If Not IsNull(V2) Then If V2 > Max Then Max = V2
  If Not IsNull(V3) Then If V3 > Max Then Max = V3
  If Not IsNull(V4) Then If V4 > Max Then Max = V4
  If Not IsNull(V5) Then If V5 > Max Then Max = V5

  LastVisit = Max
End Function

LastVisit2.rar

استلمت رسالة تخبرني أن المشكلة لا زالت قائمة ويبدو أن "أبو ياسر" زهق أو استحى يخبرني

فعلا أن التواريخ هي أصعب أنواع البيانات في التعامل معها

على كل حال هذه الدالة للمرة الأخيرة كما يبدو لي

Function LastVisit(V1, V2, V3, V4, V5) As Variant
  Dim V(1 To 5)
  Dim I As Byte
  Dim Max

  V(1) = V1: V(2) = V2: V(3) = V3: V(4) = V4: V(5) = V5

  Max = Null
  For I = 1 To 5
	If Not IsNull(V(I)) Then
	  If IsNull(Max) Then Max = V(I)
	  If V(I) > Max Then Max = V(I)
	End If
  Next I

  LastVisit = Max
End Function

وهنا عندي سؤال للخبراء هل يوجد دالة شبيهة بدالتي :

VarType("V1)

VarName("V1")

وذلك للحصول على قيمة المتغير بنفس الطريقة السابقة كأن تكون كالتالي :

VarVal("V1")

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

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

لا أعلم أخي هل المثال مختلف عن برنامجكم ؟

إذا كان مطابق فالمفترض عند تطبيقه تماما تختفي المشكلة

لقد نوعت في السجلات فهناك قيم Null كالتالي :

- في أول زيارة

- في وسط الزيارات

- في آخر زيارة

- لكل الزيارات

والنيجة سليمة 100% ، فأنا لن أتركك حتى تنجح معك

فقط حاول المواصلة فإذا فشل أكسسنا فغيره موجود ، فلا تيأس

LastVisit3.rar