Shivan Rekany

اذا تريد ان تضع نصف دائرة ما عليك الا ان تضيف في كودك ( ,,3 ) اي يعني راح يكون هكذا Me.Circle (Me.Text0.Left + (Me.Text0.Width / 2.4), Me.Text0.Top + (Me.Text0.Height / 2.2)), 330, , 3 لكن انتبه لازم تتغير وضع شرط ئيف اي تنطي شرط اذا اقل من 25 ضيف في الكود السابق و غير شرط اذا اقل من 50 الى اقل من 50 و اكبر من 25 تحياتي

شكرا لك @ابوخليل حقا انت مراقب وشخص طيب وعبقري وشكرا على الاجابة شكرا لك @عبد الفتاح كيرة على طرح هذه الموضوع وعلى اجابة عليه يا عبقري شكرا لك @رمهان على الاجوبة بطريقة اخرى حقا انت عبقري انتم كبرائنا ونستفيد منكم شكرا لكم جميعا على مشاركتكم حقا انا استفيد من كل حرف انتم كتبتم في هذه الموضوع تحياتي اخوكم الصغير شفان ريكاني

اتفضل عملت لك بين تاريخين في نموذج رئيسي اي راح تختار من شهر و الى شهر وبعدين تضغط الزر اتفضل مع قاعدة بيانات Database3.rar

ممکن ترفق القاعدة احنا مش مشغولين خلي نشتغل عليه تحياتي

اتفضل شوف الاستعلام الترقية Database3.rar

في البداية ما قلت ذلك وما ارفقت قاعدة لكي نعمل عليه وما اخترت بأي شي او بأي حقل من الحقول نعامل بل عطيتك اللي طلبتك اولا والان اختلف طلبك على الاول تحياتي

اتفضل هذا الرابط بها ماتريد https://www.officena.net/ib/topic/73224-طباعة-كل-الفواتير-بشرط-التاريخ/?do=findComment&comment=474269

اتفضل ماتريد غير مسموح للعميل بالتجاوز للحد المسموح له.rar

اخ منك ياريت من البداية كان ارفقت هذه الصورة شوف في خلفه به شريطة اصفر وعليها كلمة انبل اضغط عليه لهذه المرة وبعد جرب اضغط على الازرار قلل مستوى الامان لاكسس اليك هذا الرابط https://support.office.com/ar-sa/article/تمكين-وحدات-الماكرو-أو-تعطيلها-في-ملفات-Office-12b036fd-d140-4e74-b45e-16fed1a7e5c6 واليك هذا

ما هو اصدار قاعدة بيانات اللي تريد فتحه الرسالة بيقول لك لا تستطبع تفتح قاعدة بيانات تم انشاءه بواسطة اصدار قبل اصدار برامجك اي قبل اصدار اكسي تابعك هل هو من اصدار 97 ؟ تحياتي

اخی الکریم هل لا یعمل الزرین فی الملف المرفق فی مشارکتک الاولی او فی قاعده بیانات اخر وما یشتغل الازراره فتح النموذج في وضع التصميم وحدد الزر وبعدين افتح محر فيجوال عند حدث كليك عليه وشوف هل الاكواد موجودة ام لا لان حقا القاعدة المرفق بيشتغل تماما

اهلا بك في منتداك منتدى اوفيسنا اخي الكريم انا نزلت الملف الزرين بيعمل عندي وما بها مشكلة ممكن توضح ما هو رسالة المشكلة

اتفضل مع الكود Dim objAcc As Access.Application Set objAcc = GetObject("F:\DBAL.ACCDB") objAcc.DoCmd.OpenTable "TblPezanin", acViewNormal, acEdit objAcc.DoCmd.GoToRecord acDataTable, "TblPezanin", acGoTo, 1 objAcc.DoCmd.RunCommand acCmdSelectRecord objAcc.DoCmd.RunCommand acCmdDeleteRecord objAcc.Application.Quit Set objAcc = Nothing واتفضل مع شرح الكود Dim objAcc As Access.Application قمنا بالتصريح Dim ان الكائن هو كائن برامج اكسس Set objAcc = GetObject("F:\DBAL.ACCDB") وان البرامج اكسس موجودة في قرص ئيف باسم دبال ونوعيته هو أسي سي دي بي objAcc.DoCmd.OpenTable "TblPezanin", acViewNormal, acEdit بعدين يفتح جدول باسم تبل بيزانين بشكل نورمال على شكل تعديل objAcc.DoCmd.GoToRecord acDataTable, "TblPezanin", acGoTo, 2 وفي جدول تبل بيزانين بيروح الى سجل رقم 2 وهناك تكدر تغير اي رقم تريد حسب سجلات في جدولك objAcc.DoCmd.RunCommand acCmdSelectRecord وبعدين يحدد السجل المختارة اي وهو سجل رقم 2 objAcc.DoCmd.RunCommand acCmdDeleteRecord وبعدين بيحذف السجل المختارة objAcc.Application.Quit بعدين يغلق القاعدة اي قاعدة دي بال اللي عمل عمليه حذف فيها Set objAcc = Nothing وفي الاخير عملنا سيت اوبجيك لا شي لكي لا يبقى في ذاكرة مؤقتة للجهاز تحياتي

