نجوم المشاركات

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

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

السلام عليكم جرب هذا الكود Public Sub Ali_nr() Dim c As Long Dim x As Long c = 11 For Each Rn In Array("j", "k", "l", "m", "n", "o") x = Evaluate("=SUMPRODUCT((raball!AQ$6:AQ$60000=B17)*(raball!AS$6:AS$60000=C2)*(raball!" & Rn & "$6:" & Rn & "$60000)*(date>=F$2)*(date<=G$2))") Cells(17, c) = x c = c + 1 Next End Sub

امس تعرضت لموقف لم اعرض له سابقاو هو انه و فى الاكسيل فقط توقف الزر الايمن للماوس عن العملو افتراضيا تصورت ان الماوس به مشكلة و لكن لم يكن كذلك و كان يعمل فى جمبع التطبيقاتهناك ثلاثة طرق لحل تلك المشكلة- استبدال احد ملفات بدء التشغيل باسم جديد - اعادة تحميل الاوفيس- تشغيل كود بسيط يقوم بحل المشكلة ، و هو الحل الافضل و هذا هو الكود Sub Enable_All_Right_Click_Menus() 'This will enable all BuiltIn Command bars Dim Cbar As CommandBar For Each Cbar In Application.CommandBars Cbar.Enabled = True Next End Sub المصدر و قد عادت المشكلة للظهور مرة أخري و هذ الكود عمل بطريقة افضل Sub reset_cellcommand() Application.CommandBars("Cell").reset End Sub و احتياطا قمت بفتح ملف PERSONAL.XLSB الموجود فى مجلد XLSTART مثلا C:\Users\<username>\AppData\Roaming\Microsoft\Excel\XLSTART\ و قمت بتنفيذ الكود عليه و حفظته

أتمنى أن يكون الملف المرفق مفيد للجميع _______.zip

http://safariexamples.informit.com/0672325500/Examples/ موقع فى اكثرمن210 مشروع اكسس

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

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

ضوابط وقواعد يحتاجها المسلم في زمن الفتن لا تتبع العاطفة وقيِّدها بالشرع التثبت في النقل وعدم... View the full article

إخواني الأعزاء عجبني الموضوع جداً فأحببت أن تشاركوني التجربة على هذا الرابط تدخل قمرة القيادة للطائرة AIRBUS A380 الجديدة وانت داخل الكابينة لديك أيقونات تتجه بها حيث تشاء داخل أجزاء الكابينة كما يمكنك استخدام أسهم الكيبورد لتغيير الحركة أو تسريعها، أتمنى أن تعجبكم الجولة . http://www.gillesvidal.com/blogpano/cockpit1.htm تحياتي أبو عبدالله

أحبتي أعضاء منتدانا الحبيب طلبي هو : 1/كود يجعل الماوس يتحرك في نطاق محدد و ألا يتعداه .النطاق المحدد معناه الخلايا الظاهرة ... و ألا ينتقل المؤشر إلى نطاق الصفوف و الأعمدة المخفية 2/كود يجعل شريطي التمرير العمودي و الأفقي لا يتعديان النطاق المحدد .النطاق المحدد معناه الخلايا الظاهرة ... و ألا ينتقل شريط التمريرإلى نطاق الصفوف و الأعمدة المخفية و أسأل الله أن ينعم عليكم و أن يفتح لكم أبواب الخير كله محبتي الخالصة تحديد نطاق تحرك المؤشر.rar

الاخوة الاكارم / الاساتذة الافاضل تحية حارة للجميع ..... الحقيقة لااعرف ماذا فعل الاولاد بالجهاز عندما فتحت الجهاز اليوم وفتحت ملف اكسل ظهرت لي الرسالة التالية : Could not load on object because it is not available on this machine وفق ما توضحه الصورة المرفقة مع ملاحظة ان باقي تطبيقات الافيس عند فتحها لاتظهر هذه الرسالة ( تظهر عند فتح الاكس فقط ) وبعد 3 مرات موافق يفتح الملف ( وكانه لايوجد مشكلة ) استخدم اوفيس 2007 والويندوز xp ارجو المساعدة ( ان امكن بحل غير اعادة تحميل الاوفيس ) مع الشكر الجزيل ابو الحارث

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

السلام عليكم اخي الحبيب / أبو محمد أشرف بارك الله فيك واتشرف بأن يكون اسمي علي اسم اخيك جزاك الله خيرا

