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

جرب المعادلة التالية كما فى المثال =SUMIFS($C$7:$C$21,$B$7:$B$21,B24,$C$7:$C$21,">0") SumIFFs.zip

هذه المعادلة =SUMPRODUCT(--($B$7:$B$21=$B$4),--($C$7:$C$21>0),$C$7:$C$21)

تفضل هذا الكود يقوم بالعمل: Private Sub cmd_Do_Records_Click() Dim i As Integer Dim rst As dao.Recordset Set rst = CurrentDb.OpenRecordset("Select * From [2]") For i = Me.NumFrom To Me.NumTo rst.AddNew rst!ID = Me.ID rst![name] = Me!name rst!Numall = i rst![date] = Me.[date] rst.Update Next i rst.Close: Set rst = Nothing MsgBox "Done" End Sub جعفر 759.Database22.accdb.zip

حياك الله وشكرا على التقرير جعفر

أخي الكريم مراد المثل يقول: لا تعطني سمكة ولكن علمني كيف أصطاد وبالفعل قدم لك الأساتذة السمكة وفن الصيد لكن اعذرني لم تحاول أن تجهد نفسك فيما قدموه ******** فشرح الدالة الأولى من الأستاذ سليم (سلمه الله من كل سوء) =SUMPRODUCT(--($B$7:$B$21=$B$4),--($C$7:$C$21>0),$C$7:$C$21) تعني جمع المدى الأخير c1:c21 إذا تحقق شرط تساوي النطاق من b7:b21 بقيمة الخلية b4 وكذلك بشرط أن تكون قيمة النطاق c7:c21 أكبر من صفر ويمكنك أيضا إضافة الشرط الثالث بنفس الطريقة بإضافة فاصلة ثم -- ثم المدى الذي به أسماء العملاء ثم = ثم الخلية التي بها العميل المطلوب ************** وشرح دالة البشمهندس محمد (أعانه الله على فعل الخير) =SUMIFS($C$7:$C$21,$B$7:$B$21,B24,$C$7:$C$21,">0") تعني جمع المدى الأول ثم فاصلة ثم المدى الخاص بالتاريخ ثم فاصلة ثم شرط التاريخ وهكذا المدى ثم الشرط وإن تعددت الشروط ===== جرب وأخبرنا بالنتيجة

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

فقط غير في الاسطر التالية اللي في بداية الكود من هذا Dim Mablax1 As Integer Dim Mablax2 As Integer Dim Mablax3 As Integer بهذا Dim Mablax1 As Double Dim Mablax2 As Double Dim Mablax3 As Double

بعد اذن اخي عبد اللطيف ولتعم الفائدة ، هذه نسخة بصيغة 2003 جعفر مؤسسة البركة لبيع الخلويات.zip

