AbedElkader

تمام بارك الله فيك , الكود يعمل بشكل جيد , الف شكر اخي

offcet &filldown تعمل لمرة واحدة فقط , كيف يمكن جعلها تعمل في كل مرة يتم ادخال بيانات جديدة؟

وشكرا

المشتركون.xlsm

الف شكر على الاستجابة ...
فليكن كمال قلت , هذا يفي بالمطلوب

الف شكر 

👍👍👍

السلام عليكم 

عملت موديول فيه مسج تنبيه بناء على قيمة خلية لكن اذا تكررت هذه القيمة في كل الصفوف فإن رسالة التنبيه تظهر بعدد تكرار تلك القيمة
الرسالة تتضمن زر ok  وزر Cancel  اود ان يبقى التكرار كلما ضغطنا على ok و إنهاء اظهور الرسالة عند الضغط على زر cancel
وشكرا

زياد.xlsm

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

في ‏١٠‏/‏١٠‏/‏٢٠١٩ at 18:17, abad said:

هذا موجود انقر دبل كليك على اسم الموظف في صفحة الموظفين

واختار تعديل عدل الاسم واضغط انتر واذهب لصفحات الموظفين 

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

8 ساعات مضت, abad said:

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

ان شاء الله يمشي الحال شوف المرفق

جدول غياب4.xlsm 131 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 3 downloads

الأمور ممتازة بارك الله فيك ...
باقي امر واحد أخير انتبهت له مؤخراً وهو التعديل ... تعديل الأسماء أيضا مطلوب في حال تم تعديل اسم في صفحة الموظفين يتم تعديله تلقائيا في باقي الصفحات ,,,
و هذا اخر طلب و لن اعود اغلبك مرة أخرى ...

السلام عليكم ..
تلاحظ عند النقر واثناء ظهور قائمة التعديل والحذف ان الأمر (دبل كليك) يضيف اسطر فارغة جديدة في الصفحات الأخرى
الله اعلم يتم تفعيل امرين معا عند الضغط دبل كليك ...

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

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

مرفق ملف اكسل..
كيف يمكن اضافة صفوف بشكل تلقائي الى جميع صفحات ملف اكسل ( من يناير الى ديسبمر) بمجرد اضافة اسم موظف في صفحة اسماء الموظفين مع مراعاة ان تضاف الصفوف بكامل المعادلات والتنسيقات...
ولك جزيل الشكر

جدول غياب.xlsx

في ١٢‏/٢‏/٢٠١٨ at 16:57, أبو آدم said:

تم تعريف مجموعة السجلات التي نعمل من خلالها في النموذج

لنتجول بها حتى نهايتها

فاذا كانت قيمة الحقل ID في مجموعة السجلات متطابقة  مع قيمة الحقل OrderID في النموذج تظهر لنا رسالة تؤكد ان القيمة التي ننوي ادراجها ضمن مجموعة السجلات موجودة اصلا و ستحدث تكرارا ، لذا يتم الغاء القيمة المدخلة في الحقل ، تم نخرج من سلسلة مجموعة السجلات ولا داعي لاستكمال التجوال لنهاية السجلات .

في حال لم نجد تطابقا في القيمة في السجل الذي وصلنا له ، ننتقل للسجل التالي  و نستمر بالتقدم حتى نهاية مجموعة السجلات .

و اذا لم نجد تطابقا يتحقق التحديث لقيمة الحقل و تثبت القيمة كونه لم يتحقق الشرط ( تطابق قيمة الحقل ID في مجموعة السجلات مع قيمة الحقل OrderID في النموذج )

و السلام ختام ...

جزاك الله خيرا ,,,
الف شكر على المجهود الطيب

4 ساعات مضت, أبو آدم said:

تفضل

بشرط تدقيق تطابق تكرار حقل واحد فقط

Private Sub OrderID_AfterUpdate()

Dim rst As Recordset
Set rst = Me.RecordsetClone

rst.MoveFirst
Do Until rst.EOF
If rst!ID = Me!OrderID  Then

