أ / محمد صالح

في هذه الحالة يمكنك استعمال هذا الكود في حدث بعد التحديث 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 أنه فيروس ولا يسمح لي بتشغيله ويخبر أنه قد يضر بجهازك

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

هذا الشيء يوجد بصورة افتراضية في شريط التنقل الموجود أسفل كل نموذج

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

بسم الله الرحمن الرحيم كل عام أنتم جميعاً بخير ..... يوجد امتداد ملفات اسمه shs وهو خاص بميكروسوفت أوفيس Shell Scrap Object File وينتج هذا الملف عند نسخ نص من ملف وورد مثلا أو أي برنامج ضمن الأوفيس ثم لصق ما تم نسخه في مجلد وليس في ملف من جنسه هذا الامتداد كان يفتح بمجرد الضغط المزدوج بالفارة على الملف في أوفيس 2003 وويندوز إكس بي ولكن اختلف الأمر مع ويندوز 7 فهذا الملف غير مدعوم ولا يفتح مع برامج الأوفيس 2007 أو 2010 ............. ولمن عانى من هذه المشكلة واستكمالاً لسلسلة (ما خف وزنه وغلا ثمنه) أقدم لكم الحل الأكيد فقط اتبع التعليمات في المرفق وستجد كل شيء على ما يرام ..... ولا تنسوني من صالح دعائكم open .shs in win7.rar