hanan_ms

ايه الكلام الحلو ❤️☕🌹 😘😘😘 اتصبح وامسي فيه ومنتظر دالة من احلا استاذ @ابو جودي يمين اكلك للمؤشر عام للفورم والتقرير وخاصة معاينة التقرير شكرا على ذوقك بس مطلب لكل عميل لمس لطابع الشركة وللواجهة المشروع تقدر تضيف انزال قيم الحقول لسابع فورم تفريع تكون قائمة متغيره واضافة 4D ثواني فيديو انيمسن تكون بداية ظهور القائمة ثواني هذه الفنيات الجميلة ========================== انتظر دور استاذ @Moosak بموضوع مبهر 😁

بعد اذن استاذي @ابو جودي❤️🌹 احب مشاركة بقوائم المختصر وسهل تستطيع التعديل عند تركيز الفورم اغلق القائمة 😇 كيف تخصيص قائمة عند معاينة التقرير ☕

مشاركة يتخصيص اكثر وتحكم اكثر بما يتناسب للطلب والتصميم 1- ظهور القثائمة باي مكان تضغط فيى على زر يسار الماوس وخاصة الضبط عند كامل الشاشة للنافذه docmd.mixmain 2-تخصيصها وتشكيل القائمة باي تصميم دائرة او شبة دائرة تستطيع اختصار ما تشاء وتصميم كما تشاء بسهولة Ezy كانة لاعادة الاتصال او كانت اعدادة او اكثر من خطو مع اضافة شعار للشركة وشريط التقدم ..😇 ============================ فقط بحدثين تستطيع جعل راس النموذج قائمة لحالها زالتفصيل النموذج قائمة للحالة وتذليل النموذج قائمة للحالها ==================================(!) ولا تستطيع تشغيل عند (معاينة التقرير للاسف ) -😏 Lift_Click_Mouse(Menu_Form_Custom).rar

اشكر استاذ @ahmed draz ❤️🌹 😂 ما لقيت واحد ثابت على طريقة Ribbon يختلف 2007 عن 2019 -2021 لتغير الصورة <\ image = " 2019 Custom Pictuer = " اتمنى في موضوع جيد لانشاء Ribbon 2019 مثل انشاء الجداول 😇

اعتذر عن الموضوع السابق بسبب خطأ رفع المرفق حدثة الموضوع 😗 1- تغير خلفية والحتفاظ بالخلفية 2-تعديل اسلوب العرض ومختلف ومتنوع اشلون الطريقة اسهل 😇 Ribbon Ribbon_Ezy_with_Full_Contol.rar

1- انشاء شرط الريبون فقط نسخ فورم (Ribbon_menu1 ) مصمم وجاهز 2- من اداة تعطي كامل الشاشة مع اظهار شريط الويندوز ويمكن تغير مقاس بما تراه مناسب كان بالجنب او اعلى او اسفل مثل ما تستخدم الريبون بضبط 😏 -يكون كعداد لتعديل مقاس حجم الشاشة ================================ ابتعدة عن نموذج التنقل وكود تغير الارتفاع بسبب Flash Query! بطريقة بسيطة كنت برفع مكتبة لانشاء XML Ribbon وصعبة للبعض كتابة كود الزر للتشغيل بدوال مو داخل الزر وبعد بعضهم يستخدم docmd.openForm ,,,,, Hid ?! للتحكم وتشغيل الكود ويتطلب للتشغيل Ribbon العناصر الاربعة 😇 -tablet -Form -Function -micro لتشغيل وتعامل مع Ribbon صادفة قناة يبيع برنامج صممة بالفيجوال لاضافة واستخدام Ribbon الى اكسس وبسهولة مع مرفق فجبة لكم نفس النتيجة 😇😂 Ezy وتحكم سهل وخفيف ومريح وقابل للتخصيص وتصميم اشرايكم ❤️🌹 Ribbon_Ezy_with_Full_Contol.rar

كل الاكواد بسطر واحد نموج واحد بسيط والكود بداخل الزر Sken_Calendr_One_Form.rar

