hanan_ms

تنفيذ طلب حبيبتي صفاء @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

Me.Page Me.PageFooter Me.PageFooterSection Me.PageHeader ! Me.Pages فأكملة على الفكر @ابو البشربستخراج فهرس للكل صفحة وترتيب الصفحات 😇 (تجربه) بس بعدين تعدل Close Function Pusse And Add TimerTr ... Control = "-" whit Completed صمم تقرير للفهرسة مع استعلام 2024.rar

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

انا من يشكرك استاذ @Foksh ❤️🌹 عمل رائع VBA ❤️ مو كل فكر تطبق مثل ادائك بالكود غلطة بعرض المشكلة والحل بسيط بقالي طلب مساعدة dim --- as (Va) عدلة بتحديث مع اضافات 😇 شرح بصور ======================== Mouse And Move And Drops.part01.rar Mouse And Move And Drops.part02.rar Mouse And Move And Drops.part03.rar Mouse And Move And Drops.part04.rar Mouse And Move And Drops.part05.rar Mouse And Move And Drops.part06.rar

بعد الاضافة الرائعة من استاذ @Foksh❤️ هل يجب اضافة جدول خاص للاستعاده الوضع السابق بعد التحريك او الاحسن تخليها قيم داخل الكود برنامج للتحكم بتحريك الازرار وتخصيص بالمواس وتخصيص تغير نمط الفورم باللون بس في مشكلة في فورم الاغلاق عند الفتح (نفس الفورم)على كل فورم غيرة بينة التصميم 😇 للفورم موضح بالفيديو ؟! هل يوجد حل ❤️🌹 كيف حفظ القيمة داخل الدالة ورجوع لها (تاخذ القيمة متغيره من الفورم وتحفظ في Function ?! "=============================(طريقة اضافة رمز Mouse ) for .Cur And .ani = (Animation ) 1-ببرنامج تحويل الصور حول من امتداد (.Cur) To (.Png) 2-نسخ الى نفس الملف (والملف واحد) الكل نفس التسمية (.Cur) And (.Png) And (.ani) اتمنى لكم تجربة ممتعة Move And Drops.part01.rar Move And Drops.part02.rar Move And Drops.part03.rar Move And Drops.part04.rar Move And Drops.part05.rar Move And Drops.part06.rar

32bit (X!) للمساعدة اظن انك كنت فاتح نفس الموضوع وغلق ❤️ ليش صورة شيك بنك برقان داخل الملف الطريقة خلي حدث عند الضغط المزدوج تساوي الحقل وفي اربع ازرة صورة PNG فارغة (شفاف) + كود تحصل موقع منتدى المبرمجين العرب لتغير شكل الماوس وخله شكل مؤشر الماوس يمسك اي جهه تحرك الماوس يتحرك العنصر معاك =0 وعند الضغط مزدوج يلغي التحريك ويغير شكل الماوس الى الطبيعي Bit 64 و Bit 32! X NO $ ================================ (مثال للتطبيق والتجربة) صوره من التحديث لبرنامج آخر بس بيرفعة بموقع ثاني واعتذرة لشخص على Hotmail بالتوفيق moveButton_IN_Form.rar

طورة اداة للاتصال بدل من اضافتها داخل القاعده تطوير مكتبة العامرة @Moosak 😇 شوطة الشاشة 😂 تنادي استاذي @ابو جودي ❤️🌹🌹 1-من برنامج اكسس مستقل جنب اكسس فقط تحريك النافذه اقصى اليمين او شمال وتنور معاك 😇 2- اختر اتصال من اي برنامج اكسس غير مقفول بكلمة مرور في مشكلة لا تظهر عناصر النموذج او الجدول ؟ ========================= سهل فك كلمة المرور من كود الاتصال len(Number)+1 = 0 to 9 lin(Number)+1+1 then link Open db تم تغير كلمة المرور بس اذا سوية ضغط واصلاح يرجع على اول كلمة مرور ؟ ======================= اكمل التحديث 😇 ما اتوقع في احد ايبها نسيت جم شغلة 😇 Contect_db_Cod_NavPaneHelper_v2.41.rar