MsgBox " السجل مكرر  ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه"

Me.Undo
Cancel = True
DoCmd.CancelEvent
Exit Do
End If
rst.MoveNext
Loop
rst.Close

End Sub

الف شكر وبارك الله فيكم ...
ممكن لو بس شرح بسيط للكود ؟

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

الحمد لله , تم التوصول الى حل مرضي بعد ازالة الامر (Me.Requery) من كود VBA ومشي الحال 
نشكر لكم تعاونكم جميعكم ...

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

13 ساعات مضت, jjafferr said:

رجاء ارفق النموذج الذي فيه ازرار الاضافة والحذف

 

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

العيادة (2).rar

1 دقيقه مضت, jjafferr said:

جرب المرفق

ناسف على الغلبة ....
جربت الصراحة و لاشيئ جديد ...
ربما يكون المرفق ليس هو  الدي اردت الاشارة اليه ؟!
 

15 دقائق مضت, jjafferr said:

 

وهذا كان الذي عرضته عليك مسبقا ، 

 

جعفر

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

الاخوة الافاضل @jjafferr و جميع من يهتم لمساعدة الاخرين  ...
سبق لاخي @jjafferr ان عمل معي على هذا الملف و نريد بعد اكتشاف بعض المشاكل ان نحلها اذا ممكن ...
المطلوب :-

وهو انه عندما استخدمت اوامر الاضافة والحدف للسجلات من خلال الازرار المضافة على النموذج انه لايتم استدعاء اي بيانات الا اذا تم ادخال الثلاث حقول الأولى ( الاسم , الرقم القومي, رقم الملف) وبالتالي لا يمكن حذفها او التعديل عليها الا اذا تم الذهاب الى الجداول مباشرة وحدفها من هناك وهذا ليس مجديا ...
و ما تم ملاحظته ايضاً انه اذا ما تم  ادخال البيانات فى حقل واحد او اثنان فقط فانه سيحفظ هذا السجل في الحقل  ولا يمكن رؤيته في الاستعلام 
المطلوب السماح بامكانية ادخال حقل او اكثر مع امكانية استدعاء السجلات و التعديل عليها حتى لو لم يتم ادخال الا الاسم فقط .... وشكرا 

هل يبحث في حقل واحد ام في كامل قاعدة البيانات ؟

بارك الله فيكم جميعكم .....
@طاهر الوليدي و @jjafferr والجميع
دمتم بخير 

4 دقائق مضت, jjafferr said:

تفضل

873.العيادة.accdb.zip

مشكور جدا بارك الله فيكم اخي الكريم ...
نأسف اذا غلبناكم ...
 الله أعلم هذا هو المطلوب ....

بس سؤال اذا ممكن ... هل يمكن الاستعاضة عن الثلاث مربعات بمربع واحد فقط يؤدي وظيفة الثلاث مربعات معاً ؟ 

المربعات الثلاث العلوية (مربعات التحرير والسرد )للبحث والاستعلام وجلب البيانات في الحقول السفلى , الاول يبحث في حقل الاسم والثاني يبحث في حقل الرقم الوطني و الثالث يبحث في رقم الملف , كل المربعات لجلب بيانات سجل واحد للنموذج ولكن كل مربع يبحث في حقل مختلف والمربعات الثلاثة تبحث بشكل سليم و تجلب البيانات للنموذج الا انني اريد ما ان استخدمت احداها في البحث فانها ستجلب البيانات في النموذج اسفل و ايضاً اريد ان تتغير قيم مربعات البحث الاخرى بنفس قيم السجل السفلى يعني ( مربع تحرير وسرد الرقم الوطني ياخذ قيمة الرقم الوطني و مربع تحرير و سرد الرقم الوظيفي ياخذ قيمة الرقم الوظيفي من النموذج ....

20 دقائق مضت, jjafferr said:

هل هذا قصدك؟

873.العيادة.accdb.zip

غلبتكم معي ...
سأوضح المطلوب مرة اخرى بالشرح على الصورة