ابوخليل

المرفق قيد النظر والتعديل ...

هلا وسهلا باخوي ابو فيصل وكل سنة وانت واهلك واحبابك بخير في حقل علامة الصح في الصفة الاولى غير الكود الى التالي =IIf([subComp1]="9" Or [subComp1]="10";"P";" ") ثم التي تحتها هكذا =IIf([subComp1]="7" Or [subComp1]="8";"P";" ") بعد ذلك اكمل الصفات الاخرى subComp3 subComp2 .... وهكذا جرب ووافني بالنتيجة

جمع الاثنتين صحيح بمعنى انه يكون جدول للاقسام وكذلك حقل للقسم في جدول الموظفين حقل القسم في جدول الموظفين : النوع = رقم جدول الاقسام يشتمل على حقلين رقمي ونصي بعد هذا يمكنك الربط بين الرقمين كما ذكرت ويمكنك الاستغناء عن الربط بوجود الضوابط ، مثلا ان يكون حقل القسم في النموذج مربع تحرير غير قابل للزيادة

بعد الاطلاع على المرفقات اتضح التالي : عند تغير مكان قاعدة الجداول فمن الصعب على الواجهات الارتباط بالقاعدة لذا يلزم تحديث ربط الجداول حينما يتغير مكان قاعدة البيانات ولتحديث الربط اتبع من شريط الادوات : بيانات خارجية / الجداول المرتبطة سيخرج مربع حوار اذهب الى مكان القاعدة ثم ارتبط بها مرة اخرى ملحوظة : النموذج في مثالك غير منضم لذا فهو يفتح بشكل سليم ولهذا اختفى سبب ومكان المشكلة للتجربة :لو جعلت الجدول مصدرا للنموذج فستظهر لك رسالة عند بدء التشغيل تخبرك بعدم وجود الجدول حينها ستنتبه الى مشكلة الربط تم التعديل على المثال يمكنك فحصه على القرص C Net.rar

تفضل تم عمل اللازم موظفين4.rar

45 - 33 ! 35 # 36 $ 37 % 38 & 40 ( 41 ) 42 * 44 , 46 . 47 / 58 : 59 ; 63 ? 64 @ 91 [ 92 \ 93 ] 94 ^ 95 _ 96 ` 123 { 124 | 125 } 126 ~ 39 ‘ 43 “ 43 + 60 < 61 = 62 > 48 0 49 1 50 2 51 3 52 4 53 5 54 6 55 7 56 8 57 9 65 A 97 a 8 Arrow to left 66 B 98 b 67 C 99 c 68 D 100 d 69 E 101 e 13 Enter 27 Esc 70 F 102 f 71 G 103 g 72 H 104 h 73 I 105 i 74 J 106 j 75 K 107 k 76 L 108 l 77 M 109 m 78 N 110 n 79 O 111 o 80 P 112 p 81 Q 113 q 82 R 114 r 83 S 115 s 32 Space 84 T 116 t 9 Tab 85 U 117 u 86 V 118 v 87 W 119 w 88 X 120 x 89 Y 121 y 90 Z 122 z

تفضل جعلنا مصدر النموذج استعلام ووضعنا معيار التاريخ داخله المجموع2.rar

هذا كلام غير واضح يلزم زيادة في الايضاح

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 27 Then DoCmd.Close End If End Sub

SendKeys "{F5}" أو ضع هذه في الحدث المناسب me.Requery

نحن بانتظارك .. جزاك الله خيرا

شكرا اخوي خالد على هذا الاطراء الذي لا استحقه رفع الله قدرك . اخي الحبيب ما انا الا ناقل ورب حامل فقه الى من هو أفقه منه المديول لاستاذنا القدير والغني عن التعريف http://www.officena.net/ib/index.php?showuser=58 اجزل الله له الثواب وغفر لنا وله .

المشكلة في نوع الحقل عند ربطه بالجدول يوجد طريقتين لتلافي المشكلة اما ان تستعيض عن الحقول الغير منضمة بمتغيرات وإما ان تتركها كماهي وتنشء حقولا بجانبها منضمة وفي كلا الطريقتين ستضمن الكود بعض الاسطر : x = me.feld او 2me.feld1 = me.feld

الخلل عندك فقد جربته ويعمل في الحالتين على اكمل وجه المثال وجدته ضمن مكتبتي .. جزى الله صاحبه خيرا

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

افتح خصائص التقرير / لسان التبويب : غير ذلك عدل القيم الى : منبثق = نعم شكلي أو مشروط= نعم

تحرير / استبدال حين يفتح مربع حوار الاستبدال ضع المؤشر في حقل استبدل ثم انقر زر اكثر اذا لم تكن الخيارات ظاهرة واختر: تنسيق / لغة واختر الانجليزية ثم انقر بحث ثم استبدال ويمكنك نقر زر استبدال الكل لاحظ ان حقل : استبدال بـ ما زال فارغا ملحوظة : خذ نسخة من مستندك قبل التجربة

العمل ليس صعبا ولكنه ايضا ليس سهلا - تحتاج الى جدول يمثل سلم الرواتب - وجدولا لحركات الترقية ويكون فرعيا لجدول الموظفين - انشء استعلاما يجمع الرئيسي بالفرعي وضع فيه معيارا يعرض آخر تاريخ فقط لكل موظف - هذا الاستعلام هو الذي يكون عليه العمل ووضع الاكواد المناسبة للتنبيه والاجراءات الاخرى - من المؤكد انك بحاجة الى تحقق شرطين منفصلين 1- مضي سنة 2- مضي اربع سنوات - الاخذ بالاعتبار عند الانتقال الى الدرجة بعد مضي اربع سنوات ان يثبت على المستوى الذي يلي راتبه الحالي هذا تصور لبعض ما تحتاجه قد يساعدك

وعليكم السلام تفضل يابو عبدالله DATe CH.rar

انظر النتيجة ان كانت مرضية TEST.rar

من هنا https://www.google.com/url?q=http://www.officena.net/ib/index.php%3Fshowtopic%3D31301&sa=U&ei=yCAeUvesH4GAhAfct4H4CQ&ved=0CAcQFjAA&client=internal-uds-cse&usg=AFQjCNF2DrMOw0NMVCEe2ACNZLpcFeKJ_g ومن هنا http://www.officena.net/ib/index.php?s=fef12eb7bea70d243a7262b9da81739a&showtopic=48569

Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[ID] = " & Str(Nz(Me![comboName], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark موظفين2.rar

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

انظر الآن اسم المجلد ظاهر في المسار .. ولكن هل يظهر المجلد عندك داخل مجلد xx لا تنسى ضعه على D xx.rar

صحيح اسم قاعدة الجداول اما المسار فصحيح نوعا ما حيث ان هناك مجلد مفقود بين القاعدة XX_be والمجلد xx اذن : الاجابة خاطئة الآن تأكدت تماما انك لم تر قاعدة الجداول الخلفية ولا المجلد الذي يقبع داخل مجلدنا xx