صباح الخير استاذ @Foksh ☕ من فبراير الى تاريخ اليوم احسب = مضبوط 100 💯 الاستخراج بدل 2\4\2024 يستخرج 4\2\2024 dim y dim m dim d قرتب التاريخ بالكود dim day as date day = d & "/" & m & "/" y واذا تقصد صافي الفروقات بطرع العطل والاجازات والمحجوزات للفتره المحدد من تاريخ الى تاريخ 📐 بطريقة الي استخدمتها اسهل Cod mine : dim Total_D as string dim Minz_X as long Dim i_Count_X as intger Total_D = Me.Total_day 'dates..(date,"")'(Selected day from calendrer) '============== for i_Count = 0 to me.terbo (ListBox = Day Off ).le... -1 ... next Minz_X = i_Count_X '============ me.N1 = Total_D - Minz_X '================ صحيح ينقصة اضافات قائمة الحجز مع التقرير وعرض الميلادي بالمعكوس اضافة عرض التواريخ الهجريه عند تحديد الشهر لكافة ازرار الايام اضغط على مفتاح الكيبورد [H] واستبدال التواريخ ميلادي [M] وضافة فورم مختصر للتواريخ لحاله والتوقيت لحالة والمقارنة التواريخ لحالها مع المعروض كامل التحكم عن طريق دالة عند حدث الزر فقط اختر الكود '=========(Selected Show calendrer) '==================(Full_Control_Only , calendrer_Only , Time_Only , Date_To_Date) =(4 item = 4 Form ) Full_Control_Only كنت بخليه بتحديث لوقت ثاني استاذ @Foksh❤️ اذا عندك مرفق للاحتساب التواريخ او مرفق للتقويم يمكن التعديل على مرفقي مفتوح المصدر

برنامج مجهز : Calendar V3 Change Calendar Ms.Access مميزات البرنامح 1-اضافة العطل الرسمية 2-اضافة حجز التواريخ Calendar -امكان تخصيص الون -عدم تمكين ازرار التاريخ 3-عرض تقرير لكافة العطل الرسمية 4- تاريخ الميلادي - تاريخ الهجري - تواريخ مع الوقت 5- تخصيص اعداداة للبرنامج 6- امكانية تحديد ايام العمل بفصل ايام العطل بترميز ايام الاسبوع 7-غفل الشهر من اشهر السنه ك اجازة قضات تبدا من شهر 6 الى شهر 8 8-اعداداة التحكم بالتاريخ من السنوات والشهور 9-تفعيل عند تحريك مؤشر الماوس 10 - عرض فروقات التواريخ تبدا من اليوم او من تاريخ الى تاريخ 11-امكانية ادراج التواريخ لاي حقل في فورم الى فورم آخر مفرع الى التفريع منغير استخدام جداول الادارج من Function لو بتكلم عن تجزئة For مجزء فحص 12-التصميم مختلف وتغير الالوان عند اختيار او ضغط على اسهم الكيبورد للتقلب في التقويم واظن ما تعودتوا عليه من قبل 😇 اتمنى لكم تجربة ممتعة ❤️🌹 ============================================================= Update_V3_Sken_Calendr_One_Form.rar

