ابوخليل

age= DateDiff("yyyy";[StartDate];Date()) حيث StartDate حقل تاريخ الميلاد

عادة في اوفيس 2010 وما دون اذا كان ضمن البرنامج مكتبات تشغيلية ونظام الوندز 64 بت فإنه يتم تسجيل المكتبات داخل مجلد syswow64 بدلا من system32

اعتقد ان المشكلة تكمن في الطابعة وخصائصها

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

بدلا من ()Now اكتب ()Date

مشكور اخوي فرهاد لو أرفقت مثالا يطبق هذه المعلومة

الحمد لله على تحقق المطلوب وتسلم اخوي ، الله يعزك ويرفع قدرك

المشكلة عندي في الاصدار وبحمد الله تم التغلب عليها الآن انظر الى التعديل على المهارات الخمس الأولى - تم تغيير الكود واسندنا الشرط الى حقل الرقم - تم اعطاء مسميات لحقول الارقام وطبق على البقية db4.rar

يا سلام صح 100% وتم تعديل الكود اعلاه

لا بد ان يصاحب الحدث الشرطي تركيز على الكائن الهدف والتقرير بصورة عامة لا يتفاعل مع التركيز عند العرض 30.rar

صحيح Esc = 27

نجحت في التعديل ولكن في آخر لحظة ضرب التقرير ولم استطع فتحه السبب اني قمت بتحويل الاصدار ، وهناك ملحوظة اريدك ان تتأكد منها حيث لاحظت ان بعض الحقول مكررة او بمعنى آخر متراكبة بعضها فوق بعض سأشرح لك بالتفصيل لبتطبق ما جربته اولا : دع حقول الارقام على جانب والعمل سيكون على مطلوبك وهو حقول العلامات المعلوم : ان التقييمات 10 مرقمة بالترتيب : الهندام = 1 و الاحترام =2 ...... وهكذا وكل تقييم يشتمل على اربع مستويات العمل : في التقرير ابدأ بالتقييم الاول " الهندام " وفي حقوله الاربعة ندرج هذه الاكواد تنازليا =IIf([Compid]=1 And([subComp1]="9" Or [subComp1]="10");"P";" ") =IIf([Compid]=1 And([subComp2]="7" Or [subComp2]="8");"P";" ") =IIf([Compid]=1 And([subComp3]="5" Or [subComp3]="6");"P";" ") =IIf([Compid]=1 And([subComp4]="3" Or [subComp4]="4");"P";" ") ثم التقييم الثاني الذي هو الاحترام وفي حقوله الاربعة ندرج هذه الاكواد تنازليا =IIf([Compid]=2 And([subComp1]="9" Or [subComp1]="10");"P";" ") =IIf([Compid]=2 And([subComp2]="7" Or [subComp2]="8");"P";" ") =IIf([Compid]=2 And([subComp3]="5" Or [subComp3]="6");"P";" ") =IIf([Compid]=2 And([subComp4]="3" Or [subComp4]="4");"P";" ") قارن الفرق بين المجموعتين ستلاحظ ان الفرق فقط في رقم التقييم اكمل على هذا النسق

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

هلا وسهلا باخوي ابو فيصل وكل سنة وانت واهلك واحبابك بخير في حقل علامة الصح في الصفة الاولى غير الكود الى التالي =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