طباعة عدد سجلات محدد في صفحات التقرير كطلب الأخ أبو ندى ، وتطبيق العبد الفقر لرحمة ربه نارت لبزو / أبو آدم http://www.officena.net/ib/index.php?showtopic=45998 ........

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

السلام عليكم الاخ الفاضل / حيدر جزائري اليك اخي رابط موضوع به حل مشكلتك وبعض اذن الاساتذة حل للقائد الاعلي لمنتدي اوفيسنا مهندس / محمد طاهر اضعه للاطلاع عليه والاستفادة منه باذن الله جزاكم الله خيرا شاهد الرابط بعنوان ( فجأة توقف الزر الأيمن للماوس عن العمل فى اكسيل فقط ) وهو الحل النهائي للمشكلة ( باذن الله ) http://www.officena.net/ib/index.php?showtopic=45037&hl=%D8%A7%D9%84%D8%A7%D9%8A%D9%85%D9%86

شكرا أخى الحبيب ( أبو محمد ) على مرورك وكلماتك الرائعة جزاك الله عنى خيرالجزاء وجعل مرورك وكلماتك فى ميزان حسناتك أمين يارب العالمين

اريد فتح 2 بريد الكترونى على الاوت لوك و لكن لا و كذلك اريد ربط الموقع بالاوت لوك فماذا افعل

السلام عليكم و رحمة الله و بركاته اخواني الكرام بالمنتدى اقدم لحضراتكم برنامج يصلح لصيدليات صرف الادويه في المستشفيات ( Pharmacy Version 2 ) بعد اضافة العديد من التعديلات عليه يمكنكم متابعة الاصدار السابق على الرابط التالي : http://www.officena.net/ib/index.php?showtopic=45269 كلمة سر Administrator هي : 111 ملاحظه : يفضل وضع الملف بالكامل في الدرايفر ( E ) وذلك حتى تعمل الساعه الفلاشيه الموجوده في فورم البرنامج و الله المستعان و السلام عليكم و رحمة الله و بركاته Pharmacy.rar

وقوف المؤشر عند أول النص في مربع النص .... moves the cursor to the text starting position عندي في النموذج مجموعة من مربعات النص ، بعضها مضبوط بقناع ادخال سواء للوقت او التاريخ او رقم الهاتف وغيره. المستخدم غالبا ينتقل باستخدام الماوس لمربع النص الذي يريد ان يضيف البيانات اليه او تعديلها ، فيقف غالبا في مكان ما من النص وليس في اوله ثم يبدا بكتابة البيانات بما يخالف ضبط قناع الادخال للحقل ، مما يسبب ظهور رسائل الخطأ ، نحتاج لطريقة نلزم فيها المؤشر للوقوف دائما عند أول النص .... جيد ... الامر متاح .... اليك الحل الجذري أنشيئ وحدة نمطية وأدرج بها الكود التالي: Function fCursorToStartOnClick() '* Move cursor to start of text field when clicked On Error Resume Next If Len(Screen.ActiveControl.InputMask) > 0 Then If IsNull(Screen.ActiveControl) Then Screen.ActiveControl.SelStart = 0 End If End If On Error GoTo 0 End Function ومقابل حدث عند الضغط لمربع النص المعني أدرج الجملة: =fCursorToStartOnClick() نفذ التطبيق وحاول - بالضغط داخل الحقل - الوقوف بالمؤشر في اي مكان من المربع (غير بدايته) وكفى ... قضي الأمر ...................

تكبير إطار النص .... ZoomBox في نموذج ادخال البيانات لدي حقل نصي أحتاج ان ادخل به معلومات تشكل مجموعة أسطر وليس لدى مساحة كافية في النموذج تكفي لمساحة الحقل الذي افكر به ، وفي اي نموذج آخر احتاج عرض البيانات المدخلة كاملة مع تميز النص المدخل في هذا الحقل بخط مختلف ولون مختلف بحيث تسهل قراءتها.... مهلا ... مهلا نتحدث هنا عن ZoomBox ، في نموذج إدخال البيانات وخلف مربع النص المعني استخدم الكود: Private Sub Text2_GotFocus() DoCmd.RunCommand acCmdZoomBox End Sub وفي اي نموذج وعند أي مربع نص وحين تحتاج عرض ZoomBox إضغط Shift+F2 ، وإقرأ البيانات بشكل مريح ، وإضبط خيارات النص بالضغط على Font… في ZoomBox ، وغير نوع الخط و الحجم واللون وشكل الخط مائل ... عريض ... ، وكما تشاء جرب هذه الفكرة فهي جديرة بتجربتها واستخدامها

