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

ابو جودي

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    6,830

  • تاريخ الانضمام

  • Days Won

    186

 نوع المحتوي 

كل منشورات العضو ابو جودي

  1. ابو جودي
    شفاكم الله وعافاكم... طهور ان شاء الله -- واتفضلى يا استاذه هذه افكارى علها ان شاء الله تنال رضاكم وتلبى رغباتكم List To List (2).accdb
  2. ابو جودي
    طيب فضلا وكرما وليس امرا ضع افكارك فى مرفق عملى لنتعلم نحن طلاب العلم من اساتذنا الكرام
  3. ابو جودي
    اتفضلى يا افندم جربى List To List.accdb
  4. ابو جودي
    انا عمرى الان 43 عام شوف انت بقه
  5. ابو جودي
    الذى كنت اعرفه انها توقفت عند الاصدار 2003 ولكن بعد ذكر حضرتك للموضوع وبالبحث توصلت اليها https://support.microsoft.com/en-us/office/create-and-use-a-switchboard-f8b3d607-8f1f-4ecf-9979-79b1565f5471
  6. ابو جودي
    بعد اذن استاذى الجليل ومعلمى القدير الاستاذ @أبو إبراهيم الغامدي ممكن توضيح لتلك الجزئية .. كيف يمكن عمل ذلك
  7. ابو جودي
    اتفضل يا استاذ جو Familty_Tree Colors(3).accdb
  8. ابو جودي
    جزاكم الله خيرا يا دكتور على دعواتكم الطيبة لوالداى اسال الله تعالى ان يتقبلها ويرزقكم وكل المسلين فضلها واجرها يارب العالمين امين امين امين 🤲
  9. ابو جودي
    فى بيانات تانى عاوزاها تكون معاها لان بصراحة مش عارف اهم من الصورة
  10. ابو جودي
    طيب يا استاذة نمشى خطوةخطوة معلش مخى طخين حبتين من فضلك جربى الشق الاول New Microsoft Access Database.accdb
  11. ابو جودي
    انت الاحلى يارب يحلى ايامك
  12. ابو جودي
    طيب ايه رايكم فى كود صعنون وابن حلال بعد تحديث مربع نص البحث X With Me.Recordset .FindFirst "catcods=" & Me.x If .NoMatch Then MsgBox "Not found" End If End With
  13. ابو جودي
    أكيد طبعا أوامر يا أفندم بس هو أنت مأخدتش بالك إن أوامر حضرتك إتنفذت واللا إيه قبل ما تدخل تزعق لى 😡 بص ع المشاركة دى كده 👇
  14. ابو جودي
    لا شكر على واجب اهلا بيكى من فضلك بس نتلزم بقواعد المشاركات فى المنتدى حتى لا يتعرض الموضوع للاهمال او عدم الرد او اغلاق الموضوع ومنع المشاركات فيه شوفى القاعدة دى 11. ممنوع طرح أكثر من سؤال في موضوع واحد ليسهل البحث عن المواضيع لاحقا. وياريت مستقبلا العنوان يكون مناسب للسؤال حاجة تانى فضلا وكرما وليس امرا عند وضع سؤال وتاتيكى الاجابه المطلوبه كما تتوافق مع رغباتك لا تنسي غلق الموضوع باختيار افضل اجابة ليكون معلوم لدى رواد المنتدى مستقبلا انه تمت الاجابة بتأشير الرد المناسب شكرا لحضرتك مع اطيب الامانى بقضاء اطيب الاوقات داخل المنتدى
  15. ابو جودي
    طيب جرب المرفق ده للاسف انا عندى مشكلة ومش عارف احلها وجارى البحث عند اضافة اول بند فى الشجرة لا يتم تحديث الشجرة ولكن يتم التحديث بعد البند الثانى والذى لا يطهر الا بعد اضافة البند الثالث على كل حال هذا نصف الطريق قم بالتجربة اولا ولنرى بعد ذلك Familty_Tree Colors(1).accdb
  16. ابو جودي
    اتفضلى يا افندم انا اسف نسيت ارفق قاعدة البيانات New Microsoft Access Database.accdb
  17. ابو جودي
    الشرح اعلنت عن ثابت باسم cnsDefaultStartID واسندت اليه القيمة >---> 1 ليكون هذا الرقم المفضل الذى يبدأ به الترقيم ليه عملت الحركة دى علشان لو الجدول settings_general_tbl انحذف منه القيمة التى يبدأ بها الترقيم يحل هذا الثابت مكانه اعلنت عن متغير باسم lngGetStartID من خلاله يتم التحقق من القيمة فى الجدول settings_general_tbl والتى نريد بدأ الترقيم بها والتى يتحكم فيها المستخدم عند الاستخدام الاول لقاعدة البيانات فى حالة عدم وجود سجلات فى الجدول reservation_tbl التحقق من قيمة بدأ الترقيم الافتراضية من الجدول settings_general_tbl واسناد قيمته الى المتغير lngGetStartID وفى حالة عدم وجود قيمة نسد اليه القيمة من الثابت cnsDefaultStartID lngGetStartID = Nz(DLookup("ID_serial", "settings_general_tbl"), cnsDefaultStartID) استخدام دالة DCount للتحقق من عدد سجلات الجدول reservation_tbl لو كانت 0 اى لا يوجد سجلات نسند قيمة بدأ الترقيم الافتراضية من خلال المتغير lngGetStartID الى اسم الروتين SpID ونخبره بعدم استكمال الكود Exit Function If Nz(DCount("*", "[reservation_tbl]"), 0) = 0 Then SpID = lngGetStartID: Exit Function اذا لم يتحقق الشرط السابق اى ان الجدول يتحوى على سجلات سوف يتم استكمال الكود بالوضع الطبيعى لاى ترقيم اسم الروتين SpID نسند اليه قيمة الترقيم من خلال استخدام دالة DMax للحصول على اكبر قيمة ثم نقوم بحمع الرقم 1 ليتم عمل تسلسل الترقيم SpID = DMax("[ID]", "[reservation_tbl]") + 1 وبكده ينتهى شرح الروتين استدعار الوتين ابسط من البساطه فى زر الامر اضافة سجل جديد هذا السطر لاضافة سجل جديد DoCmd.GoToRecord , , acNewRec بعد ذلك هذا السطر عبارة عن اسم عنصر التحكم فى النموذج ( مربع النص ) والذى نريد وضع قية الترقيم التلقائى فيه = اسم الروتين السابق وهو SpID ID = SpID ا
  18. ابو جودي
    طيب الكود والشرح نستخدم الروتين الاتى Public Function SpID() Const cnsDefaultStartID As Long = 1 Dim lngGetStartID As Long lngGetStartID = Nz(DLookup("ID_serial", "settings_general_tbl"), cnsDefaultStartID) If Nz(DCount("*", "[reservation_tbl]"), 0) = 0 Then SpID = lngGetStartID: Exit Function SpID = Dmax("[ID]", "[reservation_tbl]") + 1 End Function وزر اضافة سجل جديد سوف نضع فيه DoCmd.GoToRecord , , acNewRec ID = SpID
  19. ابو جودي
    اشرح لك نظرى وتطبقى واللا اكتب لك الكود
  20. ابو جودي
    انا مش معترض والله بس انتى قصدك يبدأ اول مره بس عند الاستخدام الاول ؟! صح كده
  21. ابو جودي
    طيب ركزى معايا نظريا كده علشان تفهمى حضرتك عملتى ايه حضرتك عملتى الدلة تروح للجدول settings_general_tbl وتجيب القيمة اللى فيه +1 ودى القيمة الافتراضية على مربع النص فى النموذج يعنى دايما هتكون كده طيب القيمة x+1 بتتسجل فى جدول reservation_tbl طيب المفروض عند الاضافة الجديدة ياتى بالقيمة الاخيرة من الجدول reservation_tbl ثم يجمع عليها 1 طبعا هذا لا يتم حبة تركيزعلى اعتبار اننا فكرنا فى حل لو القيمة فى الجدول reservation_tbl = 5 يعنى تم استخدام الارقام 1 , 2 , 3 , 4 , 5 ما العمل لو المستخدم اراد بدء الترقيم من 3 مثلا ؟؟؟؟ طيب كيف ابنى الترقيم هل بناء على اعلى واخر قيمة فى الجدول reservation_tbl طيب لو اراد المستخدم بدء الترقيم امتى وازاى نفهم البرنامج يبدء من ترقيم المستخدم اذا كان انا توهت ومش فاهم يبقى هأفهم البرنامج ايه وازاى وامتى بعد ما حضرتك تقرائى وقبل ما تردى على شوفى الموضوع ده وبعدين نكمل يمكن تلاقى طلبك بدون تعب
  22. ابو جودي
    اعتذر عن تأخرى فى الرد على استاذى الجليل ومعلمى القدير العفو منكم استاذى انا طويلب علم ينهل من ربوع وانهار وفيض علمكم الوفير وتحت امر حضرتك من عيونى طلبات حضرتك أوامر
  23. ابو جودي
    طبعا بدأت بالسؤال ولم ابدأ بالحل لعدة اسباب اولا الافضل يكون بطريقة الية وتلقائى منعا لحدوث اخطاء وتكرار ومشاكل لذلك ... اذا عرف السبب بطل العجب ثانيا ممكن حضرتك بسؤالك تجبرى الكل ان ينظر لطريق واحد ومحدد اللى حضرتك رسمتيه وفى الاخر يكون فى طريق افضل بس حضرتك مفكرتيش فيه لذلك لما اجد اسئلة وطلبات من النوع ده باحاول افهم الاول
  24. ابو جودي
    طيب ممكن سؤال ؟ يا استاذه @safaa salem5 ممكن افهم ليه المستخدم يكون عندة اتاحة اختيار رقم بدء الترقيم ؟!
  25. ابو جودي
    انت ؟!...هههههه انت هتقول لى عليك المنتدى منور بأهله واحبابه وبيكم .. انتم الثريا و الضياء الذى ينير دروب طلاب العلم وظلمات جهلهم .. جزاكم الله خيـــــرا
×
×
  • اضف...

Important Information

  I accept