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

Bluemind

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

    1,802
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    1

كل منشورات العضو Bluemind

  1. تفضل اخي الكريم كان يجب ربط النموذجيين من خلال خاصيه ربط الحقول الاساسيه بالفرعيه كما هو موضح بالصوره حيث يجب ربط الحقليين emp_no و emp_noo بالنموذج الفرعي تحكم2.rar
  2. هذه داله تقوم بتعطيل مفتاح Shift من العمل لكي لا يستطيع المستخدم من الدخول الى قاعده البيانات و جداولها وكل اجزئها المتبقيه لدوافع الامنيه. سوف اقوم بشرحها كالتالي: اولأ: اذهب الى الوحدات النمطيه وقم بانشاء جديد. ثم من ادوات اذهب الى References ثم ابحث عن Microsoft DAO 3.6 وضع عليه علامه صح ثم انسخ الكود التالي وضعه في هذه الوحده النمطية: كود Option Compare Database Option Explicit Public Function SetProperties(strPropName As String, _ varPropType As Variant, varPropValue As Variant) As Integer On Error GoTo Err_SetProperties Dim db As DAO.Database, prp As DAO.Property Set db = CurrentDb db.Properties(strPropName) = varPropValue SetProperties = True Set db = Nothing Exit_SetProperties: Exit Function Err_SetProperties: If Err = 3270 Then 'Property not found Set prp = db.CreateProperty(strPropName, varPropType, varPropValue) db.Properties.Append prp Resume Next Else SetProperties = False MsgBox "SetProperties", Err.Number, Err.Description Resume Exit_SetProperties End If End Function بعد ذالك قم بنشاء زر في الواجه الرئيسيه لبرنامجك او قاعده بياناتك و اختر احد الملصقات او الكائنات الموجوده في هذا النموذج واذهب الى حدث عن النقر او النقر المزدوج و اكتب الكود التالي كود Dim strInput As String Dim strMsg As String Beep strMsg = "هل تريد اعاده تشغيل مفتاح Shift" & vbCrLf & vbLf & _ "الرجاء كتابه كلمه المرور لتشغيل مفتاح Shift." strInput = InputBox(Prompt:=strMsg, Title:="تعطيل مفتاح Shift") If strInput = "اكتب هنا كلمه المرور" Then SetProperties "AllowBypassKey", dbBoolean, True Beep MsgBox "لقد تم تشغيل مفتاح Shift" & vbCrLf & vbLf & "مفتاح التشغيل سوف يسمح للمستخدم للدخول الى كائنات قاعدة البيانات" & "في المره القادمه عند الدخول الى قاعده البيانات", _ vbInformation, "Set Startup Properties" Else Beep SetProperties "AllowBypassKey", dbBoolean, False MsgBox "كلمه مرور خاطئة" & vbCrLf & vbLf & _ "مفتاح Shift تم تعطيله." & vbCrLf & vbLf & _ "مفتاح Shift لن يمكن المستخدم من الدخول الى قاعده البيانات في المره المقبلة", _ vbCritical, "كلمه مرور غير صحيحة!!" Exit Sub End If *طبعا هذا الزر عند الضغط عليه مره واحده سوف يسالك عن كلمه مرور لتفعيل مفتاح Shift وعند قبول كلمه السر و الخروج من البرنامج و فتح البرنامج مره اخرى مع الضغط على مفتاح Shift سوف يعمل. ملاحظة: *الكود الثاني هو لتجنب اقفال قاعده البيانات وعدم المقدره للدخول عليها مره اخرى عن طريق مفتاح Shift.
  3. اخوي بوحمد بارك الله فيك في مصدر بيانات مربع النص ضع الكود التالي =[list1].[ListCount] مع ملاحظه تغيير اسم القائمه بما يوجد بنموذج لديك شاهد المرفق OMER7Z.rar
  4. السلام عليكم في الرابط ادناه يوجد موضوع في احد المنتديات ويوجد به ملف اكروبات ، قم بالتسجيل وانزال الملف http://forum.accesswordkingdome.com/showthread.php?t=1416
  5. اخوي بارك الله فيك لو قمت بعمل بحث في المنتدى لوجدت عده حلول و اجابات من قبل بالنسبه لموضوع التفقيط جرب الموضوع التالي http://www.officena.net/ib/index.php?showtopic=40057&hl=%D8%AA%D9%81%D9%82%D9%8A%D8%B7
  6. تفضل اخي الكريم مثالك بعد التعديل عليه طبعا تم ازاله الحقول FNameSF و FNameSF و SectionSF من جدول الغياب لانه لا يجب تكرارها في كل جدول له علاقه بالجدول الرئيسي و سوف يتم اظهار هذه المعلومات من الجدول الرئيسي عند الحاجه. تعتبر تكرار الحقول امر سلبي وغير صحي في تصميم قواعد البيانات و يسبب زياده في حجم قاعده البيانات بشكل سريع Database14.rar
  7. اخوي بالنسبه للحقول a, b , c يجب ازالتها من الجدول ويمكن عرضها في للاستعلام من خلال جمع عدد ايام الغياب من جدول الغياب، ايش رايك
  8. حل موفق وسليم وهنا تبرز اهميه الترقيم التلقائي وفائدته وكذلك المفتاح الاساسي وليس كما يعتقد ان الترقيم التلقائي يستخدم للترقيم في التقارير وعمل التسلسل بارك الله فيك
  9. اخوي بارك الله فيك من خلال الاطلاع على الجداول ، كل اسماء الحقول غير واضح الهدف منها ، اما حروف a , b , c او اختصارات!!!!!!!!!!! ممكن شرح مفصل عن البرنامج ؟ اي عن اليه عمله وما الغرض منه؟
  10. سؤالك كان محدد وتم الاجابه عليه ولو لم اشير الى هذه النقطه (ضغط شفت) لما كانت معروفه لديك وللمعلوميه معظم المستخدمين لا يعلمون هذه الطريقه لانها خاصه بالمبرمجيين على العموم بالامكان تعطيل خاصيه مفتاح الشيفت قم بالبحث في المنتدى وسوف تجد عدة مواضيع تحل هذه المشكلة بالتوفيق
  11. بارك الله فيك وجعله الله في موزين اعمالك
  12. يوجد عده امثله في المنتدى تلبي ان شاء الله حاجتك لو قمتي فقط بالبحث باستخدام كلمه كنترول هذه ثلاثه امثله http://www.officena.net/ib/index.php?showtopic=35013&hl=كنترول#entry184175 http://www.officena.net/ib/index.php?showtopic=32554&hl=%D9%83%D9%86%D8%AA%D8%B1%D9%88%D9%84 http://www.officena.net/ib/index.php?showtopic=31689&hl=%D9%83%D9%86%D8%AA%D8%B1%D9%88%D9%84 بالتوفيق
  13. اخوي اشرف بارك الله فيك لاقفال قاعدة البيانات واستخدامها بعد التصميم اتبع الخطوات التاليه اولا ثانيا قم باختيار اسم النموذج الذي تريد ان يكون هو الشاشه الرئيسيه او شاشه التوجيه ثالثا قم باخفاء لوحه التوجيه او عرض الكائنات ثم اغلق قاعده البيانات واعد تشغيلها ملاحظه لفتح القاعده من جديد لوضع التصميم قم بغلق القاعده ثم اضغط مفتاح شفت اوستمر بالضغط وقم بتشغيل القاعده
  14. اخوي بارك الله فيك كلمه set في لغة الفيجول بيزك تستخدم لوضع او اسناد مرجع الكائن او object الى قيمه اخرى مثال بسيط يوجد لديك نموذج او تقرير وتريد استخدام مصدر بياناته او recordset في مكان اخر من خلال الكود فعليك استخدام الكود التالي Dim rstEmployees As ADODB.Recordset Set rstEmployees = Me.Recordset حيث قمت باسناد مصدر بيانات النموذج me.recordset الى rstemployees ارجو ان تكون الفكره وضحت الان
  15. اخوي بارك الله فيك لو استخدمت خاصيه البحث في المنتدى لوجدت امثله كثيره وهذا موضوع يتم مناقشته حاليا واتوقع ان يلبي طلبك http://www.officena.net/ib/index.php?showtopic=42189
  16. شكرا اخي الكريم لقد شاهدت برنامج ولكن انا الموجود ببالي بالاضافي للخانات الموجودة ان يكون مكان خاص لانشاء قائمة حيث كل اسم اكتبه اذا كان موجود بالقائمة الرئيسية يكمل البرنامج باقي بيانته من اسم الزوجة الثلاثي ورقم دفتر العائلة واذا لم يكن موجود بالقائمة الرئيسية يتم اضافته بشكل تلقائي للاسف اخي الكريم لم افهم مطلوبك
  17. موجودة بالنبرنامج بارك الله فيك بامكانك اضافة اكثر من معونه من خلال البرنامج بامكانك الاختيار من القائمة واذا لم تكن موجودة في القائمة يوجد مربع صغير لاضافة عنصر جديد للقائمه شاهد الصور و شاهد ابرنامج بعد اضافة امثلة عليه اما بالنسبة للتكرار فسوف يتم التعديل علية غداء ان شاء الله Relief Assistance System.zip
  18. بالاضافة للبرنامج المعمول من قبل الاخ احمد خلف هذا برنامج من تصميمي ولك حرية الاختيار طبعا ينمع قبول التكرار باستخدام رقم دفتر العائلة ويبقى عمل التقارير و الاحصائيات ونسال الله ان ينصر اخوننا في سوريا ويربط على قلوبهم Relief Assistance System.zip
  19. وهذا جدول توزيع المواد الاغاثية -رقم دفتر العائلة -تاريخ التوزيع -بيان المواد>>> يقبل اكثر من عنصر -الكمية السؤال هنا ماهي طريقة التوزيع؟؟ اي هل هي سلة غذائية ام عدة مواد
  20. تم انشاء الجدول المعلومات الاساسية وفيها الحقول التالية -رقم دفتر العائلة - اسم الزوج الثلاثي -اسم الزوجة الثلاثي -عدد الاولاد -المنطقة -العنوان -رقم الهاتف -ملاحظات مارايك؟؟
  21. طبعا الاكسس سوف اقوم بعمل مثال و ارفقه هنا لمراجعته من قبلك لامانع من مشاركة باقي الاعضاء وهذا اقل دعم نقدمه لاخواننا في سوريا
  22. هل تريدة بالاكسس 2010 ام 2003 ???
  23. اخي الكريم كان سؤالك عن تعبئة الحقول بشكل تلقائي و تمت الاجابة الان قمت بوضع استفسار اخر في نفس الموضوع وهو يخالف قواعد المشاركة الرجاء فتح موضوع اخر لسؤالك مع مراعاة سياسة المنتدى بخصوص حقوق الملكية الفكرية للكتب او البرامج من خلال بحثي عن الكتاب فهو ليس مجاني لذلك يجب عليك شرائه بالتوفيق
  24. اخوي بارك الله فيك اولا نسال الله لاخوننا في سوريا العون و النصر ثانيا : لا ندري ماهو المطلوب بالضبط ولتوفير الوقت و الجهد قم بارفاق ملف الاكسل بدون بيانات المستفيدين لكي يتم التعرف على المطلوب عمله من خلال الجداول وغيرها كما تعرف الاكسل يختلف عن الاكسس و التعديل في الاكسس يكون متعب و يحتاج الا وقت
  25. من وجهه نظري - Mysql + PHP هو الافضل وليس من الضروري عمل علاقات بين الجداول ولا ينصح به ولكن يكتفى بعمل العلاقات من خلال الاستعلامات ولماذا لا ينصح به هو انه في حالة التعديل في الجداول سوف يكون هناك صعوبه بالتعديل عليها لانها مربوطة بالاعلاقات طبعا - Mysql + PHP اسهل من خلال البرمجة و الاوركل اقوى ولكن يحتاج الا مبرمج محترف
×
×
  • اضف...

Important Information