دلفي (بالإنجليزية: Delphi)، أو CodeGear Delphi سابقا أو Embarcadero Delphi حاليا هي لغة برمجة كانت من إنتاج شركة بورلاند سابقا و تطورها الآن شركة امباركاديرو تكنولوجيز. هذه اللغة مبنية على لغة باسكال الكائنية حيث تعتبر تطويراً للغة باسكال القديمة، تعتبر دلفي لغة شائعة ومنتشرة حالياُ، وهي دلفي لغة مرئية و من اللغات العالية الإنتاجية. وتعتبر في مصاف اللغات القوية والسهلة معا. تستخدم دلفي لتطوير البرامج والتطبيقات بشكل سريع ولذلك يشار إليها بأنها ذات صفة بيئة تطوير متكاملة R.A.D وهذه الصفة تعني تطوير البرامج بسرعة أي Rapid Application Development وذلك يتحقق باستخدام مكونات وأدوات جاهزة تنسق بالشكل المطلوب ويتم برمجتها بكتابة عدة برامج مرتبطة بأحداث معينة خاصة بهذه المكونات أو العناصر ويشار إلي هذا النوع من البرمجة بالبرمجة بالأحداث. البرمجة بالأحداث هي برمجة تتوقف على حدوث حدث ما لعنصر ما يوجد في التطبيق بمعنى عند حدوث حدث معين مثل النقر على زر أو إغلاق إطار ، يتم تطبيق برنامج معين سبق كتابته في التطبيق ويفهم من ذلك أن لكل كائن أو عنصر Object حدث أو أكثر يمكن ربط أي منها بإجراء معين. يطلق في علم البرمجة المرئية على العنصر اسم Object وهو نفسه الكائن أو المكون Component والعناصر هي عبارة عن أي شئ تم استخدامه في البرنامج مثل الإطار (Form) أو الزر (Button) أو مربع النص (Edit) أو القائمة (Menu) ... الخ. لكل عنصر Object أحداث معينة مرتبطة به أو بمعنى آخر أحداث تحدث له في وقت معين ، فمثلاً تستخدم الأزرار كي يتم النقر عليها غالباً وعملية النقر هذه يشار إليها في علم البرمجة المرئية على أنها حدث النقر ، فعند النقر على زر ما تقوم لغة البرمجة المرئية Delphi بتطبيق الإجراء المرتبط بهذه الحدث والذي سبق وأن تمت برمجته من قبل المبرمج. أيضاً الكتابة داخل مربع النص تعتبر حدث والدخول أو الخروج من مربع النص يعتبر حدث آخر وتمرير مؤشر الماوس على أحد العناصر يعتبر أيضا حدث يمكن ربطه بإجراء (برنامج) معين... وهكذا. تسمح لغة البرمجة Delphi للمبرمج بتصميم التطبيق المطلوب باستخدام عدة عناصر Objects توضع على إطار Form واحد أو أكثر حسب الشكل الذي يحتاجه التطبيق ومن ثم يتم كتابة البرامج أو الإجراءات Procedures لكل حدث event من الأحداث المراد برمجتها بمعنى أنه لو تم استخدام زر Button في التطبيق فإنه من الطبيعي أن يتم كتابة إجراء لحدث النقر على هذا الزر . وهكذا يتم كتابة كل الإجراءات اللازمة للتطبيق. نستنتج من ذلك أن عملية تطوير التطبيقات باستخدام لغة البرمجة المرئية Delphi تمر بمرحلتين : المرحلة الأولى : هي تصميم التطبيق وفي هذه المرحلة يتم وضع وتنسيق العناصر التي يتكون منها التطبيق ويتخلل هذه المرحلة تحديد خصائص Properties كل عنصر وخصائص العنصر هي عبارة عن مواصفاته مثل الأبعاد والموقع والاسم واللون وغير ذلك ويلاحظ هنا أن لكل عنصر خصائصه وإن اشتركت بعض العناصر في بعض الخصائص. المرحلة الثانية : هي مرحلة كتابة الإجراءات المرتبطة بالأحداث وهي مرحلة البرمجة حيث يتم كتابة برامج صغيرة كانت أو كبيرة على هيئة إجراءات Procedures خاصة بأحداث معينة للعناصر المستخدمة في التطبيق. يطلق على العناصر Objects المستخدمة في تطبيقات Delphi اسم مكونات Components وأحياناً تسمى المكونات الرسومية أي Visual Components ولغة Delphi غنية بهذه المكونات وتسمى مكتبة المكونات الرسومية VCL أو Visual Component Library بحيث يمكن لمطوري التطبيقات استخدامها لإنشاء وتصميم أي تطبيق. كما أن لغة Delphi تسمح بإنشاء مكونات رسومية خاصة بمطوري التطبيقات يمكن إضافتها إلى مكتبة المكونات الرسومية VCL الخاصة بلغة Delphi لكي يمكن استخدامها في أي وقت لاحقاً.

برنامج_مخازن_جديد.xlsm

