مساعدة في وضع condition

تفضلي

لكن هل تريدين زيادة رقم واحد عن آخر سجل ام تريدين فقط وضع الرقم 2 عند حدوث التكرار ..؟؟

على العموم كلا الحلين موجود في الملف المرفق

ملاحظة : طبعا الحدث عند الخروج من حقل الكمية

Library.rar

تسلملي أخوي المبرمج وما قصرت

وأنا قصدي إني أزيدها 1 مثل ما إنت مسويلي بالظبط

بس أنا عندي مشكله إن الكود اللي إنت حاطه لي واضح بس الكلام العربي (المسج بوكس) تظهر عندي باللغه غير مفهومه :(

ممكن أعذبك شوي وتخليلي إياها انجليزي :(

If MsgBox("لقد تكرر هذا الاسم" & vbCrLf & _
	[Forms]![form1]![Course_Name] & vbCrLf & _
	"بنفس التاريخ هذا " & vbCrLf & _
	[Forms]![form1]![Course_Date] & vbCrLf & _
	"هل تريد تعديل الكمية إلى 2", _
	vbCritical + vbYesNo + vbDefaultButton2, _
	"تنبيه") = vbYes Then

شكرا الى الاخت fara7

على هذا السؤال الرائع

وشكرا الى الاخ المبرمج 2003

على هذا الجواب الرائع جدا

ولكن عندي سؤال هنا الى الاخ المبرمج 2003

وهو هل يمكن كلما تكرر الاسم وبنفس التاريخ فان في حقل quantity يزيد الرقم تصاعديا ، اي 1،2،3 الى آخره

اي لا يتوقف عند رقم 2 فقط.(اي على حسب عدد مرات التكرار).

وشكرا لكم جميعا....

ألف ومليون شكر لك أخوي المبرمج والله لا يحرمنا من هالمساعده والمجهود الرائع

وجزاك الله ألف خــــــير ياااااارب :)

تسلم أخوي بلالي على المرور :)

نعم بإمكانك ذلك

لو فتحت الكود لوجدتمن ضمن الكود التالي هذا السطر

Quantity = DLast("[Quantity]", "Library") + 1

وهو غير مفعل فهو يقوم بزيادة رقم عن آخر رقم موجود

وتحته الكود التالي

Quantity = 2

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

Quantity = 2

وشكرا للجميع

شكرا جزيلا المبرمج 2003

ولكن هل بالامكان اظهار العدد في الرسالة

مثلا تكرر الاسم بنفس التاريخ 10 مرات

ثم عند الخروج من حقل quantity

يظهر في الرسالة عدد التكرار 10 مرات وهكذا ....

بارك الله فيك خبيرنا الرائع ابو حسن على هذا التفاعل والحل الرائع

اخي بلالي

نعم يمكن ذلك وهذا تعديل بسيط للمثال

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

بمعنى لو كان اخر رقم في الكمية هو 5 وقمت بإضافة سجل جديد بنفس الاسم والتاريخ يجب ان تكتب الرقم 5 وعند خروجك من حقل الكمية ستظهر الرساله وتتم الزياده

Library_UP.rar

أخي المبرمج تسلم والله على الحل الرائع

لكن أنا مخاصم دالة Dlast وصحبة مع دالة DMax فهل أنت مثلي

بارك الله فيكم احبتي واخواني zahrah & مصلح الحريصي

على قولة عادل امام (لازم تحرقونا يعني :D :D )

فعلا لمساتكم الفنية اروع

بالنسبة لك اخي مصلح الحريصي فكلامك في محــــــــــــــــــله

يا شباب ويا شابات كما قال حبيبنا مصلح الحريصي من اراد استبدال ال Last ب Max

لأن ال Last تعني آخر قيمة

وال Max تعني اكبر قيمة

الملف بعد تعديلات الاخوان

Library_UP1.rar

شكرا للاخت زهرة...

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

والمطلوب في حالة تكرار الاسم مع التاريخ ايضا .

كيف يمكن عمل ذلك..

والسلام ...

كان هناك خطأ مطبعي من الاخت زهرة

فبدل ان تضع DateC في الرسالة وضعت NameC

يعني التعديل فقط في هذا قم الكود في

If MsgBox("لقد تكرر هذا الاسم  " & vbCrLf & _
	[Forms]![form1]![Course_Name] & vbCrLf & _
	"بنفس التاريخ هذا " & vbCrLf & _
	[Forms]![form1]![Course_Date] & vbCrLf & _
	" عدد التكرار" & [DateC] & " مرة \مرات" & vbCrLf & _
	"هل تريد تعديل الكمية  ", _
	vbCritical + vbYesNo + vbDefaultButton2 + vbMsgBoxRtlReading, _
	"تنبيه") = vbYes Then

تفضل المرفق

Library_UP1.rar

الف شكر ومحبة لكم جميعا...

إن شاء الله على الدوام اخوة واخوات في الله ...

ما قصرتم والله يوفقكم ويسدد خطاكم...

بارك الله فيك اخي الكريم

واقول لك

لا شكر على واجب ,,,,

======

ولكن عندي سؤال آخر...

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

وشكرا لكم جميعا على تعاونكم...

نعم اخي الكريم

في الكود تلاحظ علامة اكبر ضع بعدها علامة يساوي =

هذا الكود السابق

If NameC > 1 And DateC > 1 Then

قم بتغيره إلى

If NameC >= 1 And DateC >= 1 Then

شكرا من الاعماق الى الاخ العزيز ..المبرمج 2003

وهنا سؤال لو تفضلت الاجابة عليه مشكورا ...

هل يمكن اضافة حقلي بحث في نفس النموذج

حقل بحث في الاسم

وحقل بحث في التاريخ

وذلك لسهولة سرعة البحث

واضافة زر امر ، عند النقر عليه يتم اظهار النتيجة في الرسالة.

مجهود رائع وتسلمون جميعا والله لا يحرمنا منكم :)

تحياتي لكم ...