hanan_ms

حبيبتي صفاء اشتقنا لج والله 😘🌹❤️ جربي طرفتين =============(1) Next ======(2) DOA انا شيرة بدالة استاذي @ابو جودي 🌹❤️ 😘😘😘 قسمي DlookUp // IF او استخدمي DOA Reference =للفحص ثم جلب قيمة ================= dim Gender as string dim Ageunit as string dim tcode as string dim age as string dim age_to string ====================== dim rung as integer dim wht as long wht =0 Gender = DLookup("Reference", "normals_tbl", "Gender = '" & gender & "' ) Ageunit = DLookup("Reference", "normals_tbl", "Ageunit = '" & ageUnit & " ) tcode = DLookup("Reference", "normals_tbl", "tcode = 144 ") age = DLookup("Reference", "normals_tbl", age & " >= [from] " ) age_to = DLookup("Reference", "normals_tbl",age & " <= [to]" ) for rung = 1 to1 if Gender = "X1" then wht = wht +1 end if if Ageunit = "X"2 then wht = wht +1 end if if tcode = "X3" then wht = wht +1 end if if age = "X4" then wht = wht +1 end if if age_to = "X5" then wht = wht +1 end if next if wht =5 then me.textbox1 = Gender me.textbox2 = Ageunit me.textbox3 = tcode me.textbox4 = age me.textbox5 = age_to msgbox " Chack after run " Gender & Ageunit & tcode & age & age_to wht =0 else msgbox " Close order " wht =0 end if ================ Dim db As DAO.Database Dim td As DAO.TableDef Dim fld As DAO.Field Set td = db.TableDefs(normals_tbl) For Each fld In td.Fields if td.Fields =[Gender] = "gender" and [Ageunit] = '" ageUnit"' and [tcode] = 144 and [age] >= [from] then me.box = ![Reference] end if Set db = Nothing

استاذي هذه للاجهزه التعبانة من 32bit (X) ================ 64bit بالتنجبر باعلى تصاميم على صعيد الشركات والمؤسسات ذات بنية قاعدة بيانات جغرافية ومعمارية SDD Up Bost ,,,,, Flash "red" شبكات وخطوط ارضية باعلى المواصفات وصيانة الدورية فتعطي مقومات اعلى بتصميم البرامج من جرب 128 bit ... PC 😏 ======== استاذي اكيد تتكلم على البعض الي عندهم 😇 لابتوب قديم جيل حطب و32 😗 32bit ما تعرف تصمم برنامج الا تخلي اكسس بتصميم 2003 وبعد تقلل الاستعلامات مع كافة ادوات التصليح 😂 زين اشتغل الاوفيس😂 ولا واحد حاشي مكتبات وبرامج وتشعيبات SPY - Virus Full Disk 😂 ========================== اتفق مع الاستاذي @ابو جودي تصميم السادة للتجربة وانتهاء المشروع واعتماد ثم تصاميم الهيكل copy ---- past full control and full skin ==(look time finish ) with test 😇 level up with skin

ايه الكلام الحلو ❤️☕🌹 😘😘😘 اتصبح وامسي فيه ومنتظر دالة من احلا استاذ @ابو جودي يمين اكلك للمؤشر عام للفورم والتقرير وخاصة معاينة التقرير شكرا على ذوقك بس مطلب لكل عميل لمس لطابع الشركة وللواجهة المشروع تقدر تضيف انزال قيم الحقول لسابع فورم تفريع تكون قائمة متغيره واضافة 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