بسم الله الرحمن الرحيم كيف الحال أحبابي في الله إن شاء الله بخير وسعادة ورضا كل عام أنتم جميعا بخير نلتقي من جديد في شهر ميلاد سيد الخلق وهديتي لكم بمناسبة المولد النبوي الشريف هي ********** بناء على طلب الأخ الفاضل @عبدالرحمن وسلمى قمت بعمل دالة معرفة لجلب ناتج التفقيط الموجود في صقحتي الشخصية فس موقع أوفيسنا https://officena.net/team/mas/tafkeet/ إلى ملف إكسل أو أكسس بشرط الاتصال بالانترنت ============== الجميل في الصفحة أنها تراعي بإذن الله كل قواعد صياغة العدد في اللغة العربية ولا تحتوي على أخطاء إملائية ولا نحوية وتمت برمجتها بلغة php لأني لم أجد من المرونة في لغة فيجوال بيسك للتطبيقات vba ما يسمح بنفس البرمجة المستخدمة في لغة الويب php لذا تم التحايل على الأمر بكود يقوم بطلب الصفحة الخاصة بالتفقيط وتمرير البيانات الخاصة بنا من صفحة الإكسل إلى الموقع ثم يسجل ما يعود به الموقع في الخلية ============ ويمكن الاستفادة من الكود في جلب بيانات أي صفحة من الانترنت عن طريقة vba والآن أترككم مع الملف التفقيط من الانترنت.rar

السلام عليكم. من المعروف أن الدلفي يستخدم لغة الباسكال الإجرائية. لذلك سوف أقوم بشرح أهم النقاط التي يحتاجها المبرمج لبداية كتابة الأكواد البرمجية في الدلفي: التصريحات: في هذا الجزء يعلن عن الثوابت و المتغيرات الضرورية لحل مشكل ما: 1- تعريف المتغير: هو خانة في الذاكرة تستعمل لحفظ قيمة و يمكن تغييرها حسب الحاجة. صيغة التصريح بالمتغير: Var variable1,variable2,.....variableN:Type; Type: نوع المتغير variable1,variable2,.....variableN:أسماء المتغيرات مثال: Var A,B,C:integer; أنواع المتغيرات: المتغيرات الرقمية: shortint: عدد صحيح قصير من -127 إلى 127 Byte: من 0 إلى 255 integer: عدد صحيح من -32768 إلى 32767 word: من 0 إلى 65535 longint: عدد صحيح طويل من -2147483648 إلى 2147483647 real: عدد حقيقي من 2.9x10^-39 إلى 1.7x10^38 double: من 5x10^-324 إلى 1.7x10^308 extended: من 1.9x10^-4951 إلى 1.1x10^-4932 المتغيرات النصية: char: حرف واحد string: سلسلة أحرف نصية المتغيرات المنطقية: boolean: قيمة منطقية true أو false 1- تعريف الثوابت: هو خانة في الذاكرة تستعمل لحفظ قيمة حيث تعطى قيمة ثابتة في البداية و لا يمكن تغييرها. صيغة التصريح بالثابت: Const identificateur=Value; مثال: Const Pi=3.14; R=10.75;

تفضل جعفر 49.1.View_Internet.mdb.zip

وعليكم السلام انا اعرض عليك طريقة التصفح فقط اذا فهمت سؤالك صح ، فانت تريد مواضيع قسم الاكسس اللي في الموقع ، ابتدأ من الموضوع 1 الى 774 ، كل اللي عليك تعمله هو عمل سجلات من 1 الى 774 بهذه الطريقة (فقط تغير الرقم 20 بالرقم المطلوب) ، https://www.officena.net/ib/topic/20-؟ . وكود عمل هذه السجلات ممكن يكون هكذا: dim rst as dao.recordset set rst=currentdb.openrecordset("Select * From [اسم الجدول]") for i = 1 to 774 rst.addnew rst![اسم الحقل]="https://www.officena.net/ib/topic/" & i & "-?" rst.update next i rst.close:set rst=nothing . ويمكنك استخدام احد برامجي من الروابط التاليه ، وتطويعها لتصفح صفحات الموقع: . . . وشيخ البرامج اعلاه . جعفر