ماهذا يا سيدي وما تريد من الملف اكسل في منتدى اكسس @ابوخليل احنا فين؟

اتفضل استخدمت هذا الكود If Me.Arabic_t1_Activity = "Û" Or Me.Arabic_t1_Activity <= 40 Then Exit Sub Else Me.Arabic_t1_Activity = "" MsgBox "مش مسموح بكتابة هذا" End If شوف فورم FRM_1_Activiti نعم استاذ بيعمل وبشكل ممتاز لكن ابوالاء يريد ان يبدل رسالة اكسس اللي بيظهر اذا دخل رقم اكبر من 40 او دخل حرف عدى حرف غ برسالة اخرى تحياتي لكم 008.rar

الان انا عم استخدم موبايل وبالماركيت خلي اشتري بعش اشياء وارجع راح اعمل على القاعدة تحياتي

اذنك معك استاذي الحبيب انا فخور بمشاركتك معنا اي نعم امسح الكود في قاعدة تحقق من الصحة وفي محرر فيجوال استخدم if مع کود استاذ ابو خليل

ما عملنا شي اخي الكريم الا واجبنا احنا في الخدمة ان شاء الله تحياتي

اذا رحت عالسوق بها فروع تكدر تروح عالفرع الاول او تعبر الفرع الاول وتروح عالفرع الثاني بكفيك انت وكل فرع بها دكاكين خاصة مثلا اسم دكان واحد هو int>>>/7.3 والاخر اسمه int<<</30)*4.16 وايچا راح تشوف واحد اسمه محمد والاخر اسمه محمدسليم لهذا كل حقل من تلك الحقول به شي خاصه‌ مثلا لحقل الاول عطيتنا هذا ejmaleEjazat: Int(((Date()-[hiredate])/7.3)) والاخر عطيتنا هذا ejmaleEjazat1: Int(((Date()-[hiredate])/30)*4.16) والاخر كتبنا هذا ejmaleEjazat2: Round(((Date()-[hiredate])/30)*4.16;0) والاخر كتنبا هذا ejmaleEjazat3: Int((Date()-[hiredate])*0.1369) واي واحد يناسبك اختره تحياتي لك

عفوا منك استاءي الحبيب @ابوخليل اختر احد من طرائق اولا تعامل مع مسار الصور اي اذا غيرت مسار او حذفت الصورة راح يحذفه من قاعدة بياناتك ثانيا ارفاق الصورة الى قاعدة بياناتك وحين تحذف الصورة وتغير مساره ماراح يحذف من القاعدة بياناتك لكن اذا استخدمت الطريقة الاولى ما راح يكبر حجم قاعدة بياناتك واذا اختارت الطريقة الثانية سيزداد حجم قاعدة بياناتك اختر اي طريق تريد

ان ما استخدم قاعدة التحقق من الصحة بل استعمل الاكواد لكن حسب فهمي تكدر تستخدم دالة iif او تستخدم or واذا تريد ارفق قاعدة مبسطة وشرح ما تريد ان تنطيه فق قاعدة صحة بيانات تحياتي

اليك حل لنقطة ثانية غدا ان شاء الله راح اشرح لك بالتفصيل اتفضل مع شرح بسيط عملنا استعلام كيو3 لكي يظهر الاسماء اللي في كلا من جدولين وهذا هو كود استعلام كيو 3 SELECT الرئيسي.[الاسم الكامل], الرئيسي.الرتبة, الرئيسي.[تاريخ اخر ترقية] FROM Tarqia INNER JOIN الرئيسي ON Tarqia.[الاسم الكامل] = الرئيسي.[الاسم الكامل]; وبعدين عملنا استعلام اخر لكي يظهر الاسماء اللي في جدول الترقية ومش موجود في استعلام كيو3 وهذا كود الاستعلام الثاني SELECT Tarqia.[الاسم الكامل], Tarqia.الرتبة, Tarqia.[تاريخ اخر ترقية] FROM Tarqia LEFT JOIN q3 ON Tarqia.[الاسم الكامل] = q3.[الاسم الكامل] WHERE (((q3.[الاسم الكامل]) Is Null)); اذا ما فهمت مني غدا ان شاء الله راح اشرح لك بالتفصيل مثال.rar

اتفضل خذا هذا الاستعلام UPDATE Tarqia INNER JOIN الرئيسي ON Tarqia.[الاسم الكامل] = الرئيسي.[الاسم الكامل] SET الرئيسي.الرتبة = [Tarqia]![الرتبة], الرئيسي.[تاريخ اخر ترقية] = [Tarqia]![تاريخ اخر ترقية]; وبالنسبة نقاط 2 في الحقيقة مافي شي في مخي لكي اعمله لانو لازم بيكون حقل بيكون يساوي حقل اخر اذا الاسم بيكون مخالف عن الاسم الجدول هذه الطريقة ما يفي بالغرض الا اذا كان بينهما حقل بيكون مساوى ولكن اظن ان استاذنا @jjafferr سيفتح لنا طريق تحياتي مثال.rar

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

هذا الماكرو هو لفتح اولي اي حين تفتح القاعدة بيفتحه وبيشتغل الاوامر فيه لكن لكي يشتغل برامج على كل من ويندوز 32 بت و 64 بت لازم تشوف هذه المشاركة وايظا