برنامج حركة مركبات

[aateefa]

المطلوب عند الضغط علي زر جديد في حال المركبة مفتوحة يتم اعطاء رسالة ثم يتم الي الانتقال للحقل المفتحوح status=o للتحديث واقفال السجل وفي حال كان السجل مقفل status=c يتم الذهاب الي سجل جديد

لفتح الملف shift+enter

Copy of Fleet.rar

[ابوخليل]

المطلوب غير واضح وخاصة (مفتوح ... مقفل )؟

الحقل status موجود فعلا في الجدول ولكن لا وجود له في النماذج

يجب الاشارة الى مكان التعديل وزيادة الايضاح

[aateefa]

شكرا علي الرد ابو الانس

المطلوب ليس في النموذج

المطلوب هو ان الكود ادناه والموجود في الزر الخاص بالنموذج pass4 والذي يظهر للمستخدم بمجرد الضغط علي زر جديد في نموذج data_frm ويطلب من المستخدم ادخال رقم السيارة المطلوب اضافة سجل جديد لها في هذة الحالة يقوم النظام بالتشيك في الجدول في حال كان هناك سجل status =o لا يقبل بفتح سجل جديد وتظهر للمستخدم رسالة بان المركبة مستخدمة يجب اقفال اي يجب وضع تاريخ العودة بمجرد وضع تاريخ العود يوجد حدث في خانة تاريخ العودة يحدث حالة status الي c وفي حال لا يوجد استخدم للمركبة اي جميع السجلات الخاصة بهذة المركبة c في خانة status يقوم بالانتقال الي سجل جديد

ارجو ان اكون قد اوضحت بما فيه الكفاية

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

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

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

Dim GETCOUNT As Long

GETCOUNT = DCount("[KT]", "movemnt_fleet", "[KT]='" & [TXTVEH] & "' AND [sTATUS]='O'")

If GETCOUNT = 0 Then

DoCmd.OpenForm "data_frm"

DoCmd.GoToRecord , , acNewRec

' MsgBox "CAR...!!", vbOKOnly + vbCritical, "ERROR"

Else

MsgBox "GIVEN PLATE NUMBER ALREADY USED BY ANOTHER CUSTOMER...!!", vbOKOnly + vbCritical, "ERROR"

[TXTVEH] = ""

DoCmd.Close

End If

[ابوخليل]

السلام عليكم

اعتقد اخي انك بحاج الى اعادة النظر في تصميم البرنامج

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

فهناك بيانات تتكرر في الجدول ولا داعي لتكرارها

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

وعن طريق هذين الاستعلامين تتحكم بالعربات الموجودة والمؤجرة ولست بحاجة الى O أو C

سأحاول ان اخرج لك الفكرة ان اسعفني الوقت