اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

  1. ياسر خليل أبو البراء

    ياسر خليل أبو البراء

    المشرفين السابقين


    • نقاط

      6

    • Posts

      13,165


  2. المالكي333

    المالكي333

    03 عضو مميز


    • نقاط

      3

    • Posts

      235


  3. Shivan Rekany

    Shivan Rekany

    الخبراء


    • نقاط

      3

    • Posts

      3,490


  4. خالد الرشيدى

    خالد الرشيدى

    الخبراء


    • نقاط

      3

    • Posts

      889


Popular Content

Showing content with the highest reputation on 06 يون, 2017 in all areas

  1. إبداااااااع ولا أروع أستاذ خالد وأستاذ ياسر. بارك الله فيكم. هذا هو المطلوب. أشكركم شكرا جزيلا.
    2 points
  2. :: من اخطاء البرمجة الشائعة ادخال نفس البيانات لاكثر من مرة . وانا لم اقع في هذا الخطا .. حيث يتم ادخال بيانات الزائر مرة واحدة في الفورم الخاص به وكذلك بيانات المريض . :: من فورم الزيارة Visit نختار فقط اسم الزائر وكذلك اسم المريض وستدرج كل بياناته المدخله سابقا تلقائيا . وهكذا لن نحتاج الاستعلام او الماكرو . :: كل ما عملته هو بناء هيكل البرنامج بشكل صحيح . تفضل البرنامج مع بعض التعديلات ... تحياتي . VISTOR2_UP.rar
    2 points
  3. بسم الله الرحمن الرحيم السلام عليكم وجدنا حاجه لعدد من الاخوه الاعضاء في هذا المنتدى الرائع الى هذا الموضوع المهم قرننا ان نخوض فيه والابواب مشرعه للاساتذه الكرام للاستئناس بارائهم القيمه وبنيه خالصه لوجه الله تعالى فهو حسبنا وثواب هذا العمل مهدي روح معلمنا الاول والدنا رحمه الله -ونسال الله ان يغفر لنا ولوالدينا وللمؤمنين جمعا وبعد تاخرنا في طرح الموضوع بسب كبر حجم الفديوات مما اضطرنا الى رفعها على اليوتيوب لتعم الفائدة بمرور الزمن ازدادت الحاجه الى قواعد بيانات قويه وكفوءه وذات امان عالي ومساحات خزنيه كبيره نظام الاكسس نظام قواعد بيانات ممتاز وذو كفائه عاليه للاستخدامات الصغير والمتوسط ويمتاز الاكسس برخص الثمن وسهولة الاستخدام وذلك بسبب كثرة الكتب التي تختص فيه وكثرة المواقع والمنتديات التي تقدم الحلول والمشوره اهم مشاكل الاكسس 1- قاعدة بيانات الاكسس مبنية على ملف اي تحفظ جميع بيانات القاعدة في ملفات مستقلة لها.عند حذف هذا الملفات تحذف قاعدة البيانات مع جميع البيانات 2- عدم توفر الامان العالي اذا ما قورن ببقيه نظم قواعد البيانات 3- ان استخدام قاعدة البيانات من قبل اكثر من مستخدم يؤدي الى ضغط كبير على محركات النظام عند استخذامه على الشبكه 4- احد اهم المشاكل في استخدام الاكسس على الشبكه عدم تمكين اكثر من مستخدم من فتح نموذج ادخال واحد في نفس الوقت 5- محدودية عدد المستخدمين فهي لا تتجاوز ال10 مستخدمين على الشكبة اذا كان الاكسس مرفوع على شبكة 6- محدودية المساحه الخزنيه للبيانات في الاكسس فهي لا تصل الى 2 كيكا بت بضمنها مكونات قاعدة البيانات بعد ان برزت الحاجه الى مساحات خزنيه اكبر خصوصا مع تقادم المشروع وتوسعه اما SQL Server فقد غطى على هذه العيوب، بل اضاف مميزات اخرى نظام متكامل لادارة قواعد البيانات يعمل في الخلفية ويعتمد على خادم وعميل فجميع البيانات تخزن في الخادم وهذا يعطي امان عالي للبيانات من الضياع ونظام الامان العالي جدا والمساحه الخزنيه العاليه وعدم محدودية المستخدمين وكذلك باستطاعته احتواء اكثر من قاعدة بيانات واحدة. وكل قاعدة بيانات تحتوي على جداول مختلفه وعمل مختلف والعمل بكفائه عاليه مع الشبكات سواء الداخليه او عبر الانترنيت وهناك مميزات اخرى ومن عيوبه بعض الصعوبات في استخدامه لا يمكن بناء قاعدة بيانات متكاملة لا بمساعدة بعض البرامج ومنها الاكسس والكرستال وغيرها وللحصول على مميزات الاكسس والتتخلص من عيوبه توجد ثلاث طرق لعمل ذلك 1- تحويل الاكسس الى مشروع Access ويتم بتكبيرحجم جميع مفردات قاعدة البيانات وهذه العمليه معقده وتحتاج الى تغيرات جوهريه في قاعدة البيانات 2. تكبير حجم البيانات من قاعدة بيانات Access إلى قاعدة بيانات SQL 3 – العمل بالنهاية الاماميه والنهاية الخلفيه النوع الثالث سوف نتطرق اليه بشيء من التفصيل ونعمل على شرحه للسهوله التي يتمتع بها والذي لا يجعلنا نتخلى عن ال Access حيث ستكون فقط الجداول في SQL Server وبقية مفردات قاعدة البيانات من نماذج واستعلامات وتقارير ومايكروات ووحدات نمطية في Access متطلبات العمل 1- نحتاج الى مساحه مناسبه من القرص الصلب الذي سوف نركب SQL Server عليها 2- عمل حسابات للمستخدمين للوندوز وبرقم سري 3- نسخة من SQL Server المجانية SQL server Expres لعمل سيرفر http://www.microsoft...s.aspx?id=29062 4- نسخة من SQL server Management studio للتحكم بالسيرفر 5- عمل اتصال odbc 6- قاعدة بيانات Access فارغة ا- تركيب ال SQL server Express الفديو يوضح ذلك https://www.youtube.com/watch?v=03AYKVSsjII ب- تركيب ال SQL server Management studio https://www.youtube.com/watch?v=STSADB1BAXo ج- عمل قاعدة بيانات على SQL server فارغه وبنفس اسم قاعدة Access والاسم ليس ضروري ان يكون نفسه ولكن للاستدلال على القاعدة لان SQL server ممكن ان يحتوي على اكثر من قاعدة بيانات https://www.youtube.com/watch?v=89p9M9ZE6nw
    1 point
  4. بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار،مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والادكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ، ولهذا ساقدم سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له في موضوع مستقل وسأشرح كيفية استخدام الكود ماتيسر لي إن شاء الله وعلى الله قصد السبيل ****************************************** هذا كود ترحيل الصفحة كامله بشرط واحد على سبيل المثال عندنا درجات الطلاب وفيهم طلاب ناجحون وطلاب دور ثان وطلاب راسبون هذا الكود يفصل الطلاب الناجحون في ورقة ويفصل الطلاب الذين لهم حق الدخول في الدور الثاني في صفحة أخرى ويفصل الطلاب الراسبون في صفحة أخرى وهكذا طريقة الاستفادة من الكود افتح ملف اكسيل اضغط على الرز ALT وانت ضاغط على الزر اضغط على F11 الموجود أعلا لوحة المفاتيح ستظهر شاشة الماكرو اضغط على موديول 1 سيتم فتح الموديول الصق فيه الكود الموجود تحت هذا السطر Sub KH_START()[/center] ''' متغيرات بعدد الصفحات المطلوب الترحيل اليها Dim R As Integer, M As Integer, N As Integer, O As Integer ''' أسماء الصفحات المطلوب الترحيل اليها والمدى المطلوب مسح البيانات الثديمة منه Sheets("ناجح").Range("A11:DZ1000").ClearContents Sheets("دور ثان في").Range("A11:DZ1000").ClearContents Sheets("رسوب").Range("A11:DZ1000").ClearContents ''' عدد الصفوف العليا في الصفحات المنقول اليها البيانات M = 11: N = 11: O = 12 Application.ScreenUpdating = False ''' بداية ونهاية صفوف الورقة المصدر For R = 11 To 1000 ''''''''''''''''''''''''''''''''''''''''''''''''''''' ''' رقم عمود المعيار وكلمة المعيار If Cells(R, 113) = "ناجح" Then Range("A" & R).Resize(1, 115).Copy ''' سيتم اللصق في هذا الشيت Sheets("ناجح").Range("A" & M).PasteSpecial xlPasteValues Application.CutCopyMode = False M = M + 1 '''''''''''''''''''''''''''''''''''''''''''''''''''' ''' رقم عمود المعيار وكلمة المعيار ElseIf Cells(R, 113) = "دور ثان في" Then Range("A" & R).Resize(1, 115).Copy ''' سيتم اللصق في هذا الشيت Sheets("دور ثان في").Range("A" & N).PasteSpecial xlPasteValues Application.CutCopyMode = False ''' اجعل الرقم 1 الى الرقم 2وانظر في صفحة الدور الثاني بعد الترحيل N = N + 1 ''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf Cells(R, 113) = "رسوب" Then Range("A" & R).Resize(1, 115).Copy Sheets("رسوب").Range("A" & O).PasteSpecial xlPasteValues Application.CutCopyMode = False ''' لترك صف فارغ اعلا كل صف O = O + 2 End If ''''''''''''''''''''''''''''''''''''''''''''''''''''' Next MsgBox ("الحمد لله تـــم ترحيل الناجحين و الراسبين إلى أوراق عمل جديدة ") Application.ScreenUpdating = True End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''' وإذا اردت زيادة عدد الصفحات الطلوب نقل وترحيل البيانات اليها ... سهلة إن شاء الله ماعليك إلا أن تضيف هذه الجزئيه في الكود مع كتابة اسم الصفحة الجديده والمعيار الجديد ''' رقم عمود المعيار وكلمة المعيار ElseIf Cells(R, 113) = "دور ثان في" Then Range("A" & R).Resize(1, 115).Copy ''' سيتم اللصق في هذا الشيت Sheets("دور ثان في").Range("A" & N).PasteSpecial xlPasteValues Application.CutCopyMode = False ''' اجعل الرقم 1 الى الرقم 2وانظر في صفحة الدور الثاني بعد الترحيل N = N + 1 ودمتم في حفظ الله ترحيل مفيد جدا كل الصفحة بشرط.rar
    1 point
  5. وعليكم السلام جرب الكود التالي Sub ExportActiveSheetToNewWorkbook() 'YasserKhalil *** 07-06-2017 '--------------------------- Dim wb As Workbook Dim ws As Worksheet Dim str As String Set ws = ActiveSheet str = ws.Range("A2").Value Application.DisplayAlerts = False If wb Is Nothing Then ws.Copy ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value Set wb = ActiveWorkbook If Dir(ThisWorkbook.Path & "\ملفات العملاء\" & str & ".xlsx") <> "" Then MsgBox "Workbook Is Already Existing", vbCritical wb.Close False Else wb.SaveAs Filename:=ThisWorkbook.Path & "\ملفات العملاء\" & str & ".xlsx" wb.Close True MsgBox "Workbook Exported Successfully ...", 64 End If End If Set ws = Nothing Set wb = Nothing Application.DisplayAlerts = True End Sub
    1 point
  6. استخدم الكود التالي في هذه الحالة لكل البنوك .. الكود مرن وكل ما عليك هو ربطه بالصورة الموجودة في أوراق البنوك Sub TransferBankDetails() 'YasserKhalil *** 07-06-2017 '--------------------------- Dim ws As Worksheet Dim sh As Worksheet Dim lr As Long Application.ScreenUpdating = False Set ws = ActiveSheet Set sh = ThisWorkbook.Sheets("شيكات " & ActiveSheet.Name) If Left(ws.Name, 5) <> "البنك" Then Exit Sub lr = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1 sh.Cells(lr, 1).Value = ws.Range("B2").Value sh.Cells(lr, 2).Value = ws.Range("D7").Value sh.Cells(lr, 3).Value = ws.Range("A8").Value sh.Cells(lr, 5).Value = ws.Range("F10").Value Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub
    1 point
  7. هناك حل لهذه المشكلة ايظا فقط غير كما في الصورة واليك مرفقك بعد تعديل ليس هناك اي المشكلة والله يعلم اننا في الحياة والحياة بدون مشاكل ما بها التذوق Database1.rar
    1 point
  8. سلام عليك اخي واخوتي في الدين والدنيا استاذ جمال سعد بارك الله بك انا من لبنان وقلم النفوس ومحطة البصم هي نفسها تقريبا ولككنا في مشغل لانتاج بطاقات هوية وقلم النفوس هو منطقة او قضاء عندنا متل في مصر مثلا سوهاج او اسكندرية ...... بارك الله بك هذا هو المطلوب
    1 point
  9. السلام عليكم جرب المرفق علة المطلوب - وان كان كذلك يرجي تحديد الموضوع كمجاب القيد العام_3.rar
    1 point
  10. اخى الكريم المقصود ان حضرتك طرحت موضوع جديد به الطلب وقام استاذنا /بن عليه بتنفيذ المطلوب ؟ اليس كذلك ؟
    1 point
  11. اطلع على الرابط التالي
    1 point
  12. نعم أفاد ووجدت الدالة بداخله. ألف شكر أخ ياسر بارك الله فيك.
    1 point
  13. وعليكم السلام يرجى تغيير العنوان .. راجع موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى
    1 point
  14. برنس ياباشا الحل شغال وطريقة الحساب زى الفل متتعبش نفسك فى حاجة تانى ولا تعديل على الكود حاليا أنا استقريت على النموذج ده وهشتغل عليه وهوا كده ولو فيه أى حاجة فى المستقبل هفتح موضوع جديد لأن الموضوع ده قرب يدخل كاس العالم فى البلى مسافات بعيدة جزاك الله خير أخى الكريم تعبت جامد فى الموضوع ربنا يجازيك خير ويرزقك
    1 point
  15. الله يجزيك الخير أستاذ محمد نجار على جهودك واهتمامك فعلا منتدى فعال استفدت كثيرا من المساعدة
    1 point
  16. ماشاء الله ممتاز هذا هو المطلوب جزاك الله كل خير
    1 point
  17. شاهد الفيديو التالي لعله يفيدك إن شاء الله
    1 point
  18. ولمن يريد الصورة مجمعة في ملف واحد يمكن تحميله من الرابط التالي من هنا
    1 point
  19. اولا تأكد من كود زر الاغلاق النموذج هناك احتمال ان تستخدم كود اغلاق النموذج بدل اغلاق القاعدة
    1 point
  20. ههههههههه يوجد حل سريع وهو أنك بعدما تقوم بادخال القيمة يتم اغلاق وفتح النموذج بصورة فورية فينتج عن ذلك حفظ البيانات بالجدول ثم نقوم باستدعاء الفانكشن لتعمل على الصنف كما بالسابق كأن شيئا لم يحدث وقبل اغلاق النموذج سنحتفظ بكود الصنف لدى متغير عام بالنموذج طبعا لكي يتم العمل على الصنف فقط وأضفت لك كود لاغلاق النموذج حال البيانات صفر وحذف للاستعلام المؤقت فاذا كانت بعض النتائج الحسابية غير صحيحة فيمكن تتبع الأخطاء أما اذا أظلم الكود تماما فالأفضل إعادة الهيكلة لكن بعد أن تستقر على نموذج وطريقة لتحديث وتشغيل الفانكشن لأنك لو قمت بالتغيير لاحقا من المؤكد ستحتاج للتعديل مجددا تقييم 6.rar
    1 point
  21. بعد ادن الاستاد / محمد النجار جزاه الله خيرا وممكن بحل اخر كما في المرفق بدون استعلام تحديث Mydata3.rar
    1 point
  22. وجزاكم اجر ما تمنيتم لى بل اكثر من فضل الله وكرمه ان شاء الله والحمد لله تعالى الذى تتم بنعمته الصالحات الحمد لله الذى هدانا وما كمنا لنهتدى لولا ان هدانا الله عزوجل سبحانك لا لم لنا الا ما علمتنا انك انت العليم يملئ قلبى السرور حينما يسعد السائل عندما يجد طلبه من سؤاله تحقق واكثر الحمد لله تعالى
    1 point
  23. العمود expr1 تم فيه ضم جميع حقول النتائج وهو بيت القصيد وفي الكود اشترطنا تكون القيمة اكبر من 3 حروف حتى نضمن وجود قيمة حقيقية فيما لو كانت القيمة صفر مثلا وطبعا هي افضل من ان يكون الشرط عدم وجود : Null نأتي الى الكود البرمجي وهو كما ذكرت ثلاث خيارات : IIf([Status_code]=1 And [code_kind_edu]<>4 And Len([Expr1])>=3;"راسب وله حق الاعادة" اذا الحالة =1 والنوع لا يساوي 4 و حقل اكسبر فيه قيمة اكبر من 3 حروف فالنتيجة= راسب وله حق الاعادة IIf([Status_code]=2 And Len([Expr1])>=3;"راسب وليس له حق الاعادة" اذا الحالة =2 و حقل اكسبر فيه قيمة اكبر من 3 حروف فالنتيجة= راسب وليس له حق الاعادة IIf([Status_code]=1 And [code_kind_edu]=4 And Len([Expr1])>=3;"راسب" اذا الحالة =1 والنوع = 4 و حقل اكسبر فيه قيمة اكبر من 3 حروف فالنتيجة= راسب وان لم تتحقق هذه الشروط فهو ناجح دور ثاني بقي شيء لم اذكره وهو ان عمود Expr1 تم اخفاؤه ، ومع ذلك فهو ظاهر في التصميم لاظهاره افتح الاستعلام على العرض وبزر الفأرة الايمن انقر على الاطار العلوي للاستعلام ثم اختر اظهار اعمدة
    1 point
  24. اظن انك تريد هذا DoCmd.SelectObject acReport, "ReportName", True DoCmd.PrintOut , , , , 2 غير ReportName باسم تقريرك
    1 point
  25. السلام عليكم استبدل المعادلة السابقة بهذه المعادلة =VLOOKUP(D3,$D$3:H3,5,0)-COUNTIFS($D$3:D3,D3,$I$3:I3,"<>")
    1 point
  26. لا يجب أن يحصل ذلك لأنه في بعض الأحيان يطلب المستخدم تفعيل برنامجه قبل الوقت و لا يمكن أن ترفض طلبه بحجة أن المدة لم تنتهي
    1 point
  27. أرجو الاطلاع على المرفق وقبل أن نفتح المرفق هناك ما يعرف ملفات : LDB LACCDB النوع الأول يظهر تلقائياً عند تشغيل قاعدة بيانات أكسس 2003 أو ما قبل ذلك الاصدار. بينما الثاني للاصدارات الأحدث المقصد: أنه لو لديك قاعدة بيانات باسم معين فسوف يظهر لها هذا الملحق بنفس الاسم ثم يختفي عند الاغلاق الطبيعي للقاعدة مما يعني : أنه لو هناك قاعدتان مختلفتان بالاسم موجودتان بنفس المجلد فسوف يكون لكل منهم ملف خاص به وإليك المرفق : قاعدتان مختلفتان بالاسم و لهما اسم بدون اسم موجودتان بنفس المكان الاولى بها 7 جداول والثانية بها ثلاثة جداول لكن ماذا يحدث لو فتحت احداها ثم فتحت الثانية ؟ وما اسم الملف الملحق ؟ وهل نظرا لأنهما مختلفان هل سيظهر ملفان بهذا الشكل : ldb. أم ملف واحد ونظام التشغيل سيعتبرهما متشابهين بالاسم (وهذه طبعا كارثة فكيف يعلم أنهما متشابهان ويتركهما بمكان واحد) هذه التجربة فاصلة لأن الذي سينشئ الملف الملحق هو الأكسس نفسه تحت إشراف نظام التشغيل بنفسه أيضا يعني مفيش خدعة وشوف قبل التجربة مايكروسوف ماذا قالت عن هذه الملفات الملحقة : This file is a Microsoft Access lock information files. created when an Access database is opened/accessed by a user the file is created with the same name as the Access database هو ملف معلومات مؤمن يتم إنشاؤه عندما تفتح قاعدة البيانات بواسطة مستخدم وهذا الملف ينشأ بنفس اسم قاعدة البيانات ‍.rar
    1 point
  28. السلام عليكم تفضل المرفق كشف حساب.rar
    1 point
×
×
  • اضف...

Important Information