أ / محمد صالح

نعم هذا ممكن إذا كان التاريخ القديم أيضا مسجل بتنسيق به الساعة والدقيقة والثانية وليس مجرد تاريخ به اليوم والشهر والسنة لأن في هذه الحالة سيتم اعتبار الوقت هو الثانية عشرة صباحاً بمعنى 1/1/2000 تساوي 1/1/200 00:00:00 ولكن أترك لك فرصة استنباط خط سير الكود وتنفيذه على الساعات والدقائق والثواني كما تم تنفيذه على السنين والشهور والأيام وتذكر المثل الرائع لا تعطني سمكة ولكن علمني كيف أصطاد

تفضل أخي الكريم المرفق كما تريد ... تم حذف التحقق من صحة الأوزان تغيير المعادلة لتقرأ من خلية أخرى بها الوزن بعد تنزيله لأقرب 500 mas_(3)_2.rar

أخي الكريم يوسف عطا ياريت توضح اي السطور تريد معرفتها فأكيد ترجمة السطور الخاصة بالتكرار ب for لا تخفى عليك

خيراً فعلت أخي محمد ونعم الرجال أخي عبد الله وأخي عماد الحسامي وفقنا الله جميعاً لكل ما يحب ويرضى وكل عام أنتم جميعاً بكل خير

في هذه الحالة يمكنك استعمال هذا الكود في حدث بعد التحديث R_AfterUpdate Me.Recordset.FindFirst "المعرف = " & [R] بدلا من DoCmd.GoToRecord acDataForm, "نموذج1", acGoTo, [R] لأن الكود الثاني للذهاب لسجل معين بدلالة رقمه أما الكود الأول فهو خاص بالبحث عن السجل بدلالة حقل من حقول الجدول

أخي الكريم هذا موضوع مشابه http://www.officena.net/ib/index.php?showtopic=36752 وأقترح عليك التعامل مع المدة على أنها ايام وذلك من خلال الجمع أو الطرح فبطرح تاريخ نهاية الخدمة - تاريخ مباشرة العمل يعطي الناتج بالأيام ثم تجمع عليهم عدد ايام الخدمة الإضافية ثم تطرح منهم ايام الانقطاع ثم في النهاية تحول هذا الرقم من الأيام إلى سنوات وشهور وايام

إذاً ما هو المطلوب بصورة أكثر دقة حتى نحاول جميعاً في الوصول إليه

لا أعتقد وجود دالة ضمن أوفيس لهذا الغرض

يمكنك استعمال هذه الدالة Function chkhl(hl As Range) As Integer chkhl = IIf(Dir(hl.Value) = "", 0, 1) End Function وطريقة استدعائها كالتالي =chkhl(A1) وتكون النتيجة 1 للرابط الموجود و صفر للرابط غير الموجود

تفضل أخي الكريم تم عمل دالة جديدة لحساب الفرق بين التاريخين mas_lordring2-29-10.rar

ياريت مزيد من التوضيح

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

أخي باسم سعيد كل عام أنتم جميعا بخير وبعد إذن أخونا عبد الله (أبو أحمد) هذه محاولة مني في الوصول للمطلوب ولكن من خلال درجات السلم أتمنى أن تكون هي المطلوب mas_(3).rar

أخي حسام ياريت مزيد من التوضيح ما العلاقة بين 7 و 2؟ ما الذي يجعل حقل الإيراد 2؟ ممكن نقول الصافي طرح 7-2=5 ولكن ما العلاقة بين 7 و2؟ هل تقصد ما يزيد عن نصف الواحد الصحيح أو 0.5؟

شكرا لك أخي الكريم وكل عام أنتم بخير بمناسبة عشر ذي الحجة

أخي الكريم موضوع ربط الزر بصورتين ينبغي أن يكون الصورتين مخزنتين بمجلد مجاور للقاعدة ولكن يفضل استعمال النص تصاعدي وتنازلي بدلا من استعمال الصورتين ولعمل ذلك استبدل الكود في الموديول بالتالي Public Sub ChangeSortOrder _ (frm As Form, strFld As String) On Error GoTo ErrHand If frm.OrderBy = strFld Then 'If it's already ordered by this field name, 'you want to reverse it. frm.OrderBy = strFld & " DESC" frm.أمر455.Caption = "تنازلي" Else frm.OrderBy = strFld frm.أمر455.Caption = "تصاعدي" End If frm.OrderByOn = True ExitProc: Exit Sub ErrHand: MsgBox Err.Num & " " & Err.Desc GoTo ExitProc End Sub

أخي الكريم يفضل إرفاق الملف موضع المشكلة

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

الحمد لله على كل حال

أخي الكريم أبو أحمد يبدو أن نظام التشغيل لديك هو ويندوز 7 إذا كان كذلك فاذهب إلى Start ----> Control panel -----> Change keyboards and other input methods ---> Administrative وقل لي ما هي اللغة بالبرامج غير ذات الترميز العالمي Language for non-unicode Programs وإذا كانت غير العربية غيرها للعربية التي تستخدمها ..... جرب وأخبرني بالنتيجة

ما هو الحل؟

الحاجة أم الاختراع دالة جميلة أخي محمد واسمح لي باختصارها كالتالي Function u2e(d As Double) As Double u2e = ((d + 36000) / 86400) + 25569 End Function Function e2u(d As Double) As Double e2u = ((d - 25569) * 86400) + 36000 End Function بارك الله لك ووفقك إلى كل ما يحب ويرضى

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

شكرا لك أخي الكريم ولكن هذا البرنامج يعمل فقط على أوفيس 2007 وتم تضمينه في أوفيس 2010

البرنامج جميل وأنا استعمله من سنوات ولكن لا أدري لماذا يظهر برنامج avast6 أنه فيروس ولا يسمح لي بتشغيله ويخبر أنه قد يضر بجهازك