إسدال مربع التحرير والسرد .... combo box drop down في النموذج الخاص بادخال البيانات وعند الوصول لمربع التحرير والسرد نحتاج احيانا ان تنسدل محتويات المربع فورا دون الضغط على مؤشر المربع... !! لمحة جمالية واحترافية وملفتة لنظر المستخدم. استخدم الكود التالي : Private Sub cboName_GotFocus() Me!cboName.DropDown End Sub قضي الأمر ....... ...........

حذف السجلات Deleting Records ويروق لي أن اسمي هذا الموضوع بالحذف الحقيقي و الحذف الافتراضي. في غالب التطبيقات نجد من الضرورة ، أن نضيف في مكان ما من نماذجنا وحسب الحاجة زر أمر نقوم من خلاله بحذف السجلات التي نظن أنها لا تلزمنا أو لسبب ما لا بد من حذفها من قاعدة بياناتنا. ولسبب ما ( مرتبط بالتجربة الطويلة ولأسباب علمية وعملية) ينصح أهل الخبرة في قواعد البيانات ومن يعتبرون من المطورين المعول على كلامهم وتجربتهم ، أن عملية الحذف الحقيقي عملية مؤلمة ومكلفة في آن واحد ، فحين تقرر حذف سجل معين فإنك تقرر الاستغناء عن جزء من المنظومة المعلوماتية التي مرت على هذه القاعدة ، وبالتالي خسارتها للأبد ، ويزيد الامر تعقيدا حين نتعامل مع عملية الحذف المقترن بجداول مرتبطة ، نخسر فيها أطرافا متعددة من العناصر المعلوماتية. وهنا سأورد الرأي بتصرف مضيفا بعضا من خبرتي المتواضعة، فينتهي القول الى: بديل مناسب لعملية الحذف الحقيقي ، وتتمثل ببساطة بإضافة الحقول التالية للجداول الرئيسية التي ستتعرض لعمليات الحذف (الافتراضي ) وهي حقل نعم/لا ، وحقل تاريخ وحقل نصي ، وتتلخص العملية بأن تكون هذه الحقول الثلاثة هي محور الحذف الافتراضي ، فحين نقرر عدم حاجتنا للسجل ، ما علينا الا ان نغير قيمة (لا) الافتراضية في الحقل الاول الى (نعم) ، ونضيف عبر الكود التاريخ الى الحقل الثاني Now و اسم المستخدم للحقل الثالث. هنا طبعا يفترض اننا سنقوم بالاجمال باسناد مصادر السجلات في جميع نماذجنا ونبني استعلاماتنا على اساس افتراضي تكون فيه القيمة للحقل الاول هي (لا) حتى نتجنب السجلات المحذوفة افتراضيا. هذه العملية البسيطة قد لا تجدها مجدية او ذات اهمية وتتحمس للحذف الحقيقي ، ولكن : حين تتعرض لخسارة سجلات مهمة حذفت من قبلك عن طريق الخطأ او عن طريق اي مستخدم حين تمر السنوات على تطبيقك وياتي يوم تحتاج فيه لاحصاءات ومقارنات وتحليلات وتقارير تتعلق بتاريخ قاعدة البيانات ، سواء لحاجاتك انت او بطلب من ادارتك او عميلك ستتعرف لأهمية هذا الروتين البسيط. فحين تتعرض لطلبات لا يقوى عليها صاحب الحذف الحقيقي ، ستكون اجابتك (ممكن ... فكل شيئ متاح) اما البديل الخاص بالحذف الحقيقي ان صممت عليه فهو الكود: If Msgbox ("You are about to delete data, do you want to continue?", vbYesNo + vbCritical,"Confirm Delete") = vbYes Then CurrentDb.Execute "DELETE MyID FROM MyTable WHERE MyID = " & Me.MyIDControl, dbFailOnError End If مع ضرورة التنبيه قبل اجراء عملية الحذف لأنه .... حقيقي....!!! ..............

