hanan_ms

كنت دايخة اشوي😇 اشلون اضيف جدول واستعلام برقم السنة على سبيل المثال 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😘😘🌹

تحكم الكامل بالرسم 1-سمك الخط 2-شفافية الخط 3-تحديد الخطود مع التحريك 4- تغير لون الخط ========================= مع تعديل عند تحريك المؤشر الماوس الى المكان المطلوب للرسم اضغط من مفاتيح الكيبورد [ F2 ] ثم ضغط كليك بزر الماوس فقط وعند تكرار اضغط مرتين على مفتاح F1 ثم ضغط كليك بزر الماوس فقط لرأي الاستاذ @Foksh 😇❤️🌹 ============================= 5-توفير شرح بيط داخل البرنامج مع طريقة تحجيم مربع الرسم ============================= اذا اردة ورغب بتعديل لان نسيت اضيف بالكود عند النقر _Click =1 وشرح المميزات برنامج تجريبي من غير مكتبة بالمرفقات اذا كامل ادخل للموضوع السابق يوجد رابط مباشر Media fire عند التحميل فقط نسخ المجلدات (الملفات) ثم اللصق بالجديد Up_Date_ActivX_Full_Control_INK.part01.rar Up_Date_ActivX_Full_Control_INK.part02.rar Up_Date_ActivX_Full_Control_INK.part03.rar Up_Date_ActivX_Full_Control_INK.part04.rar

حبيبتي صفاء ادور معاج ❤️🌹 اشلون نسختدم مثل هذا الكود في ListBox Dim db As DAO.Database Dim tbl As DAO.TableDef Dim i As Integer Dim tbname As String tbname = 'Name Or DlookUP lstSelectableFields.RowSource = "" Set db = CurrentDb Set tbl = db.TableDefs(tbname ) For i = 0 To tbl.Fields.Count - 1 If lstSelectableFields.RowSource <> "" Then lstSelectableFields.RowSource = lstSelectableFields.RowSource & ";" lstSelectableFields.RowSource = lstSelectableFields.RowSource & tbl.Fields(i).Name Next i

تصفح مواضيع الاستاذ @أبو إبراهيم الغامدي سحب البيانات من الموقع الى جدول الاكسس وفي طريقة آلية قديمة ملف اكسل استضافة مع كود عند تغير الرابط تحديث لينك للاكسل (فقط ربط) داخل اكسس الحاق جدول لينك الى جدول الاكسس مع فورم لتحديث الرابط من جدول الاكسس الى ملف اكسل برابط لنك وتحديث تلقائي من نفس ملف اكسل بالكود افضل من تفكيك صفحة الموقع للوصول الى نص لكل نص في الموقع مع دعم دائم لكل تحديث في الموقع الافضل بحث عن آلية حديثة 😇

عند التحميل نسخ فقط الفولدرات الى المرفق 4 اجزارء ضغط Rar التحديث بالمرفقات @Foksh استاذ ❤️🌹

شكلة الواحد ما يتهنى بتحديث باجر 😂 تبسيط العمل بتحديث للشرح باجزاء ❤️🌹 ما تقدر تبلع الكتاب بيوم واحد 😇 ================================= مميزات التحديث تحكم بتحجيم النافذ بالازرار اما حجم نافذه او حجم كامل الشاشة مع البار او حجم الكامل لكل الشاشة-1 2-تحكم بالتقرير وبحجم التقرير وتخصيص طريقة الاستخدام سهلة شرح بالصور مع فيديو توفير شرح داخل البرنامج للتجربة بعض الشرح : التقرير ثابت مع القائمة Update_Control_Form_Report_Activitx_InkPicture Control_TabStrip_.part2.part01.rar Update_Control_Form_Report_Activitx_InkPicture Control_TabStrip_.part2.part02.rar Update_Control_Form_Report_Activitx_InkPicture Control_TabStrip_.part2.part03.rar Update_Control_Form_Report_Activitx_InkPicture Control_TabStrip_.part2.part04.rar

انا لم اجرب بعد 2 اقترح اضافة صندوق نص و كود استبدال نجمة "*" بسطر جديد يسحب النص الى نص بسطر جديد للتنسيق

