اذهب الي المحتوي
أوفيسنا

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

  1. sandanet

    sandanet

    الخبراء


    • نقاط

      15

    • Posts

      1366


  2. Shivan Rekany

    Shivan Rekany

    الخبراء


    • نقاط

      11

    • Posts

      3491


  3. أبو إبراهيم الغامدي
  4. ابوخليل

    ابوخليل

    أوفيسنا


    • نقاط

      6

    • Posts

      12871


Popular Content

Showing content with the highest reputation on 04/17/17 in all areas

  1. السلام عليكم ,, ومشاركة مع استاذنا وحبيبنا شفان استبدل علامتي الاقتباس "" بـــ صفر لان نوع الحقل الذي ستجري عليه التحديث رقمي
    3 points
  2. بسم الله الرحمان الرحيم السلام عليكم تحياتي لجميع اعضاء اوفيسنا المحترمين الموضوع ليس بجدبد فقد تم التطرق له من قبل الاستاد القدير عبد الله باقشير جازاه الله خيرا و ان شاء الله نراه بينانا في المنتدى عن قريب لمتابعتي المنتدى في الاونة الاخيرة رئيت عدت تسائلات عن البحث والتعديل في الجداول و رئيت العديد من الحلول فحاولة الاجتهاد و الوصول الى ابسط و اسهل طريقة لعمل ذلك لذى فكرة في برمجة فورم مرن يكون ملائم لاي جدول مهما كان عدد صوفوفه او عدد اعمدته و لكي يتمكن اي عضو مهما كانت معرفته بالبرمجة ضعيفة من استعماله بسهولة ووصلة الى هذا الفورم الذي ارجو ان اكون قد وفقت في فكرته وان يستفيد منه الاغلبية يتميز هذا البرنامج يجلب الجدول المستهدف للعمل عليه و امكانية البحث داخله بدلالة اي عمود من اعمدته كما ان البحث يتميز بالبحث بأول حرف من الكمة او اي جزء منها حسب احتياجك وايضا تتميز عملية البحث بالسرعة الفائقة لاني اعتمدت على المصفوفات للوصول الى ذلك و تعرفون قوة المصفوفات و فعاليتعها اما بخصوص التكستبوكس و الكمبوبكس فتنشأ برمجيا على حسب عدد اعمدة الجدول نأتي الان الى طريقة استعمال الفورم هذا مع ملفك الخاص اولا اذهب الى محرر الاكواد تجد موديل باسم ModulePublic تجد في بدايته هذين الكودين او التعريفين ان صح التعبير Public Const sNomFeuil As String = "data" 'اسم ورقة العمل التي تحمل قاعدة البيانات Public Const sTableau As String = "tbData" ' اسم جدول قاعدة البيانات اضن ان الامر واضح تصع اسم الشيت الذي يحوي الجدول مكان عبارة "data" واسم الجدول نفسه مكان عبارة "tbData" ملاحظة : يجب ان تكون قاعدة البيانات عبارة عن جدول لايهم عدد اعمدة ولا صفوفه المهم ان يكون جدول باتباعك الخطوات السابقة تكون قد انتهيت من ربط جدولك مع الفورم ثانيا نأتي الى الاعمدة التي تحتاج قوائم في مثالنا لدين العمود 4 و العمود الاخير يحتاجون ان يمثلو في الفورم على شكر قوائم (كمبوبكس) لتنفيذ ذالك قم بأنشاء القوائم الازمة في اي شيت تريد و اعطي كل مدى قائمة اسم معين في المثال الخاص بنا سمينا نطاق قائمة الجنس ب list1 كما هو موصح في الصورة ثم اذهب الى رأس العمود المستهدف قم بادراج تعليق له و اكتب داخل التعليق نفس اسم نطاق القائمة و انتهى الامر ارجو ان اكون قد وفقت في الشرح وان يستفيد أكبر عدد من الاعضاء من هذا العمل ملاحضة: تنسيق عرض اعمد اليست يكون بتنسيقك ععرض اعمدة الجدول نفسه من الشيت و الفورم يكتشف العمود الذي يحوي تواريخ تلقائيا اي ملاحظة او استفسار او اضافة تحتاجونها للفورم لا تترددو في طلبي اهدي هذا العمل الى الغائبين الحاضرين في قلوبنا الاخ ضاحي الغريب و الاستاد عبد الله باقشير تحياتي للجميع UserForm Flexibles.rar
    2 points
  3. مشاركة مع اخينا الغالي ابا جودي اولا تصحيح الجمله Case 1 Me.RecordSource = "SELECT Tbl_Result.*, Tbl_Result.Sub FROM Tbl_Result WHERE (((Tbl_Result.Sub) Like '*عربية*'));" وهكذا للمواد الاخرى ثانيا ليس من المنطقي ان تتغير الجمل البرمجيه خصوصا لو هناك عميل سيستلم البرنامج وهنا يمكنك 1. ضع حقل اضافي في الجدول المواد باسم كلمة البحث او البحث وسيكون به الكلمات التي تريد الفلترة بها 2. تشير لمربع النص الذي بالتقرير والذي سيحتوي اسم الماده والتي هي بمربع السرد بالنموذج هكذ =[Forms]![Frm_PrintComm]![Cmb_SelectSubject].[column](1) هنا لم يعد حاجة للكود سواء للبحث او للاشاره لاسم الماده فقط استعلام بالتوفيق
    2 points
  4. لا يمكن أن تعيد Enum قيما نصية للأسف.. لكن لها شقيقة تدعى Type تقوم بتعريف البيانات التي تستقبلها وتعيدها ولكي نطوعها للعمل كسابقتها نحتاج إلى عدة خطوات.. إليكم الخطة سوف نقوم أولا بتعريف البيانات كما يلي Type T_MonthNames Jan As String Feb As String Mar As String Apr As String May As String Jun As String Jul As String Aug As String Sep As String Oct As String Nov As String Dec As String End Type كما أشرت سابقا يمكن تعريف المطليات ونوع البيانات حسب متطلباتكم.. نحن هنا بحاجة إلى معطيات تحمل قيم نصية هي أسماء الشهور فقط. إذا بعد تعريف المعطيات نحن بحاجة إلى إسناد البانات لهذه المطيات.. ولهذا الغرض سوف نقوم بإنشاء وظيفة ونعرف بياناتها من نوع T_MonthNames التي أنشأنها للتو كما يلي Function MonthName() As T_MonthNames '-- هذه البيانات كمثال '-- أكمل إسناد البيانات إذا أردت MonthName.Jan = "يناير" MonthName.Feb = "فيبراير" MonthName.Mar = "مارس" MonthName.Apr = "أبريل" End Function في نافذة التنفيذ السريعة يمكنكم تجربة الوظيفة كمايلي ? MonthName.Apr 'سوف تعيد شهر أبريل إليكم المثال T004.zip
    2 points
  5. اتفضل استخدمت هذا الكود Private Sub Form_BeforeUpdate(Cancel As Integer) Dim sql As String If DCount("[ItemID]", "[InvoiceDetails Table]", "[InvoiceID]=" & Me.InvoiceID & "and [ItemID]=" & Me.ItemID) > 0 Then sql = "UPDATE [InvoiceDetails Table] SET [InvoiceDetails Table].Quantity = [InvoiceDetails Table]![Quantity]+[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![Quantity] WHERE ((([InvoiceDetails Table].InvoiceID)=[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![InvoiceID]) AND (([InvoiceDetails Table].ItemID)=[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![ItemID]));" DoCmd.SetWarnings (warningsoff) DoCmd.RunSQL (sql) Me.Undo DoCmd.SetWarnings (warningson) End If End Sub واليك قاعدة بياناتك بعد تعديل invoice.rar
    2 points
  6. اتفضل استخدمت هذا الكود Dim Sql As String Sql = "UPDATE ItemsT SET ItemsT.item_available = 0;" If MsgBox("هل تريد ان تفريغ البيانات حقل الكمية المتوفرة", vbYesNo + vbMsgBoxRight, "اخر تنبيه") = vbYes Then DoCmd.SetWarnings (warningsoff) DoCmd.RunSQL (Sql) DoCmd.SetWarnings (warningson) Me.Refresh End If اي اضفت رسالة نعم ولا لكي لا يتم التفريغ بدون رسالة الحذر و بدلت علامة "" الى صفر كما قال استاذنا @ابو خليل لان الحقل هو رقمي وتكدر تستخدم علامة ايضا لكن من الاحسن ان يكون صفر اتفضل قاعدة بياناتك بعد اضافة الكود الاعلاه Items.rar
    2 points
  7. الشكر لله أخي ابا جودي فمانحن الا تلامذة صغار امامكم .. نسأل الله ان يزيدنا وإياكم من خزائن علمه ورحمته تحياتي لي سؤال بسيط وهو خارج الموضوع .. كيف اضيف توقيع في مشاركاتي؟
    2 points
  8. @حسين العربى تفضل أخي حسين اتمنى ان يكون هو المطلوب .. لقد قمت باحضار سكانر الى المنزل لخاطر برنامجك ملاحظة: لاتنسخ كامل اكواد الصفحة فقد قمت بحذف كود لزر أمر خاص بالفورم الرئيسي لآنه سبب لي مشكلة فقلت خلي استغني عنه .. على العموم انت يمكنك اخذ التعديل الذي قمت به فقط على دالة GetScan ووضعه لديك وبإذن الله أمورك تمام بالنسبة لتسمية الصور بعد اخذها من السكانر فقد وضعت دالة توليد ارقام عشوائية لاسماء الصور لكي لا تفكر بتسمية كل صورة (اختصار للوقت والجهد) ساعة ونصف وانا احاول رفع ملفك اول مرة تحصل عندي في التاريخ .. الابلود على وشك الانهيار تحياتي الارشيف.zip
    2 points
  9. المعذرة لم أتمكن من إكمال المشاركة السابقة لعدم استجابة المتصفح للتحرير 2- إنشاءالوظيفة ()IsMonth وهي تعود بقيمة منطقية، وتستقبل أيضا متغير يعود بقيمة عددية من خلال الحاوية التي أنسأنها 3- يوضح هذا المقطع مستعرض المراجع؛ وهو هنا يسرد قيم الحاوية التي أنشانها 4- هي لنافذة التنفيذ السريعة ويمكن من خلالها فحص الوظفة السابقة ومدى استجابة المحث بسرد قيم حاوية أسماء الأشهر.. يجب أن تظهر هذه القيم عند كتابة الوظيفة وبعد كتابة القوس الأيسير. وهذا مثال للتوضح T004.zip
    2 points
  10. اتفضل اخي اليك هذا الاستعلام SELECT Basic.Emp_No, Basic.Emp_Name, Egoor_assassia.Emp_No, Max(Egoor_assassia.Agr_Date) AS MaxOfAgr_Date, Nz(DLookUp("[Agr_amount]","egoor_assassia","[Agr_Date]=#" & [MaxOfAgr_Date] & "#" & "and [Emp_No] = [Emp_No]"),0) AS dd FROM Egoor_assassia INNER JOIN Basic ON Egoor_assassia.Emp_No = Basic.Emp_No GROUP BY Basic.Emp_No, Basic.Emp_Name, Egoor_assassia.Emp_No; لكن هناك ملاحظة كان في خطأ في ادخال تاريخ استاذ اشرف اللي في 01\07\2017 انا مسحته و اضفت من جديد حتى لا يظهر معي الخطأ وفي الاخير النتيجة سيكون كالتالي اتفضل مع القاعدة بياناتك last agr.rar تقبل تحياتي
    2 points
  11. السلام عليكم هذا هو الفديو الثانى فى شروح أكسيس و لا أدعى أن فى هذه الفديوهات أشياء جديدة على معظمكم لكنها شروح أرجو أن ينتفع بها عدد غير قليل من زوار المنتدى و كل إنسان له بداية ضعيفة ثم بالبحث و المران اكتسب المعلومات و الخبرة و قد كنا و نحن فى البدايات نبحث عن مثل تلك الشروح أرفق لكم ملف الأكسيس قيد الشرح و نتعرض للموضوعات التالية فى هذا الفديو خاصية القيمة الافتراضية و فوائدها استخدام الخاصية فى إدراج معرف الموظف تلقائيا استخدام خاصية وقف علامات الجدولة دالة iff dcount dmax و أشكر الأخ المراقب أبا خليل لتشجيعه وفقكم الله
    1 point
  12. السلام عليكم ورحمة الله وبركاته هل من طريقة لانشاء input box متعدد الادخال - لحاجتى لاستدعائه من داخل كود بدون الاضرار لانشاء فورم ومكابدة معانة الربط بينه وبن الفورم الرئيس وتكرار فتحه واغلاقه بكل مرة
    1 point
  13. الكود بهذا الشكل سليم إن شاء الله ولكن طالما أننا سنتعامل مع أكثر من ورقة عمل فلابد من الإشارة لورقة العمل التي فيها قيمة الخلية (القائمة المنسدلة) قم بالإشارة إلى ورقة العمل قبل كلمة Range في هذا السطر strClass = Sheets(StudentData).Range("W2").Value
    1 point
  14. أخى هذه الرسالة لكون مرفق أ/ حمادة مصمم باصدار 2010 وحضرتك بتحاول تفتحه على اصدار 2007 وعلى كل قمت بحويل المرفق الى اصدار 2003 لتستطيع فتحه ومساعدة أخيك وأعتذر لعدم المتابعة لانشغالى قليلا تفضل هذا المرفق New.rar
    1 point
  15. أولا - جزاك الله خيرا أستاذ محمد على الاهتمام ثانيا - كما تعلم حضرتك أن ال inputbox وسيلة لطلب ادخال بيان من المستخدم والكائن الموجود ب vba والذى يتم استدعائة ب InputBox("Prombt","Title","Default",Xpos,ypos) وهنا لا يتم ادخال الا شىء واحد فقط ولكنى قد وجد ببعض البرامج input box يمكن ادخال اكثر من بيان من خلاله ولكنى بحثت ولم اتوصل الى طريقة استدعاء أو انشاء مثل هذا الـ input box ولعل الصورة تقرب المقصود
    1 point
  16. إذا كان المجلد يحتوي صور فقط .. فهذه الشفرة بعد التعديل Function GetImage(imageName As String) Dim ImagePath As String ImagePath = CurrentProject.Path & "\img\img\" GetImage = ImagePath & Dir(ImagePath & imageName & "*") End Function اكتب اسم الملف بدون اللاحقة.. أو اكتب جزء من اسم الملف.. أو لا تكتب شيء! سوف يعيد اسم أول ملف!
    1 point
  17. والله انت مبدع استاذي الفاضل sandanet والله لن انساك من دعائي في كل صلاه انت ولاستاذ محمد سلامه ولاستاذ شيفان يارب يارب يسعد ايامكم مثلما اسعدتموني الف الف شكر اخي الفاضل الحين ظهر عندي مربع حوار اختيار اسكان غدا باذن الله سوف اجربه علي الاسنكر الحديث وابلغك بالنتيجه وباذن الله بعد التجربه سوف ابدأ في العمل النهائي للبرنامج وارفقه مفتوح المصدر لكل من يريد هديه مني لهذا المنتدي العظيم
    1 point
  18. @حسين العربى اخي حسين تفضل التعديل الجديد على اسم المجلد ..يسعدني رؤية برنامجك النهائي بعد استكمال جميع اجزاءه لانه ممتع وجميل بالنسبة للسكانر فالصورة لدي تختلف عن تلك التي لديك لاني معرف التليفون النقال على جهازي لذلك تظهر لي رسالة بوجود اكثر من جهاز فيجب علي تحديد نوع الجهاز لكن الصورة التي تظهر لديك هي المطلوب حصولها في حال تم الربط بالشكل السليم مع السكانر تحياتي الارشيف.zip
    1 point
  19. طيب جرب السكانر بدون برنامجك هل تعمل من داخل الويندوز ام لا؟
    1 point
  20. ماشاء الله واضح انه برنامج متعوب عليه وشكله برنامج متكامل لكن عندي سؤال وهو عند قرب اكتمال اشتراك الزبون هل يتم تنبيهك ام لا؟ اذا كانت الاجابة لا فكيف يتم معرفة من كمل اشتراكه ومن لم يكتمل .. وما هو حال من جمد اشتراكه لفترة محدودة لدواعي الاصابة مثلاً هل يتم ايقاف حسابه مؤقتاً ام ماذا؟ في المرفق برنامج لأحد الأخوة في هذا المنتدى وهو عبارة عن عملية تنبيه قبل الموعد بيومين يمكنك الاستفادة من الفكرة في برنامجك تحياتي تنبيه قبل وصول موعد صرف الشيك بيوم او يومين.zip
    1 point
  21. جزاك الله خيرًا .... ولكنى سأقوم بتغيير مصدر بيانات التقرير لأكثر من جدول، لذلك سأحتاج لعمل التصفية من الكود
    1 point
  22. اخي @Shivan Rekany ما شاء الله عليك دوما وانت في الابداع تسلم يديك حفظك الله من أي مكروه ونفع الله بك الإسلام والمسلمين شاكرين لك اخي
    1 point
  23. لامشكلة أخي حلبي ان شاء الله فأنا واساتذتي في هذا المنتدى الرائع دائماً متفهمين لمثل تلك الاشكاليات الغير مقصودة على العموم بالنسبة لسؤالك عن عدم استخدامي للأداة التي تقوم بعمل سكان فالسبب هو اني لا احب الأدوات المضافة الا في حالات الضرورة القصوى ولأن الأدوات بطبيعة الحال تحتاج الى تعريفها في الريجستري للويندوز وهنا تكمن المشكلة لأن الاشخاص الذين يعملون على البرنامج منهم من يعمل على ويندوز 64bit ومنهم على 32bit ومنهم من لايعرف كيفية تعريف الأداة من محث الأوامر هذا كله بالاضافة الى ان غالبية الأدواة الموجودة تحتاج الى ترخيص والا فإنها سوف تعمل معك لفترة معينة فقط لذلك انا افضل الابتعاد عنها طالما وجد كود سهل يفي بالغرض تحياتي
    1 point
  24. تمام بارك الله فى علمك تعلم أننا يمكن أن ننشئ جدولا به هذه القيم ونستخدمه أينما نريد فى قيم مربع تحرير و سرد أو قائمة أو غير ذلك أريد أن أعلم الميزة التى توفرها لنا هذه الطريقة بالتحديد هل هى الحماية بعيدا عن كائنات أكسيس والاختفاء داخل الكود أم أى شىء؟ بارك الله فى علمك أول مرة أتعرف على هذه الأشياء
    1 point
  25. اختبارات تلقائية بعد التعديل هدية لجميع الأعضاء لقد وجدت في المنتدى هذا البرنامج فقمت بالتعديل علية وتنسيقه وتسهيله لأي شخص يريد أن يعمل امتحان تلقائي يدخل الأسئلة اللي هو عاوزها ولم أعرف من صاحب البرنامج اللهم اجعله في ميزان حسناته الرقم السري للدخول هو (123) اختبارات تلقائية.rar
    1 point
  26. اخي / sandanet تابعت المشاركة التي قلت لي عليها ولكن ظهر رسالة خطأ كما في الصورة : كيف يمكن معالجته
    1 point
  27. وجزيت خيراً بمثل ما دعوت لي أخي الكريم حسين والحمد لله أن نال الفيديو إعجابك وأرجو أن يكون واضح ومفيد للجميع لأننا نريد إحداث طفرة في طريقة التفكير في البرمجة لا أن تكون البرمجة قائمة على النسخ للأكواد والتعديل عليها فقط بل أتطلع إلى وجود أشخاص متعلمين يستطيعون تقديم إبداع ونريد أن ننافس المنتديات الأجنبية فيما وصلوا إليه ونستطيع على الأقل مجاراتهم
    1 point
  28. أخي حسين الحمد لله أولاً وآخراً هو صاحب الفضل في كل شيء فهو الذي سخر لك من يساعدك ويعاونك هذا ان دل على شيء انما يدل على حسن خلقك وطيبة قلبك وما انا الا أداة صغيرة سخرها الله لك ولباقي الأخوة فالحمد لله على ما اعطانا من فضله أخي الكريم حسين اعتذر منك بشدة عن نسياني لموضوع ادراج مسار الصور في النموذج الفرعي لكني سأحاول فيه ان شاء الله تحياتي
    1 point
  29. اخي واستاذي ومعلمي الفاضل sandanet يعجز لساني عن الشكر والله مش عارف اقول لحضرتك ايه ولا اشكرك ازاي بس يصراحه انت شخصية محترمه وانسان خدوم بمعني كلمة خدوم ولك مني كل الاحترام والتقدير وجزاك الله كل خير وذادك الله من علمه وجعلك الله عونا لكل محتاج شكراً لك من أعماق قلبي على عطائك الدائم. كلمات الثناء لا توفيك حقك، شكراً لك على عطائك. إن قلت شكراً فشكري لن يوفيكم، حقاً سعيتم فكان السعي مشكوراً، إن جف حبري عن التعبير يكتبكم قلب به صفاء الحب تعبيراً. ( طبعا اخي اللفاضل انا عارف انك تعبت معاي وتعبك هذا فوق راس ( وربنا سبحانه وتعالي يجعله في ميزان حسناتك ) بس طبعا باقي اخر شي وحضرتك عارفه الي هو ادراج مسار الصور التي يتم سحبها الي النموذج الفرعي ليكتمل العمل علي اكمل وجه بأذن الله وسامحني علي تعبك
    1 point
  30. اعتقد انه تمت الاجابة على هذه الاشكالية .. ارجو منك بعد التأكد مشاركة الملف مع الاخوة الذين يريدون الاطلاع على المثال تحياتي
    1 point
  31. نعم بالمثال يتضح المقال.. دعني أقوم بشرح بعض النقاط من خلال الصورة التالية.. بحسب تسلسل الأرقم: 1- إنشاء حاوية معاملات عددية تسلسلية بأسماء الأشهر الميلادية.. اسم هذه الحاوية: T4ManthNames
    1 point
  32. شاهد المرفق .. ان شاء الله به طلبك علي حسب فهمي له اسم آخر شيت تم فتحه.rar
    1 point
  33. تفضل تم التعديل اتمنى يوافق رغبتك بالنسبة للنموذج الفرعي واسناد المواد فتركته كما اعده استاذنا ابو عبدالله new2.rar
    1 point
  34. عند تغير التاريخ للعميل !! لماذا تتغير التاريخ للعميل المنتهي العقد ؟ عند انتهاء العقد راح تكتب اليوم اللي فيه المنتهي العقد معه وحينئذ راح يكون هو اكبر تاريخ على ذلك الرقم وعلى هذا الاساس انا جربت مثلا عند انتهينا العقد مع شخص و نقلنا اسمه الى جدول المنتهي العقود اي تم انتهاء العقد للسيد ( محمد السيد ) وكتبنا اي عملنا تعاقد مع شخص اخر اي عملنا عقد مع السيد ( ياسين انور ) وفتحنا استعلام من جديد شفت ان الصور سيكمل الحكي ما اعرف عدا هذا ما تريد
    1 point
  35. اليك هذا الرابظ لعل يفيدك
    1 point
  36. هل تريد ان يظهر لك هكذا ام بأي شكل تريد
    1 point
  37. 1 point
  38. السادة / أعضاء أوفيسنا المحترمين السلام عليكم ورحمه الله وبركاته بناء على مراسلات من بعض الإخوة على الإيميل وإستفسارهم عن حساب مكافآة نهاية الخدمة طبقا لقاون العمل بالمملكة العربية السعودية مقدم لكم ملف اكسيل بسيط جدا لكيفية إحتساب المكافأة وأعتذر عن غيابي عن المنتدى الفترة السابقة بسبب ظروف مرضية وأتقدم بخالص الشكر لكل من راسلنى للإطمئنان على وجزيتم عنى خير الخير وتقبلوا منى وافر الاحترام والتقدير حساب مكافأة نهاية الخدمة.rar
    1 point
  39. أرجو المساعدة في انشاء دالة تقوم بترحيل البيانات من جميع الأوراق (السنوات) الى ورقة البداية و قد أرفقت لكم ملف يوضح المطلوب حيث أني عجزت عن انشاء دالة VLOOKUP الله يوفق الجميع Test.rar
    1 point
  40. مرحبا استاذ مارد ولو اردنا ان يكون الترقيم لليوم الحالي فكيف يكون عمل ذلك؟؟؟؟؟؟؟؟؟؟؟؟ يكون هكذا اخى الكريم واعزرنى لتاخرى فلم ارى المشاركة ال الان Dim f, k As Date Dim j As String Dim s As Long If DCount("id", "mytable") > 0 Then f = DMax("mydate", "mytable") If Day(MyDate) > Day(f) Then ID = 1 Else j = "Day(MyDate) = " & Day(Me.MyDate) ID = DMax("id", "mytable", j) + 1 End If Else ID = 1 End If
    1 point
  41. الحل يتم بأكثر من طريقة اسهل وأقوى طريقة هو ان تجعل الحقلين مفتاحين جرب ووافنا بالنتيجة تنبيه : لاختيار اكثر من مفتاح : اضغط زر كنترول من لوحة المفاتيح ثم حدد السجلات المطلوبة ثم انقر بالزر الايمن واختر المفتاح No Duplicates.rar
    1 point
  42. تفضل اذهب الى عرض تصميم النموذج ثم حدد احد العناصر ثم التنسيق الشرطي من شريط القوائم لترى الشرط والتنسيق . تستطيع وضع التنسيق المناسب بالتوفيق pro.rar
    1 point
  43. السلام عليكم ورحمة الله أخي الكريم ريان، تم حل المشكلة بإضافة كود جديد لمسح بيانات الجداول (إلا جدول قائمة الأسماء في النطاق B7:B22)، والكود نقوم بتنفيذه عندما نريد التعديل على قائمة أسماء الفرق (أو عندما نريد إعادة القرعة قبل اكتمال قرعة سابقة).... أرجو أن يعجبك هذا التعديل... أخوك بن علية المرفق : عملية قرعة لـ16 فريق_3.rar
    1 point
  44. شروحات أكسس الصوتية والمرئية دروس الأستاذ عبدالفتاح كيره شرح 3 طرق لفتح نموذج من داخل نموذج آخر الاستفادة من خاصية القيمة الافتراضية للحقول شرح التحقق من عدد أرقام الرقم القومى شرح استخلاص ت الميلاد من الرقم القومى دالة mid-val شرح دالة DateSrial شرح البحث عن اسم يتضمن أى حروف البحث بمعلومية شرطين باستخدام استعلام و كود شرح استعلام إلحاق استعلام الإلحاق بدون تكرار مع تعديل بعض الحقول الملحقة كيف تفتح نموذجا على سجل محدد كيفية التحكم فى حقل بنموذج فرعى من خلال النموذج الرئيسى كيفية البحث عن السجلات و الانتقال إليها التنقل بين السجلات في نموذج أكسيس بخطوات محددة التخطيط لإنشاء قاعدة بيانات ======================================================== تعلم الاكسيس ( باللغه العربيه صوت و صوره ) لــ admiral http://www.officena.net/ib/index.php?s=c6d3bad3a53a5ac634ea791d48f6472c&showtopic=31301 ======================================================== شرح اكسس 2003 فيديو (1)... لقنديل الصياد http://www.officena.net/ib/index.php?showtopic=48569 شرح اكسس 2007 (2) http://www.officena.net/ib/index.php?showtopic=51147 شرح اكسس 2010 (3) http://www.officena.net/ib/index.php?showtopic=51150 ======================================================== تعليم برنامج أكسس 2010 لـــ ALSHAMAL http://www.officena.net/ib/index.php?showtopic=54641 ======================================================== أكسيس 2013 شروحات متنوعة الاستاذ عبداللطيف طراقجي شرح برنامج مايكروسوفت أكسيس 2013 http://www.officena.net/ib/index.php?showtopic=59950&hl= الدرس الأول إنشاء و إدارة قواعد البيانات http://www.officena.net/ib/index.php?showtopic=59961&hl= الدرس الثاني: إدارة العلاقات و المفاتيح في برنامج الأكسيس http://www.officena.net/ib/index.php?showtopic=60073&hl= الدرس الثالث: التنقل من خلال قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60177&hl= الدرس الرابع: حماية و صيانة قواعد البيانات http://www.officena.net/ib/index.php?showtopic=60261&hl= الدرس الخامس: طباعة و تصدير قاعدة البيانات http://www.officena.net/ib/index.php?showtopic=60376&hl= الدرس السادس: إنشاء الجداول في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60468&hl= الدرس السابع: تنسيق الجداول في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60584&hl= الدرس الثامن: إدارة السجلات في جداول قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60681&hl= الدرس التاسع: إنشاء و تعديل الحقول في جداول قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60809&hl= الدرس العاشر: إنشاء الاستعلامات في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60893&hl= الدرس الحادي عشر: إنشاء الاستعلامات الاجرائية في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60988&hl= الدرس الثاني عشر: تعديل الاستعلامات في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61086&hl= الدرس الثالث عشر: استخدام و تجميع الحقول المحسوبة في الاستعلام http://www.officena.net/ib/index.php?showtopic=61177&hl= الدرس الرابع عشر: إنشاء النماذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61265&hl= الدرس الخامس عشر: تعيين عناصر تحكم النموذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61351&hl= الدرس السادس عشر: تنسيق النماذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61409&hl= الدرس السابع عشر: إنشاء التقارير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61468&hl= الدرس الثامن عشر: تعيين عناصر تحكم التقرير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61561 الدرس التاسع عشر و الأخير: تنسيق التقارير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61634
    1 point
  45. التحكم بوقت التنفيذ في النموذج مع تطبيق ذلك على التنبيه Beep ، إظهار رسالة ، فتح نموذج ، إغلاق التطبيق ............ Timeout.zip
    1 point
  46. السلام عليكم اخي الكريم husas707 الروابط شغالة مية المية وجربتها قبل ما اكتب هذا الرد وعلي فكرة هي مرفوعة على حسابي يعنى ما تنلغي الا اذا انا لغيتها حاول مرة ثانية واذا ما زبط معاك بحاول ارفعها علي رابط في موقع اخر شكرا علي مرورك
    1 point
×
×
  • اضف...

Important Information