Elsayed Bn Gemy

سورى الرسالة دى لموضوع تانى ههههههههههههه معلش الصيام بقى عامل عمايلو

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

اولا وقبل كل شى يجب اضافة اسم الموظف قبل اضافة عهدة له

وبعد اضافة اسم الموظف

تذهب لاضافة العهدة له 

اما بالنسبة للتقرير فامره باذن الله سهل بس انت تشوف المرفق دا

http://www.mediafire.com/download/b3ezcf5h055pxs3/برنامج_عهد_المستودع_.rar

اخي العزيز

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

ان شاء الله ممكن

اخى الفاضل ممكن رقم رسالة الخطأ ؟ من فضلك فلم تكتمل الصورة لدى

يستحسن برنت سكرين للرسالة زى الصورة اللى فاتت

جدول مربوط بسكول ولا مش مربوط ؟؟

اخى الكريم هو ايه نوع الكائن دا accountsub

جدول ولا استعلام ولا جدول مربوط SQL

ارجو التوضيح

تعديل ايه بس دا عاوز يتفرمت من جديد ههههههههههه

عموما انا شغال فيه

كدا تمام وضحت الرؤية  اخى الكريم 

تقرير عن ايه بالظبط  ؟؟

تقرير لكل موظف ؟؟

ام تقرير لكل الشهور

فى البرنامج الذى ارفقته قمت بعمل العلاقة من خلال اسم الموظف

بحث يكون لكل موظف حساب مختلف

ومن اعتقادى هذا هو الاصح

حلت المشكلة أشكركم جميعاً

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

اخى الكريم دلوقتى ممكن موظف واحد ياخد اكتر من عهدة هل هذا صحيح ؟؟

وثانيا ما معنى الرقم العام ؟

هل هو رقم خاص بكل موظف اى ثابت

ام انه رقم العهدة ؟؟

أخي / مارد

تسلم والله يعطيك العافية

جربة الكود عندما اضع رقم خطاء لا يحدث شئ 

وينتقل إلى سطر جديد!

يعني الكود لم يناسب حل المشكلة!

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

المهم ان اخونا رمهان قام بالواجب وزيادة

وشكر الله هله حسن صنيعه

علشان خاطر الاخ مارد !! اللي لحد الان مش مبين حار والا بارد !! 

هذا الكود لماطلبت ولاحظ انه قبل التحديث للنموذج الفرعي !!

هو مين مارد دا اخى الكريم رمهان ؟؟ هههههههههه

نحن ننهل من نبع علمك اخى الكريم

ابدا كل ما هنالك ان ريد ان ابحث فى الجدول عن سجل معين

عن طريق حقل مثلا رقم القطعة

ان وجد متعملش حاجة ههههههه

وان لم يوجد طلع تنبه ان الرقم غير موجود

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

Dim Rs As DAO.Recordset
   Set Rs = CurrentDb.OpenRecordset("Table2")
   Rs.MoveFirst
   Do Until Rs.EOF
    If Rs!rkm_alktah = alktah Then
Exit Sub
Else
MsgBox "عفوا رقم القطعة غير مسجل لدينا"
End If
   Rs.MoveNext
   Loop
Set Rs = Nothing

والله اعلم جرب وقولى هينفع ولا لا هههههههههههه انا مجربتوش

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

دا هيفتح على طول على صفحة البرنامج

اتمنى ان يحقق المطلوب

واحنا لسه فى الاول احنا لسه معملناش حاجة واهو احنا شاغلين مع بعض اهوه لحد ما نوصل لبرنامج متكامل

اان شاء الله

رواتب.rar

سورى اقصد سجل جديد

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

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

لما تيجى تعمل اسم جديد اختار سدل جديد وابتدى اكتب الاسم هيظهر معاك على طول

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

فى اى بيئة اوفيس تعمل اخى الكريم ؟؟؟

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

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

وقمت بربط النموزج الفرعى عن طريق كود الموظف

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

 

الصق هذه الجملة في حدث النقر للزر في النموذج الرئيسي

Dim rs As Recordset
Set rs = Me.F_ordersubform.Form.RecordsetClone
rs.MoveLast
R = rs.RecordCount
rs.MoveFirst
For i = 1 To R
If IsNull(rs!Qty) Then
MsgBox "اكتب العدد"
Exit Sub
End If
rs.MoveNext
Next
rs.close
Set rs = Nothing

 

اضافة الى اخى الكريم ابو خليل حفظه الله

هو ان تضيف هذا الكود لمعرفة الحقول الفارغة

Dim rs As Recordset
Set rs = Me.F_ordersubform.Form.RecordsetClone
rs.MoveLast
R = rs.RecordCount
rs.MoveFirst
For i = 1 To R
If IsNull(rs!Qty) Then

Me.F_ordersubform.Form.Filter = "Qty IS NULL"

Exit Sub
End If
rs.MoveNext
Next
rs.close
Set rs = Nothing

فى نموذج اضافة  عهدة  عاوز تضيف الاتى

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

ممكن الكود دا ينفع فى موضوع الحقل الفارغ علشان تذهب اليه

If (Me.SubFormControl.Form.Recordset.RecordCount=0) then

    Me.SubFormControl.SetFocus

End if

الى ان يصحح لى الاخوة

اضافة الى ما افادنا به اخى الكريم ابو خليل حفظه الله

ومن وجهة نظرى انها امنه

هى ان تاتى على الحقل المطلوب  وتختار خصائص ثم مطلوب تختار نعم

هل من الافضل بالنسبة لموضوع الشفت

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