حدثة لكم التجربة 😇 1- عرض واجهة بالنافذة اعتقد مميزة مع القائمة LOGO .avi 2- حفظ الرسم مع عرض التقرير تجربة 😇❤️🌹 من غير مكتبة جزئين Rar Update_Activitx_InkPicture Control_TabStrip_Control_Form.part1.rar Update_Activitx_InkPicture Control_TabStrip_Control_Form.part2.rar ومكتبة كاملة كما في الفيديو رابط ميديا فير مباشر ❤️🌹🌹 https://www.mediafire.com/file/w9ajh8qdh1e1czy/Full_Update_Activitx_InkPicture+Control_TabStrip_Control_Form.rar/file

شكرا استاذ @Foksh ❤️🌹 اتمنى اتكون التجربة مرضية 😇 Set Margin IF Color Rung Pen ="" Then Close else = ( Color RGB = True ) .MarginY .MarginX End IF حرك المؤشر الماوس للمكان المطلوب للرسم اختصار لوحة المفاتيح F2 فالون الزهري 😇 نقطة و F2 للرسم اذا كان عندك كود مناسب قدمه وانت استاذ خبير ❤️ @Foksh

برنامج بسيط للتجربة 1- تحكم كامل بالفورم من تحريك النافذه وتغير الحجم عند تحريك مؤشر المواس لحواف النافذه 2-عرض القوائم مع سلاسه عند الضغط واضافة المظلم كتجربة 😇 3- رسم على المخططات كانت للهندسة المدنية او للمركبات عند التحديد وضغط على ID الضغط مره وحده للصوره حرك الماوس الى المكان الرسم ثم اضغط من مفتاح الكيبورد F2 و اضغط كليك نقر الماوس ثم اضغط من مفتاح الكيبورد F2 =================================== الموضوع تجربة وتطبيق التجربة لموضوع سابق ActiveX 😇❤️ =================================== Activitx_InkPicture Control_TabStrip_Control_Form.part1.rar Activitx_InkPicture Control_TabStrip_Control_Form.part2.rar

u Need Add Table Name.(IFF) Switch : شرط واحد متنوع IFF : شروط متنوعة تستخدم في الاستعلام تستخدم في الدوال تسخدم في النماذج والحقول ================ dim rung as integer for rung = 1 To Total Dlookup (IFF) Next ===================== Dlookup (IFF) Loop ====================== Dlookup (IFF) Qury With Function (Change And Add . IFF) ====================== يوجد حد لعدد الشروط IFF بالواحد ( _ ) لسطر الجديد IFF(DlookuP("[@ابو جودي]","[Love_Live]")=-1, _ "كامل الاجماليات" _ Form_Function.Suport = -1" _ IFF(DCount("[ @Moosak]","[Developer]")=10,000.000 , _ DlookUP("[Soft]","[ActivX]" , "[Toolbar] = 'Drag_Button' ") =-1 , _ DlookUP("[Soft]","[ActivX]" , "[ @Foksh] = 'Drag_Button' ") =-1 , _ ) ================================= هل يوجد دالة تحفظ قيمة متغير في Function _ Module للاستعمال تغيرات حتى ب IFF _ Switch () او حتى Module.Function = DOA = set(tablet0) Any Open Form.Name Or Report.name _ Check : Dlookup One tablet1 IF _ Sand : Add(tablet2) Or Change(tablet0) All Time (Open Function) Thank U شكرا 😇

ActiviX Ms.Access TabStrip (work) with menu And toolbar 1- ثلاث قوائم بتغير الاحجام والاوان 3D 😇❤️🌹 2-استبدال جميع عناصر بنفس التصميم من من toolbar الى TabStrip بتحديث بالغاء Toolbar : تحتاج الى مكتبة جذر .nods .Button _Click() if me.toolbar.buttons(1).caption = "m" then me.text =me.toolbar.buttons(1).caption end if يسحب الازارا كلها وبالاخير مالوش فيدا 😇 Activitx_TabStrip_Manu_3D_Color.rar

TabStrip (work) Toolbar (No_work) 😇 شغالة القوائم يتضمن شرح بسيط سؤال هو toolbar هو يعمل على الازرار غير عن التاب فما يمسك زر key 1 stop or end Key U Need Cod VBA Object for toolbar 😇 ❤️ ============================== Activitx_TabStrip_Toolbar.rar