بالاضافة الى ما سبق هذه المعادلة (Ctrl+Shift+Enter) =SUM(IF(($B$7:$B$21=$B$4)+($C$7:$C$21>0)=2,$C$7:$C$21))

وعليكم السلام انت محتاج هذا الكود ليحسب عدد السجلات في النموذج الفرعي fd If Me.frmsubSearch_sales.Form.Recordset.recordcount = 0 Then MsgBox "عفوا ، لا توجد فواتير بهذا الرقم" End If . ويكون في احد احداث الحقل n3 ، سواء بعد التحديث او قبل التحديث او حتى في نهاية الكود الموجود حاليا جعفر

بارك الله فيك استاذ جعفر .. ماقصرت .. تحياتي

وعليكم السلام و رحمة الله تعالى و بركاته لنفرض ان التاريخ موجود في الخلية b1 والعميل موجود في الخلية b2 تكن المعادلة =SUMPRODUCT(--($B$1=$B$7:$B$21)*--($B$2=$A$7:$A$21)*--($C$7:$C$21>0),$C$7:$C$21)

لما عملت الكود اعلاه على زر الحفظ ، هل عندك نموذج بإسم frm_Main وبه حقل بإسم iRjmFatwra ؟ هناك عدة طرق تأتي على بالي لمنع تكرار ادخال البيانات ، منها في الاستعلام ، بحيث نجمع اكثر من حقل مع بعض ، مثلا: chk_Dup: [Rjmfatwra] & [Rajmsanf] & [Alkmiah] & [NoEmp] & [Atarih] ثم نقارن بيانات النموذج الفرعي بهذه البيانات عن طريق Dlookup مثلا ، فاذا موجود سجل واحد منها ، فهذا دليل انه تم حفظ البيانات سابقا ، او بعد الحفظ ، نجعل الزر غير مفعّل: me.أمر16.enabled=false ثم عند فتح فاتورة ثانية (او اي طريقة تعتقد انها مناسبة) ، تعمل تفعيل للزر. جعفر

شكرا لتواصلك أخي الكريم إن شاء الله سيتم فتح موضوع جديد بهذا الخصوص ولكن لم تخبرنا برأيك في الموضوع المنشور

شششششششششششششششششششكرا جزيلا اساتذتنا واخواننا بالموقع اخوكم ابو شرف

وعليكم السلام 1. رجاء شرح المطلوب بالتفصيل ، وبإستخدام اسماء جداول ونماذج واستعلامات وتقارير وحقول ، من واقع برنامجك المرفق ، 2. اعطائنا مثالين (وليس مثال واحد) من واقع برنامجك المرفق ، وتستطيع عمله بالاكسل او الوورد او بصورة ، 3. اعطاء اي معلومة اضافية اخرى تفيدنا في حل سؤالك جعفر