اشكرك استاذي @ابو جودي❤️🌹🌹😘 الله يطولي بعمرك استاذي ❤️ انا جهزة التقويم بطريقة معقدة مع ترصيد الاجازات 1- الرجوع للتاريخ المحدد ...تحديد التواريخ المطلوبة 2- Sken Color ActiveX (For Month Chang LestBox And Not is LestBox 😏 3- قائمة اضافة الرصيد الاجازاة 4- سريع التنفيذ بتمرير 100 5-عدم التمكين الضغط على ايام الاجازة مع تعديلات كنت فتح موضوع جديد تحويل تقويم اكسس مع ترصيد الاجازات 😇 بتحديث كيف احتساب - DateSalari من جدول ينقصة استكمال الوقت بالتخصيص وعتماد جدول عند احتساب اي عمل او اجازة من الى تمة التجربة المرفق استاذي @ابو جودي ❤️ بس استاذ ليش ما تخليها الازرار عدم التمكين بنفس المرفق بالفيديو ❤️😘 Update_3_Sken_Calendr_One_Form.rar

شكرا استاذ @M.Abd Allah ❤️🌹 Update - Fix 😇 من غير استخدام جدول 😏 1-تحكم كامل بأيام الاسبوع والشهول لكل السنوات cod ezy Next Next 2-اضافة الوقت مع التحكم 3-تعديل وجعلة ListBox مو ListBox 😏 4-تعديل الواجهة وتغير ستايل ActiveX من Tab الى Button Add tab v6 to v2 ( Fix Contol ) ----- 😇 استاذ @Foksh ❤️🌹 طلبي صعب اضافة جدول للاجازات الرسمية 😇 Up_Date_Sken_Calendr_One_Form.rar

صحيح صحيح في الجدول اربعة حقول 1- رقم السنة 2-رقم الشهر 3- رقم اليوم 4- اسم العطلة الرسمية كود عند اليوم ============================== باخذ قهوه بصحصح شوي Dim rung as integer Dim Scr as integer تصحيح الكود if me("lebl" & Scr ).caption = me.day then Next Next الكود يعد سجلات الجدول Next ولكل سجل جدول يلف على الايام زر الى زر Next السجل التالي الى الانتهاء

كنت دايخة اشوي😇 اشلون اضيف جدول واستعلام برقم السنة على سبيل المثال 2024 عيدالفطر اربع سجلات = اربع ايام اذا كان اليوم اجازة يخلي الزر عدم التمكين للضغط بدل ما استخدام كود Dim rung as integer For rung = 0 to dcount ("[day]","[Ejazh]") 'Query (Ejazh) if me(lebl).name = me.day then me(lebl).enable =false else true end if بطيئ عند التقلب بالشهور والسنوات ؟! هل يوجد تعديل للكود او كود آخر او طريقة ثانية وشكرا

ممتاز جاري التجربة اشكرك استاذ @Foksh ❤️🌹🌹 اذا تسمح لي باضافة تحويل الاستعلام الى جدول 🥰 Query IF tablet more from 6 8 tablet For Use DOA And DAO

1- انسخ كود الزر لاي فورم نفس طريقة كود استاذي @ابو جودي❤️🌹 تقدر تغير في الكود حدث عند النقر او مزدوج : =IIF([]="",Code,"") الغاء الكود او الى كود آخر لمثال صفاء @safaa salem5❤️ يعمل مع اي فورم وتفريع الفورم داخل الفورم من غير استخدام جداول ينقل النص و التاريخ والرقم التقويم الهجري وميلادي بستخدام رزنامة استاذي @ابو جودي 😇 ((طلب كيف اخصص اجازات الرسمية السنوية لتحكم بايام التقويم بعدم التمكين )) وتجربة Sken_Calendr_One_Form.rar

مثال مبسط عند اعتمادك لمشروعك يمكن تحويل SQL او DOA او DAO 1- تحديد جميع التحاليل من لستة بوكس اما محدد او الكل والعكس 2- اعتماد المحدد او الكل من حقل قائمة الى صندوق النص بسطر جديد وكل حقول في الجدول 3- سهولة عرض التقارير بحقول النص باسم المريض واستخراج PDF 😏 شرح سابق بتحديث السابق للتوضيح فقط اشكر صفاء @safaa salem5 ❤️🌹 على اهداء المرفق تحويل بتحديث # SQL A ADO AOD Updat_ListBox_Selected_Item.rar

العفو يا عمري ❤️ حبيبتي صفاء جربي المرفق نفس طلبج الجدول للفحص والكنترول وهو مؤقت ============================= واذ حاب تالغين الجدول وتبين بس الحاق حقل قائمة غير منظم مع حقل قائمة استعلام me.resullist.selecteditme.value or index = me.liestbox.selecteditme.value or index SQL_Run كأنه بس اشوف قميص استاذي @ابو جودي 😂❤️🌹

شنو اخي وليش؟! بس اشكرك على كلامك الطيب صحيح بس اعجبتني فكرة @Eng_shukri كأنة خلصة ActiveX web ActiveX (X) عندي ملاحظة بخصوص الموضوع كيفية عمل قوائم ديناميكية متحركة :: طريقة مبتكرة بأقل كمية أكواد vba 🙂 لا يمكن تخصيص الازرار =0 اشرايك تستعمل جدول بس فيه اسماء النماذج والتقارير بشرط اذا كان = فورم DlookUp dim Nx as string nx = DlookUp docmd.opneForm nx or if Ctrl.Name = "NameButton" Then end if ====================================== call back_button or with _Click For x = Ctrl.Height To 0 Step -100 انت شايف اشلون الباك بس النزول اوك حاولة تخصص puss or Time لكل زر عند باك = آخر زر اذا كان صفر يكمل الصعود الزر الي بعده ارباك العميل والعب بالاعصاب😂 =============================== استاذ @Moosak❤️🌹 عندي لك اقتراح برنامج الرسائل مذهل ليش ما تسوي نفسة لتقويم برنامج لحاله وادخال المبالغ برنامج لحاله والقوائم لست بوكس برنامج لحاله فورم واحد للبرنامج للتطقيم مع المميزات Skin_For_MsAccess على سبيل المثال اذا كان تقويم فقط ضيف جدول ايام الاجازات الرسمية ادخال يدوي واضافة ايام الاجازة جديده للسنة ============================================= كلامك مشجع خاص من استاذ ماهر متحمسه لمواضيعك الجديده استاذ @Moosak

تنفيذ طلب حبيبتي صفاء @safaa salem5❤️ استاذي ما استخدم الاكواد ولا الدوال في الطريقة الخامسة @ابو جودي ❤️🌹🌹 '========================= Dim TXx As Integer For TXx = 0 To Me.Resultlist.ListCount - 1 Me.Resultlist.SetFocus If TXx = Me.Resultlist.ListIndex Then Me.Resultlist.Selected(lrow:=TXx) = False End If Next MsgBox "الخيار محدد مسبقا في اللسته حبيبتي صفاء", vbExclamation عند الاعتماد لا يمكن الاضافة او التحديد مع القائمة مميز الطريقة شوي😇 كانت العملية بتصور استاذي @ابو جودي حقلين قائمة والمنتصف سهم في الشمال واليمين هذا الي كنت افكر فية وصحيح حبيبتي ضيفي حقل نعم \ لا لكل مريض الحاق مره وحده بعدها تحديث مثل الصلاحيات تقريبا :للتجربة ListBox_Selected_Item.rar

وزاد العلم منكم انا من يشكرك @Eng_shukri❤️🌹 على مبادرة والتقديم وصحيح ان تجعلها في الدالة Function اذا كان بروكرس بكل فورم ======================= كنت افكر في بروقرس (Access) عند نقل وتحريك البيانات والثاني للانترنت في المتفح الويب 1- ادخل الى موقع مكروسوفت وحمل Edg (Access) الخاص للاكسس https://www.microsoft.com/en-us/edge?ep=593&form=MA13QK&es=40 https://www.microsoft.com/ar-sa/edge/download?form=MA13QK كنت بعمل بروقرس كيلو بايت للانترنت @Eng_shukri عندك دالة تقرأ كيلو بايت للانترنت😇 في مواضع الحدث للصفحة الويب

استاذي @ابو جودي ❤️🌹 تقصد عند نقر المزدوج قبل فتح النافذه فحص if isnull(me.text)or me.text = "" then docmd.openform "",,,, else if msgbox (يوجد عناصر مدرجة هل ترغب بالاستمرار او اضافة جديد =حذف .... end if 2- محتاجة كود لتغير حقل القائمة من Lest box متعدد او محدد والعكس 3- بدل الزر خلها تعين مفاتيح الكيبورد لاعتماد itme هي ما سوة شي ما شفت اللسة من غير شي SQL كل ما في الموضوع ترغب بتوضيح بكمل لازم تغير تصميم والاوان والمكنسة السحرية😂 فحص اذا كان 6- if Fieldes =0 if msgbox = add to tablet or Close 7- فحص بعد الاختيار اذا كان يساوي احد العناصر المختارة اظن يفضل جدول يعني راح تفحص الحقل سطر سطر ؟! جدول بسيط بالاول يلحق اذا لم تختر شي يحذف ويغلق النافذه اذا اخترات يفحص الجدول والمحددين بقائمة الحقل المتعدد اذا لا يساوي ادراج وحذف الجدول او رسالة = تعديل او اغلاق end if استاذي @ابو جودي خذلك قهوة ❤️🌹🌹 بجرب طريقة 5

شكرا @Eng_shukri 🌹 انا اعجبني مرفقك ❤️ !كنت بحاجة لبروقرس فيجوال مع نافة حول برنامج متحركة كملة وعدلة وصلحة 😇 واتمنى ان ينال اعجابكم New Slide porgres bar.rar

حبيبتي صفاء ❤️🌹🌹 بعد اذن استاذي @ابو جودي اظن احتمال اصبة هالمره 😇 من اي فورم لو كان من مفرع لتفريع الفورم او فور جديد من فورم واحد فقط List Box يوجد شرح بسيط داخل المرفق على طريقة استاذ @Moosak بموضوع MyMsgbox 😇 بس اضافة فورم مخفي docmd.openform,,,,,,hide 😇 من او ما يشتغل البرنامج بسبب الاستعلام يبحث عت الحقل البحث Like "*" ويكون خالص هل هو طلب حبيبتي صفاء @safaa salem5❤️ Moosak List_Box Menu Anyway.rar

اشرايك تغير حركة صندوق الحوار مع التنسيق الى حركة تحريك مؤشر النص نفس الذكاء الاصطناعي Form 1 Fomr 2 Action = Len (Text) For 1 To Action IF Len (Text) = 20 then او نهاية عدد الحروف او نهاية السطر انتقل الى سطر جديد Next لتنفيذ حركة الذكاء الاصطناعي والاسهل اذا كان سجلات كود تحويل النص الى ارقام وغير تنسيق الحقل الى رقم وليس كلمة مرور "*" غير نص الى أخضر ونص لون اسود مر عليك تلوين الاحرف بالكلمة والخلفية سوداء بس ياخذ من Len(text) +1 ============================ ,والاسهل استبدال الرقام ب "_" فقط تمرير حركة المشر النص تستخدم Integer تركيز للاحرف بس في متشابه الاحرف دور على حل =================================== $ اذا نجحت تحتاج الى اعلان ومجاني للتعريف وعرض لشركات والعملاء وفائدة ضم الذكاء الاصطناعي بالمشروعات وتطويره (تسويق)مع مشاريعك كخدمات واضافة $ جعل الجواب امر تنفيذ لعملية واجابات للعملاء والخدمات ذكاء مخصص للعملاء الشركة والتسويق افضل من غير واجهة برنامج اكسس تطلب من ذكاء الاصطناعي تحليل التقارير 😂 تضخم المشروع ولكن الرد سكرتير اذا طلب كلمة المرور او اوامر فتح القاعدة😂

طريقة مميزه استاذ @Moosak ❤️🌹 جاري التجربة ======================================= ولكن خلاف طلب صفاء على سبيل المثال صرف دواء قاعدة بيانات متصلة لها اكثر من جدول 1- الكميات 2- التسعير 3-الدواء (مواد طبية) 4- تشعيب الادوية ===================== نفترض عمل الفورم الازامي $ من جدول المريض وجدول فرعي الادوية عند فتح فورم المريض ادخل الرقم القومي او المدني تظهر بيانات المرض في الاسفل صرف حقل فارغ حدث عند النقر المزدوج نافذه المطلوبة والمطلوب من طالب السؤال ============================= تكون متصل بقاعدة البيانات للادوية والكميات وانواعها جم جدول يكون الفاكشن Function الدالة بفحص حقول الجدول اما Dcount او شبيه الدالة عرض الكمية المتوفره فقط وحقل بحث وفلتر عند بحث يفحص ثم يحلل اذا كان حقل نعم لا يسمح للصرف بتطابق حقل فروم مخزن قبل الاتصال Dim User As Blooon 😇 عند الضغط ترحيل الى حقل غير منضم او الحفظ بدالة او جدول الغاء الاتصال والاتصال بقاعدة المرضى عند الانتهاء من الصرف واختيار كافة الادوية المطلوبة =0 الكمية غير متوفر او الدواء غير متوفر ================================================== المطلوب قاعدة بيانات (3) 1- للادوية BE 2- للمرضى BE 3-قاعدة البرنامج ممكن تسميها FE ========================================== كما موضح في الفورم صفاء حقل واحد يكفي وفورم بحث الدواء ودالة الفحص والتوزيع للجداول للحقول الى قاعدة المرضى ============================ ActiveX ListBox Form v2 And V6 ( وبعض يقول فواصل النظام اظن لشي ثاني 😇)ايسط يفضل التصميم على فورم سجل من غير فواصل (غير مسطر) يعني الحقول لون ابيض والحدود شفافة والخلفية لون ابيض وفورم يضم الفورم لبعض الهندسة 😇 ============================== يمكن فهمي غلط واظن لاختصار الطلب واسفة يا صفاء اذا كان فهمي غلط @safaa salem5😘😘🌹