اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

وعليكم السلام

على مايبدوا انك مستعجل لاتمام مشروعك

دعنى اسالك هل الاوردر هو اللى هيدخل حقل( الموظف او العامل او المستخدم )

ام الموظف الذى سيقوم بعمل الاوردر ؟

انظر الرابط السابق رفقه لك

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

قام بنشر
2 hours ago, أحمد الفلاحجى said:

وعليكم السلام

على مايبدوا انك مستعجل لاتمام مشروعك

دعنى اسالك هل الاوردر هو اللى هيدخل حقل( الموظف او العامل او المستخدم )

ام الموظف الذى سيقوم بعمل الاوردر ؟

انظر الرابط السابق رفقه لك

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

من الاوردر تدخل حقل الموظف نعم صحيح

قام بنشر (معدل)
14 minutes ago, أحمد الفلاحجى said:

اذن ماذا ستضع فى جدول الحركات ؟

اذا كنت سوف ستضع حقل رقم الاوردر فى جدول الموظفين

عندي فقط جدول الاوردرات 

وجدول الموظفين الذين يقومون بالعمل 

وكل اوردر يفتح يقوم بالعمل فيه من عامل واحد الي اربعه عمال 

اول جدول اعبيه هو جدول الاوردر وبعد ذلك الجدول الفرعي الذي هو للموظفين

انظر المرفق

 

order table2.png

تم تعديل بواسطه alix24028
قام بنشر

يا اخى الفاضل

من يقوم بتعبئه الاوردر الموظف  ولا الاوردر تم ملئه

من قام بكتابه البيانات الموظف ام البيانات قامت بكتابه الموظف

اذ حقل رقم الاوردر ليس له دخل فى جدول الموظفين

ورقم الموظف حقل مفتاح فرعى فى جدول الاوردر مربوط بحقل رقم الموظف مفتاح رئيسى فى جدول الاوردر

حقل رقم الاوردر مفتاح رئيسى بجدول الاوردر فقط

ارجو ان اكون قدرت اوصل لك الملعومه بشكل سهل على قد حالى وبشكل صحيح

فان وفقت فمن فضل الله عز وجل وان لم اوفق فمن جهلى واعذرنى

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

قام بنشر (معدل)

   

ممتاز اخي صلاح  هذا المطلوب

....لاكن كيف الطريقه هل ماكرو ام كود 

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

فاذا كانت القيمه صفر تجي الرساله واذا كانت معبئه فالامور في السليم

ولاكن  اين وضعت هذا الكود

If Me.tob = 0 Then
MsgBox "ÇÏÎá ÑÞã ÇáÓÇÆÞ", vbCritical, "ÕáÇÍ ÌÈÑ"
Me.Child12.SetFocus

Else
DoCmd.GoToRecord , , acNewRec
End If

لم اري حدثا في  خصائص الحقول او النماذج

جزيت خيرا

تم تعديل بواسطه alix24028
  • Like 1
قام بنشر (معدل)
4 hours ago, alix24028 said:

   

ممتاز اخي صلاح  هذا المطلوب

 

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

فاذا كانت القيمه صفر تجي الرساله واذا كانت معبئه فالامور في السليم

 

 

ولاكن هناك ملاحظه 

عندما تدخل معلومات الاوردر وتدخل اسم العامل .

 المربع الموضوع لحساب عدد السجلات في النموذج الفرعي للعمال 

لايحدث عدد السجلات الا بعد ان تظغط علي زر F5

If Me.tob = 0 Then
MsgBox "ÇÏÎá ÑÞã ÇáÓÇÆÞ", vbCritical, "ÕáÇÍ ÌÈÑ"
Me.Child12.SetFocus

Else
DoCmd.GoToRecord , , acNewRec
End If

 

 جزيت خيرا جزيت خيرا

 

تم تعديل بواسطه alix24028
قام بنشر

تعديل بسيط على كود الاخ صلاح جزاه الله خيرا

بملاحظه الاخ السائل

لعمل تحديث للنموذج الفرعى بعد الادخال

عند عدم الادخال والضغط عالزر سوف تظهر لك الرساله

عند الادخال والضغط عالزر سيتم الانتقال لسجل جديد

جزاه الله خيرا الاخ @صلاح جبر


Private Sub Command24_Click()
Me.Child12.Form.Requery
If Me.tob = 0 Then
MsgBox "ادخل رقم السائق", vbCritical, "صلاح جبر"
Me.Child12.SetFocus

Else
DoCmd.GoToRecord , , acNewRec
End If
End Sub

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

  • Like 1
قام بنشر

وجزاك الله الف خير
واخونا ابو بسلمة

الرسالة هي عندما تضغط على زر جديد فقط

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

 

  • Like 1
قام بنشر

ولا يهمك اخى @صلاح جبر وهو ليس خطأ بل سهو فقط وجزاك الله على الفكره الجميله

والعذر لى فاننى كنت افكر فى شىء واضع روابط له والمطلوب شىء آخر اتضح بعد ذلك فالمشاركات وضغط العمل مع التعلم والمساعده لاخوانى فى نفس الوقت افقدنى تركيزى والحمدلله وربنا يعينا ونتعلم ونساعد اكتر طمعا فى دعوه صادقه

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

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق :fff:

قام بنشر

 كل الشكر للاخ ابو بسمله وكذلك الشكر موصول للاخ صلاح

 

 

40 minutes ago, أحمد الفلاحجى said:

تعديل بسيط على كود الاخ صلاح جزاه الله خيرا

بملاحظه الاخ السائل

لعمل تحديث للنموذج الفرعى بعد الادخال

عند عدم الادخال والضغط عالزر سوف تظهر لك الرساله

عند الادخال والضغط عالزر سيتم الانتقال لسجل جديد

جزاه الله خيرا الاخ @صلاح جبر



Private Sub Command24_Click()
Me.Child12.Form.Requery
If Me.tob = 0 Then
MsgBox "ادخل رقم السائق", vbCritical, "صلاح جبر"
Me.Child12.SetFocus

Else
DoCmd.GoToRecord , , acNewRec
End If
End Sub

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

 

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information