وعليكم السلام جرب هذا : City: mid([PicFile],instrev([PicFile],"\")+1) واما اذا اردت الاسم فقط City: replace(replace(mid([PicFile],instrev([PicFile],"\")+1),".png",""),".jpg","") . او city: replace([PicFile],"C:\Teed\","") والاسم فقط city: replace(replace(replace([PicFile],"C:\Teed\",""),".png",""),".jpg","") جعفر

وعليكم السلام 1. احنا في الاستعلام وضعنا معيار ، والمعيار به اسم النموذج واسم الحقل ، لذلك لا نستطيع استعماله في نموذج آخر!! نعم هناك طريقة انا استخدمها في جميع برامجي تقريبا ، وهي: أ. عندي نموذج واجهة frm_Main دائما مفتوح ، واعمل فيه مجموعة حقول مخفية وغير مضمنه ولا مرتبطة بشيء ، ب. فإذا اردت ان اجعل معيار الاستعلام يعمل لجميع النماذج ، اعمل التالي: اُسمي احد حقول النموذج الرئيسي frm_Main ، اسم iRjmFatwra ، قبل استعمال الاستعلام (سواء استعمال الاستعلام بمفرده او كمصدر بيانت لنموذج او تقرير) ، اعمل التالي: Forms!frm_Main!iRjmFatwra = me.RjmFatwra DoCmd.OpenQuery "QHRR" . وبدل ان يكون المعيار في الاستعلام هكذا: . يصبح هكذا ، وبهذه الطريقة يمكن استعمال هذا الاستعلام لعدة نماذج وتقارير . 2. المعيار الوحيد الذي وضعناه في الاستعلام هو رقم الفاتورة ، فإذا فاتورة الشراء بها رقم ، فالجواب سيكون نعم يمكنك استخدامه هناك ايضا شيء آخر لايزال يقلقني في الاستعلام الذي عملناه في برنامجك!! ماذا لو ضغط المستخدم على زر الحفظ عدة مرات ، فهذا سيُلحق البيانات عدة مرات الى الجدول!! لهذا السبب يجب عليك ان تنظر في هذا الموضوع وتجد له حل جعفر

وطريقة اخرى للكود اعلاه Private Sub DocHid() Dim ctrl As Control For Each ctrl In Me.Controls If ctrl.Tag = "DocHidTg" And ctrl.Value = val("0") Then ctrl.Visible = False End If Next End Sub . اما بالنسبة الى سؤالك الثاني: هذا الكود يقرا كائنات النموذج الذي يفتح منه فقط ، يعني اذا فتحت الكود في النموذج الرئيسي (بغض النظر عن اي حدث) ، فسيقرأ كائناته فقط ، واذا فتحت الكود في النموذج الفرعي (بغض النظر عن اي حدث) ، فسيقرأ كائناته فقط ، If ctrl.Tag = "Admin2Tg" Then ctrl.Enabled = True End If . الافضل ان تعرض صورة من شكل النموذج الذي عندك ، والنماذج الفرعيه ، حتى استوعب الموضوع ، وطبعا اذا ارفقت هذه الجزئية من برنامجك ، يكون افضل جعفر

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

وعليكم السلام هذه نسحة من بيانات جدول raseed لأحد تقارير (التقرير رقم2): . بالنسبة لترتيب الارقام ، لاحظ بيانات الاعمدة=2 ، وسترى ان الحالي=Seq2 (مثل ترتيب ID) ، بينما المفروض=rpt2_Seq (لاحظ اننا عملنا فرز بالتاريخ ، وعليه نعطيه ارقام التسلسل) . والكود يقوم بتعديل بيانات الحقلين Seq2 و rpt2_Seq ، حسب عدد الاعمدة وعدد السجلات: . . كما اوضحت لك بعاليه ، فعند طلبك طباعة التقرير ، فالكود يقوم بتعديل بيانات Seq2 و rpt2_Seq (حسب التقرير المطلوب طباعته) ، ولكن يجب ان تكون متغيرات الكود قد تم وضعها بالطريقة الصحيحة ودون اخطاء جعفر

في خانه salary استخدم SUMIFS كما يلي =SUMIFS(Q6:Q8;N6:N8;J4;O6:O8;K4;P6:P8;L4)

بعد اذن اخي صديق هذا الملف بواسطة الماكرو Test_salim.rar

السلام عليكم كان من الافضل ارفاق ملف لفهم الموضوع اكثر و العمل عليه المهم اليك مثال حسب ما فهمت ان شاء يكون المطلوب الضغط على (ctrl +shift +enter) لكي لا يحدث خطأ Test.rar

الاخوة الافاضل جزاكم الله خيرا في بحثي عن حل لمشكلة تصدير البيانات الى الاكسس وجدت هذا الكود الرائع ولكني عند تجربته صادفت مشاكل في التطبيق لذا ارجوا من الاخوة مراجعته وفادتي لاهمية هذا الكود بالنسبة لي لان لدي برنامج قاعدة بياناته اكسس واحتاج كثيرا الى تصدير البيانات منه الى الكسل واجراء بعض المعالجات عليها واعادة لصقها في الاكسس مرة اخرى وفيمما يلي الكود 'If you want to export data to an Access table from an Excel worksheet, the macro example below shows how this can be done: Sub DAOFromExcelToAccess() ' exports data from the active worksheet to a table in an Access database ' this procedure must be edited before use Dim db As Database, rs As Recordset, r As Long Set db = OpenDatabase("d:\SalesSystem.mdb") ' open the database Set rs = db.OpenRecordset("Transactions", dbOpenTable) ' get all records in a table r = 2 ' the start row in the worksheet Do While Len(Range("A" & r).Formula) > 0 ' repeat until first empty cell in column A With rs .AddNew ' create a new record ' add values to each field in the record .Fields("FieldName1") = Range("A" & r).Value .Fields("FieldName2") = Range("B" & r).Value .Fields("FieldNameN") = Range("C" & r).Value ' add more fields if necessary... .Update ' stores the new record End With r = r + 1 ' next row Loop rs.Close Set rs = Nothing db.Close Set db = Nothing End Sub 'The macro example assumes that your VBA project has added a reference to the DAO object library. 'You can do this from within the VBE by selecting the menu Tools, References and selecting Microsoft DAO x.xx Object Library. 'Use ADO if you can choose between ADO and DAO for data import or export.

السلام عليكم ورحمة الله غير تنسيق الخلية الى NUMBER

أرجو ان بكون المطلوب mohammad_salim.rar

اكتب مايلي في خانة البحث من مربع البحث والاستبدال [(][أ-ي]{1,}[)] هذا سيحدد لك جميع الكلمات التي ما بين قوسين في خانة الاستبدال اكتب ماتريد فعله لهذه الكلمات التي ما بين قوسين والسلام

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

هل ممكن التعديل على هذا المرفق بحيث يكون الارسال كل مشترك حسب دخله الموجود بنفس الحقل ارسال واتس اب كل مشترك على حده.rar

مرحبا سيد جمالين ممكن ملف مثال على التصدير من اكسل الى اكسس و شكرا جزيلا

في احد برامجي ، والذي كان في الخدمة لمدة 14 سنه تقريبا ، وكان منقسم الى قسمين ، البرنامج كان على الشبكة ويُستعمل طوال اليوم من 5 مستخدمين على الاقل ، كانت خاصية الضغط عند الاغلاق مُفعّلة في جزء الجداول ، وبدون اي مشكلة جعفر

وعليكم السلام ورحمة الله وبركاته مشاركة مع زملائي وبالتحديد تفعيل الخيار الضغط عند الاغلاق : انا مع ابو خليل وذلك للاسباب التالية 1. لم ياتي الخيار افتراضيا معمول صح ! معناته يوضع في حالات خاصة وهنا اتوقع انه عندما يكون لديك انشاء كائنات وحذف كائنات في نظامك اي هناك تعديلات في البنية او تركيبة القاعدة فهنا تحتاج بالضرورة لتفعيل هذا الخيار ! اما اذا كانت لحجم البيانات فهنا تستطيع ان تفعل الخيار في اوقات تحددها انت ثم تعيد ازالة الخيار ! فمثلا استطيع ان احدده عند وقت محدد او عند وصول حجم القاعدة الى حجم معين ! 2. لو كان من الافضل وضع الخيار دائما لتم وضع هذا الخيار ضمنيا في الاكسس وبدون خيار صريح للمستخدم لاحظ انه تولدت فكره من سؤالك ولضغط القاعدة الحالية وذلك بتفعيل الخيار ثم الاغلاق ثم الفتح وتعطيل الخيار وذلك من الامر : Application.SetOption "Auto compact", true Application.SetOption "Auto compact", False تحياتي

نعم صحيح ، في النسخة الاولى من اكسس 2007 ، الضغط والاصلاح كان يتلف قاعدة البيانات ، واصلحت مايكروسوفت الوضع بإصدار تحديثات له (ولكن وللأسف الشديد ، هناك مستخدمين يستعملون البرنامج الاصلي ، وبدون اي تحديثات له طول العمر!! فلذلك ، ولهذه النسخ بالذات ، كلامك صحيح 100%) ، بس ما دمنا نتكلم عن التحديثات ، احب ان أضيف هذه المعلومة: اول تحديث للأكسس 2000 ، كان يحتوي على اكثر من 300 تصليح/إضافة. لهذا السبب ، التحديث غاية في الاهمية ، سواء لنظام التشغيل الوندوز او الاوفيس. تم استدعائي لأحد الدول لأنظر في مشكلة برنامجهم الذي كان به بعض المشاكل ، ومن ضمن هذه المشاكل فقد جزء من البيانات ، الكهرباء كانت تنقطع ولم تكن منتظمة ، وقد كانت الشبكة عندهم عبارة عن كمبيوترات لابتوب ، والسيرفر عليه UPS ، فالمبرمج الذي عمل البرنامج والشبكة لهم اخذ في الاعتبار مشكلة عدم انتظام الكهرباء بهذه الطريقة ، ولكني اكتشفت المشكلة ، والتي كانت بسبب انقطاع الكهرباء ، وهي ان المبرمج لم يضع UPS على Switch الشبكة ، فتواصل البيانات ينقطع بين الكمبيوترات والسيرفر عند انقطاع الكهرباء ، وتم حل المشكلة بربط الـ Switch بجهاز UPS اذن في هذه الحالة ، نستطيع ان نعمل التالي: 1. بأمر من الاكسس ، نعمل نسخة إضافية من برنامج الجداول ، 2. نتأكد ان نسخة برنامج الجداول موجوده ، 3. وبأمر آخر نعمل الاصلاح والتعديل ، فاذا لأي سبب تلفت هذه النسخة ، فنستطيع استعمال النسخة الاحتياط. طبعا انا هنا اعطيت البديلبسبب انقطاع الكهرباء جعفر جعفر

زملائى بالمنتدى العزيز على قلبى مما لا شك فيه ان موضوع إيجاد الفرق بين تاريخين او طرح تاريخين يهم الكثير من مستخدمى الاكسيل لذالك اقدم لكم شرح مبسط لداله DateDif تستخدم هذه الدالة فى إيجاد الفرق بين تاريخين او طرح تاريخين شكل الدالة يكون كالتالى DATEDIF(Date1, Date2, Interval) شرح الداله الداله هى DateDif وتتكون من 3 أجزاء Date1 هو تاريخ الاقدم Date2 هو تاريخ الاحدث Interval وهو نوع النتيجة المطلوبه انواع Interval كما بالصورة واليكم تطبيقات عمليه بالصور للداله مثال 1 لدينا تاريخ بالخلية A1 وهو 2010/08/05 تاريخ الميلاد (مثلا) وتاريخ بالخلية B1 وهو 2014/12/08 تاريخ اليوم (مثلا) ونريد كم فرق السنوات بين تاريخين ( اى كم عمر الطفل بالسنوات عند هذا التاريخ) نكتب بالخلية C1 الداله التالية =DATEDIF(A1;B1;"y") نلاحظ هنا اننا استخدمنا حرف Y وهو اختصار لـ Year ونلاحظ ايضا انها مكتوبة بين علامتين تنصيص " " ويكون ناتج المعادله وهو 4 سنوات كما بالصورة مثال 2 اذا اردنا حساب الفرق بالشهور نغيير Y الى M وهو اختصار month وتكون المعادله كالتالى =DATEDIF(A2;B2;"m") ويكون النتيجة هى 52 شهر كما هو موضح بالصورة . مثال 3 اذا اردنا حساب الفرق بالشهور نغيير m الى D وهو اختصار Day وتكون المعادله كالتالى =DATEDIF(A2;B2;"d") ويكون النتيجة هى 1586 يوم كما هو موضح بالصورة مثال 4 اذا اردنا حساب الفرق بين التاريخين كم سنة وكم شهر وكم يوم بفرض ان التاريخين بالمثال الاول بالخلية A2 والخلية B2 وتكون المعادله كالتالى نضع بالخلية C2 المعادله التالية =DATEDIF(A2;B2;"y") ونضع بالخلية D2 المعادله التالية =DATEDIF(A2;B2;"ym") ونضع بالخلية E2 المعادله التالية =DATEDIF(A2;B2;"md") ونلاحظ النتيجة كما هو موضوح بالصورة اتمنى ان اكون وفقت بالشرح وان شاء الله سوف اجهز المزيد من الامثله العملية والمصحوبه بالصور تقبلوا منى وافر الاحترام والتقدير

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

السلام عليكم و رحمة الله وبركاته لدى مشكلة و لم اجد لها حل حتى الان وهى عدم ظهور email notification فى حالة وجود ميل جديد . والايميل الاساسى هو ياهو و استخدم OutLook 2010 & IMAP . قرات فى منتديات اجنبية ان IMAP لا يوجد لديه خاصية email notification popup فهل هذا صحيح ام يوجد لها حل وشكرا

gللرفع الاخوة الخبراء بالاكواد ارجوا ان يتقدم احدكم وحل هذه المشكلة حيث ان الكود يعمل معي جيدا بملفات جديدة ليس بها باس وورد ولكن عند استهداف ملف له باسوورد يتوقف العمل فكيف اضيف الباسوورد في الكود السابق ليفتح الملف ويجري عليه العمليات ثم يخرج

الاخوة الافاضل الحمد لله عمل الكود بكفاءة يتبقى فقط مشكلة صغيرة وهي ان ملف قاعدة البيانات محمي بباسوورد كيف يمكن وضع الباسوورد في الكود ليفتح قاعدة البيانات وتم ادراج البيانات الجديدة بها Dim db As Database, rs As Recordset, r As Long Set db = OpenDatabase("d:\SalesSystem.mdb") ' open the database ياريت الاخوة الافاضل يفيدوني في هذه المشكلة كيف يمكن ان اضع الباس وورد بعد اسم قاعدة البيانات ليتمكن من فتحها

ارجو شرح كيفية تنفذ ذلك في اكسل 2007

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

هناك عدة اجراءات في الماكرو تساعدك في هذا المجال و هي خير لك من هذا الكود TransferSpreadsheetمثلا هذا الاجراء جربه من فضلك ستجده في اجراءات الماكرو

اخى الكريم انا مثلك دائم الصدير من اكسل الى اكسس والعك صحيح ولا احتاج الى اكواد ولا ماكروز من الاكسس وانت واقف على تايبول اختار امبورت هايفتح لك المتفح اختار مكان شيت الاكسل من على جهاز الكمبيوتر ولا تنسي انك تغير الوندو اللى حت من اكسس داتا بيز الى اكسل ورك شيت هتلاقى الجدول عندك انضاف وكمان اتعملة بريمرى كى حتى لو شي الاكسل اكثر من ورقة انت بتختار الورقة المطلوبة وانا عن نفسي بعد استيراد ملف الاكسل وجعلة جدول فى اكسس بفضل اظبط البيانات لان كل الحقول بتكون تكتت ,50 وبظبطها على حسب رغبتى

غريبة ان الموضوع رغم اهميته واضافته لم يستهوي احد عموما لازلت في انتظار تشريف الاخوة المبدعين وخبراء الاكسل والبارعين في الاكواد علما بان رسالة الخطأالتي تظهر تتعلق بتعريف المتغير database فس السطر Dim db As Databaseوحاولت اتباع السطر الاخير واضافة dao في vba من tools >>>>> الا اني لم اوفق لان التأشير عليها يزول بمجرد قفل محرر الاكواد واعادة فتحة من جديد