hanan_ms

تحكم الكامل بالرسم 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

@فريدالطحانشكرا على المرفق تعديل مرفق😇 1- اضافة اكشن عند الفتح 2- عدم تمكين اضافة احرف العربية عند ادخال كلمة المرور او السر مع التجديد Ferry Login v1free.rar

تعديل مرفق استاذ @Foksh 😇 1- ان شاء كود لكافة عناصر الفورم فقط اختيار النموذج 2- يفتح حدث الفورم فقط لصق ctrl +V ملاحظة فقط اضافة حدث عند الفتح حتى لو كان فارغ admin.rar

كنت مسافره وانشغلة 😇 تحديث خفيف وتنشيط 1- اضافات بسيطة تحكم بالتيوب 2- تحكم بكافة الفورم بمفاتيح الكيبورد 3- وابسط تحكم بإظهار واخفاء اطار الاكسس اذا كان اختفاء كلي تظهر رسائل اخطاء وعدم استجابة في بعض الاكواد بعدها تحديث الطقس شمالي غربي الرياح نشطة 😂 SQL2VBA (Control_key).rar

( MultiPageh اداة ) وستخدامه كأنك تبرمج على الفيجوال والاكسل 😇 اضافة مرفق C4D فقط غير صورة المجسم واستخرج صور PNG وضفة لكم شرح مختصر داخل المرفق ============================== اداة Activity ToggleButton View 3D IMG 3D Form C4d Animation Close acForm , Me.Form Classic Form طريق استخدام بسيطة فقط غير صورة المجسم ببرنامج Cinema 4D نسية عرض 😇 View 3D imag 3D Form C4d Access.zip

تم فصل هذه المشاركات الى موضوع منفصل ، حتى يتمكن صاحب الموضوع من مواصلة شرحه لعمله ، وارفاق النسخ الاحدث جعفر - فريق العمل ----------------------------------- اداة Activity ToggleButton View 3D IMG 3D Form C4d Animation Close acForm , Me.Form Classic Form مع شرح مختصر بداخل luncher_Form.rar

@Zooro1 بوضح لك شغله .Fields() الصف او السجل غير مطلوب جدول الفولدر -1 جدول الصور 2- جدول اليوم حسب التواريخ -3 جلبهم من سجل (واحد) صفين مختلفين بصفوف بجدولين للعرض وكان المفترض وقت الساعة منظم فستبدلة ب Sleep للسهولة والاختصار ============================== اما للشبكة انترنت في عدة طرق سهلة من غير تكاليف او اشتراك جرب تضبط 3 1- تنصيب قوقل ادرايف للاجهزة الخمسة للاتصال بالقاعدة والفصل وعند الاغلاق اتصال وفصل يعمل بالانترنت بمسار ملف 2- اسهل يوجد نموذج من اكسس للويب اجعلة (تسجيل الدخول) او تحديث لسجل واحد لكل جهاز 3- اسهل واسهل اشبك الكمبيوترات شبك محلية لجهاز واحد عن طريق برنامج ريموت ديسكتوب من قوقل او من سبلاش والاتصال من اي تلفون او كمبيوتر تشوف من الي شبك باللحظة😂وكافة الرعود حسب كفائة الاتصال ومعمارية الجهاز كون هذاك السحاب وعرض تقارير حسب طلبك

دالة الترقيم من استاذي @ابو جودي ❤️🌹🌹 ( تجرب بشاشة الرئيسية تغير صورة النموذج ( الخلفية طلب @Zooro1 1-اضافة جدول جديد على سبيل المثال اسم :nn 2-اضافة حقل : ID نوع ترقيم تلقائي بشرط لا يكون مفتاح رئيسي 3-❤️🌹من خلال دالة اعادة الترقيم بالتواريخ من الى للعرض الصور خلفية دالة ابو جودي 4-طريقة الاستدعاء حدث عند التحميل والفتح 5-تغير الزمني للصور من دالة Sleep على سبيل المثال :Sleep 500 خمس ثواني Form Zooro1 Option Compare Database Option Explicit #If VBA7 Then Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) #Else Private Declare Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) #End If Public Function movie_wallpaper() Dim day_w As String Dim Month_w As String Dim yaers_w As String '=========================(Aouto Change Photo ) Dim Aouto_photo As Integer Dim photoPath As String 'Dim name_folder As String '=============================================(ÇÐÇ ßÇäÊ ÇáÊÍÏíÏ íæãí Çæ ÔåÑí Çæ Óäæí 'day_w = Format(DLookup("[str_date]", "[nn]", "[str_date] <'deta()'")(), "dd") 'day_w = Format(DLookup("[str_date]", "[nn]", "[str_date] <'deta()'")(), "mm") 'yaers_w = Format(DLookup("[str_date]", "[nn]", "[str_date] <'deta()'")(), "yyyy") '=============================================(snad form start day ) 'DoCmd.SetWarnings False 'DoCmd.OpenQuery "Chack_date_Foe_wallpaper", acViewNormal, acEdit 'DoCmd.SetWarnings True 'Mohammed_Essam_AutoNumFix3 '===============================( IF form one tablet star) 'If DCount("[str_date]", "[IMG_X]", "[str_date] <'deta()'") = 0 Then 'For Aouto_photo = 1 To DCount("[str_date]", "[IMG_X]", "[str_date] <'deta()'") 'photoPath = DLookup("[str_date]", "[Chack_date_Foe_wallpaper]", "[end_date] <'deta()' And [IDX] =" & Aouto_photo & " ") If DCount("[ID]", "[nn]") = 0 Then Else For Aouto_photo = 1 To DCount("[ID]", "[nn]") Dim name_folderA As String name_folderA = DLookup("[IDD]", "[nn]", "[ID] =" & Aouto_photo & "") photoPath = DLookup("[path_PC]", "[PC_path]") & "\" & DLookup("[IMG_Pacge]", "[lablory_IMG]", "[ID] =" & name_folderA & "") & "\" & DLookup("[path_X]", "[nn]", "[ID] =" & Aouto_photo & "") Form_Zooro1.Picture = photoPath Sleep 500 Next End If End Function 3D_IMG_BooK_V1 Time_Wallpaper.rar