خطأ # ، Error# نتيجة مزعجة نحصل عليها في النماذج والتقارير السبب: في الحقول التي نقوم بها بأي عملية إحتساب ( sum , count) حين لا يكون هناك سجلات ومعلومات لاحتسابها تظهر هذه النتيجة المزعجة.. الحل في النماذج 2003: بدلا من استخدام =Sum([Amount]) نستخدم =IIf([Form].[Recordset].[RecordCount] > 0, Sum([Amount]), 0) الحل في التقارير 2007: =IIf([Report].[HasData], Sum([Amount]), 0)) أما في 2007 فالامر مختلف ، فهو لا يقبل هذا الكود ، ويلزم إنشاء وحدة نمطية ندرج فيها : Public Function FormHasData(frm As Form) As Boolean 'Purpose: Return True if the form has any records (other than new one). ' Return False for unbound forms, and forms with no records. 'Note: Avoids the bug in Access 2007 where text boxes cannot use: ' [Forms].[Form1].[Recordset].[RecordCount] On Error Resume Next 'To handle unbound forms. FormHasData = (frm.Recordset.RecordCount <> 0&) End Function وفي مصدر السجلات لمربع النص في النموذج نضع الكود: =IIf(FormHasData([Form]), Sum([Amount]), 0) وبذلك تنتهي المشكلة ونتخلص من نتائج الخطأ المزعجة ، """ وإذا عرف السبب سهل الحل وبطل العجب """ ...........

خلال التطبيق تم تفعيل وفتح أكثر من نموذج ، مثل عرض معلومات موظف في نموذج ومن خلاله تم فتح نموذج ثاني لمبيعات هذا الموظف ثم نموذج لطلبيات عميل من عملائه. في مرحلة معينة اريد اغلاق جميع النماذج مرة واحدة . دعونا نستخدم الكود التالي : do while forms.count>0 docmd.close acform,forms(0).name loop ,>>>>>>>>>>>>>>>

نستخدم في التطبيق بحكم الحاجة الكثير من الرسائل و التنبيهات ، وفي كل مرة نضطر لكتابة الكود وتحديد موصفات وخصائص صندوق الرسائل ، النص و ضبط الازرار و الشكل و العنوان و,,, و,,, فدعونا ننشيئ وحدة نمطية نستدعيها عند اللزوم Public Function MsgOK(MsgText As String) As Boolean Dim LResponse As Byte Dim MsgTitle As String MsgTitle = " تنبيه " LResponse = MsgBox(MsgText, vbInformation + vbMsgBoxRight, MsgTitle) If LResponse = vbOK Then MsgOK = True Else MsgOK = False End If End Function وحين نحتاجها نستدعيها Call MsgOK("بسم الله الرحمن الرحيم")

Date And Time At Forms Caption لإظهار تاريخ اليوم والوقت بدل اسم النموذج ، الكود التالي يفي بالغرض مع تثبيت الرقم 1000 في Timer Interval Private Sub Form_Timer() Me.Caption = " Today is " & "Date :" & " " & Format$(Now()), "dd mm yyyy " & " Time : " & "h:mm:ss AMPM" End Sub >>>>>>>>>>>>

Conditional Formatting, Alert, Statistics أريد ان انفذ التنسيق الشرطي عبر الكود ، بقيمة حقل او حقلين أو غيره ، بشرط معين او شروط اطبق نتيجة بصرية في النموذج ، من باب التنبيه أو الاحصاء. الكود التالي يؤدي الغرض Private Sub Form_Current() If Me.strDate < Date Then Me.ID.BackColor = vbRed End If End Sub وطبعا البساطة والتعقيد تبع للظروف ... والمتطلبات ، ولكن هذه أصل الفكرة .... القاموس

Doblecated recorde في النموذج نختار رقم الفرع أو المعرض ثم نثبت السنة ثم نختار رقم الطلبية ، بعدها يبدأ عمل الكود (قبل التحديث أو بعد التحديث) ، فانا لا أريد تكرار السجل لرقم الطلبية لهذا الفرع لهذه السنة ، ثلاثة متلازمة ، هذا الكود يمنع التكرار . Private Sub OrderID_AfterUpdate() Dim rst As Recordset Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF If rst!strOrder = Me!OrderID And rst!strCenter = Me!Center And rst!strYear = Me!Year Then MsgBox " Doblecated recorde ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " Note;. " Me.Undo DoCmd.CancelEvent Exit Do End If rst.MoveNext Loop rst.Close End Sub

السلام عليكم و رحمة الله و بركاته أخى tahar1983 جزاك الله كل خير على كلماتك الطيبة لانشاء الساعة الرقمية يمكنك متابعتها من الرابط التالي : http://www.officena.net/ib/index.php?showtopic=30749&pid=155076&st=20&#entry155076 و اذا احتجت اي مساعدة انا مش هتأخر ان شاء الله و السلام عليكم و رحمة الله و بركاته