hanan_ms

استاذ @TAMER AGOOR 🌹☕ تغير نص بتجاه من الاعلى الى الاسفل مع امكانية التنسيق Me.Exe.Action = acOLEActivate هل هو طلبك

استاذ @TAMER AGOOR❤️🌹 اذا كان المتغير لكل تقرير انتظر ثانية اما اذا كان التغير مره واحده فتح التقرير مباشر النص من اعلى الى اسفل ================================= بس مو مقتنعه محتاج دالة او كود تصور نموذج بوضع النموذج مخفي Change_Text_Up_To_Dawon_V1.rar

=============================================( صور + مرفق + فيديو ) Update: 🌹 1- اضافة تغير الاتجاه مع اتجاه الارتساء افقي وعامودي ببساطة '**************( HorizontalAnchor ) ********* ( ارتساء افقي ) '( acHorizontalAnchorLeft 0 )=========( 0 يسار '( acHorizontalAnchorRight 1 )=========( 1 يمين '( acHorizontalAnchorBoth 2 )=========( 2 كليهما '**************( VerticalAnchor ) ********* ( ارتساء عاموديí) '( acVerticalAnchorTop 0 )=========( 0 اعلى '( acVerticalAnchorBottom 1 )=========( 1 اسفل '( acVerticalAnchorBoth 2 )=========( 2 كليهما Forms(frm).Controls(Button).HorizontalAnchor = 1 Forms(frm).Controls(Button).VerticalAnchor = 2 2- اضافة قائمة التبديل من القائمة الرئيسية مع تثبيت كل النماذج والتقارير بالتوجيه مع الارتساء 3- اضافة كتاب طريقة الاستخدام - اشلون تثبت التنسيقات من نوع الخط وحجم الخط لكافة النماذج والتقارير -اشلون تسخدم تغير توجيه النموذج مع الارتساء بنموذج واحد فيه الدوال والاكواد وينفعك عند تغير اللغة او عمل آخر تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق ☕ =============================================( مرفق + فيديو ) تحميل المرفق https://www.mediafire.com/file/0ayif5vc4arcoi3/Update_V1_2+Tools_Run_All_Forms_Reports_With_Change_MS_Access.rar/file

دولفي = الباثيون Open Source K انت محتاج تأمين على البيانات صحيح و البرمجة الاخرى مثل الفيجوال EXE يعتبرغير مشروع لاحتمال الشبة كتابتك للكود بسطر عقابي او سطر انتقامي للعملاء تسجن بالعقد لا تلغم مشروع العميل يكفي موجب العقد فية اشتراطات وتأمين وجزاء ( بوفاء تسليم كما ينبغي ) ========================== ك فكره يمكن التعامل مع EXE تصميم برنامجين 1- تثبيت البرنامج 2- تشغيل ملف القاعدة - اكواد التحقق انت بنشوف بدل لنك اختصار مباشر اكسس بتشوف اختصار فيجوال ثم يفتح القاعده شرح اليوزر للويندوز كيف تخفي الهارد ديسك وتغلق الصلاحيات الوندوز لليوز الفرعي للويندوز مع تشغيل الملفات والهارد مخفي من الويندوز كان F D A (BE) اختصار والافضل وحدات تخزين او سيرفرات محلية - اذا كان وحدات تخزين حديثة فيها من الجهاز تشفير عالي ونسخ احتياطية تلقائية اقوى بمراحل من جهاز الكمبيوتر غير توفير الانترنت كسحابة سريعة استاذ @gavan❤️🌹 اتمنى لك التوفيق ولا تنسى راح ترجع "Web" له طريج واعتذر يمكن اكون غلطانه

=============================================( صور + مرفق + فيديو ) Update: 🌹 بعد اذن استاذ @Moosak ❤️🌹☕ 1- تغير اتجاه العناصر تلقائي بعد التحديث - اداة بسيطة مع جدول فقط - عرض النموذج بوضع التصميم مخفي ثم العرض تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق ☕ =============================================( مرفق + فيديو ) 2- تصحيح الكود بجلب انواع العناصر مع اسم العنصر - Controls( Button ).Name '============================ ( acBoundObjectFrame Bound object frame '*( acCheckBox Check box )* '*( acComboBox Combo box )* If Forms(frm).Controls(Button).ControlType = acBoundObjectFrame Then Me.Type = "acBoundObjectFrame" End If If Forms(frm).Controls(Button).ControlType = acCheckBox Then Me.Type = "acCheckBox" End If If Forms(frm).Controls(Button).ControlType = acCommandButton Then Me.Type = "acCommandButton" End If If Forms(frm).Controls(Button).ControlType = acImage Then Me.Type = "acImage" End If If Forms(frm).Controls(Button).ControlType = acLine Then Me.Type = "acLine" End If If Forms(frm).Controls(Button).ControlType = acObjectFrame Then Me.Type = "acObjectFrame" End If If Forms(frm).Controls(Button).ControlType = acOptionGroup Then Me.Type = "acOptionGroup" End If If Forms(frm).Controls(Button).ControlType = acPage Then Me.Type = "acPage" End If If Forms(frm).Controls(Button).ControlType = acPageBreak Then Me.Type = "acPageBreak" End If If Forms(frm).Controls(Button).ControlType = acRectangle Then Me.Type = "acRectangle" End If If Forms(frm).Controls(Button).ControlType = acSubform Then Me.Type = "acSubform" End If If Forms(frm).Controls(Button).ControlType = acTabCtl Then Me.Type = "acTabCtl" End If If Forms(frm).Controls(Button).ControlType = acToggleButton Then Me.Type = "acToggleButton" End If If Forms(frm).Controls(Button).ControlType = acComboBox Then Me.Type = "acComboBox" End If If Forms(frm).Controls(Button).ControlType = acCommandButton Then Me.Type = "acCommandButton" End If If Forms(frm).Controls(Button).ControlType = acLabel Then Me.Type = "acLabel" End If If Forms(frm).Controls(Button).ControlType = acListBox Then Me.Type = "acListBox" End If If Forms(frm).Controls(Button).ControlType = acOptionButton Then Me.Type = "acOptionButton" End If If Forms(frm).Controls(Button).ControlType = acTextBox Then Me.Type = "acTextBox" End If تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق ☕ =============================================( مرفق + فيديو ) Update Tools_Run_All_Forms_Reports_With_Change_V1_MS_Access.rar

بعد اذن الاستاذ @moamen salem ❤️🌹☕ #ابداع حل اكبر مشكلة ممكن تواجهك عند نقل البرنامج للعميل... تغيير نوع الخط في جميع الكائنات #مرفق وبعد اذن الاستاذ @Moosak❤️🌹 تعديل على الكود بتغير كافة النماذج و التقارير باسلوب لطيف وكامل مع الكود 😇 وتغير لكل عنصر خطه وحجمه ويمكنك الزيادة من غير اغلاق الكل وتفجير 😂 2- ترجمة العناصر وتغير اللغة ولكن لم اكمل تثبيت اللغة لانة المفترض انشاء قاعدة صفرية تلقائي وتحفظ الترجمة فقط غير الارتباط ☕ ==========================( بتحديث ) نغير توجية العناصر من اليمين الى اليسار - تشغيل بوضع عرض التصميم مع الاخفاء - انتهاء ثم عرض النموذج او التقرير تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق ☕ =============================================( مرفق + فيديو ) Tools_Run_All_Forms_Reports_With_Change_V1_MS_Access.rar

=============================================( صور + مرفق + فيديو ) Update: 🌹 بعد اذن استاذي @ابو جودي ❤️🌹🌹 اشرايك من نفس كود الرسالة هي صناديق ادخال بأنواعها مع التقويم وارقام الهاتف والمبالغ 😇 بعد اذن استاذ @Moosak ❤️🌹 عدلة شي بسيط بداله 😇 اضافة انواع جديده للرسالة وصلة 14 msg_Original = 0 msg_Information = 1 msg_Critical = 2 msg_Exclamation = 3 msg_Question = 4 msg_Idea = 5 msg_OK = 6 msg_Alarm_bell = 7 msg_InputMask_Date = 8 msg_InputMask_Time = 9 msg_InputMask_Number = 10 msg_InputMask_Text = 11 msg_InputMask_Mony = 12 msg_Pick_Date = 13 msg_InputMask_password = 14 1- استخدام الرسالة بالارقام عند دخول قائمة تسجيل ارقام الرسائل - تفيد كمرجع للتعديل وتغير الغات فقط غير ارتباط الجدول - كود عند عدم وجود الرقم الرسالة - ملاحظة يكتب الكود بنوعين اما 1 بداخل الكود مثل كتابة كود الرسالة اكسس والنوع الثاني 2 يكتب رقم مرجع الرسالة - كود فقط غير النوع الرسالة واختر ما يناسبك موضح بصوره ادناه - وكود الخطأ بتحديث يتغير باسم دالة واحده لكل زر او حدث للنماذج والتقارير 2- تجربة كل الانواع نابع الفيديو 3- تعديل واجهة الاعداداة ================================== تحديث 1- نسيت اكتب كود فتح حجز ايام وترصيد الاجازات موجود 3- ضبط حد للتحجيم لا يمكن تقليل الحجم النافذة اقل من حجم الاصلي بالارتفاع والعرض 4- اصلاح بعض والتحسين 5 6 ........ تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق ☕ =============================================( مرفق + فيديو ) تحميل المرفق https://www.mediafire.com/file/o90b64wdsnv7al2/Vx+Msgbox+With+Into+Msgbox+Full+Control+IN+Msgbox+One+On+Ms_Access.rar/file

=============================================( صور + مرفق + فيديو ) Update: 🌹 بعد اذن استاذي @ابو جودي ❤️🌹🌹 استعمل جدول الرسائل مع ادوات الميديا من مرفقك 😇 بعد اذن استاذ @Moosak ❤️🌹 عدلة شي بسيط بداله 😇 1- اضافة قائمة لادارج الرسائل فقط عدل على هذا كود بكتابة رقم فقط Dim NMSG_1 As String NMSG_1 = "101" MyMsgBox (NMSG_1), (NMSG_1), (NMSG_1), msg_Information, Btn_OK_Only, Arabic_Center - رقم مسلسل من عند الاضافة رسالة جديدة - تعديل على الرسالة بتصحيح والحذف! - نسيت اضيف رقم الرسالة بصندوق الرسالة عند الفتح كمرجع مع ادارة التحكم او مع العميل 2- اضافة قائمة الاخطاء وتغير كود والدالة عند الخطأ من الرقم الى جهاز و المستخدم ..الخ Dim GiveMeError As Recordset On Error GoTo GiveMe Me.Error = "/" Exit Sub GiveMe: ' MsgBox "Error Number : " & Err.Number & vbNewLine & "Error Description : " & Err.Description Dim strMsg As String: strMsg = "Error Description : " & vbCrLf & Err.Description Dim Title As String: Title = "Error Massage !" Dim SubTitle As String: SubTitle = "Error Number: " & Err.Number Dim Number_MX_Error As String '============( XLong '========================( Sand Error To Tablet Set GiveMeError = CurrentDb.OpenRecordset("Error_All_MSGBOX") GiveMeError.AddNew GiveMeError![Err_Number] = Err.Number GiveMeError![Error_Description] = Err.Description GiveMeError![User] = "Not Now _CommingSoon " GiveMeError![PC] = Environ("username") GiveMeError![Today] = Date GiveMeError![ToTime] = Time() GiveMeError![Name_Form] = Me.Form.name GiveMeError![Click_Button] = "GiveMe_Click()" & " -Name_Button: " & "تفعيل رسالة الخطأ عند الخطأ OnError" 'Me.Error.Caption GiveMeError.Update DoEvents 'Number_MX_Error = DMax("[ID]", "[Error_All_MSGBOX]") MyMsgBox strMsg, Title, SubTitle, msg_Critical, Btn_OK_Only, English_Left, False ' Resume GiveMe Exit Sub 3- تصحيح مسار عند التشغيل 4- اضافة الغاء الصوت او تفعيل ================================( تحديث 1- تعامل مع الدالة مثال اسم الجهاز 2- تغير ابعاد الزر نافذه تحدد اما ارتفاع او عرض ثم الحفظ 3- تغير ابعاد الواجهة 4 5 ....... تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق ☕ =============================================( مرفق + فيديو ) تحميل المرفق https://www.mediafire.com/file/14jm050l7a9q5jx/Link+Tablt+On+MsgBoX+V1-2+Full_Control_Buld_MSGBOX_with+Stly+ON+MS+ACCESS.rar/file

=============================================( صور + مرفق + فيديو ) Update: 🌹 بعد اذن استاذ @Moosak ❤️🌹 عدلة على مرفقك 😇 بضيف له بعد التحديث حقل ادراج نص مع حقل قناع على الرسالة ☕ بامكان للعميل اختيار النمط المناسب له او بس للمطور تخصيص الرسائل وتنسيقها للانجاز وتحكم لكافة الاجهزة ====================( بتحديث يكون نص والعنوان DlookUp من جدول تاخذ الرقم وتسبدله بنص والعنوان لامكانية تغير نص الرسالة والغات الثانية كتغير لغة او التصحيح وتعديل 1- تخصيص الرسائل من الازرار الى الخلفية وحجم الرسالة - نوع الخط -حجم الخط -تحجيم الازرار - تحديد نمط الازار - تغير الالوان - تعين خلفية وايقونة وصوت 2- تغير اتجاه الرسالة من اليمين الى اليسار والعكس -تغير محاذات القراءه يمين ويسار وتوسيط 3- تغير حواف اطار النص 4- حفظ باسم مع تغير الباكيج ........ ====================================( تحديث ) 1- اضافة زر وتحجيمة لتحديث احداثية الزر 2-اضافة الغاء الصوت 3- عداد الوقت للالغاء وغلق الرسالة او مرات عدد ظهور الرسالة حسب الطلب بعض التحسينات وتصحيح واستكمال بعده دمج باكيج الواجهة الرئيسية مع الرسائل الى ثيم tablet = Name packge 1 , Name packge 1 = ( Name packge 1 install تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق ☕ =============================================( مرفق + فيديو ) تحميل مرفق مع باكيج للتجربة https://www.mediafire.com/file/qysrlx6x8g81nos/V1+Full_Control_Buld_MSGBOX_with+Stly+ON+MS+ACCESS.rar/file

استاذ @دروب مبرمج ❤️🌹 =============================================( صور + مرفق + فيديو ) Update: 🌹 1- اضافة تدريج اللوني بطول او العرض 2- اضافة قائمة تخصيص القوائمة -3D - مع الحفظ تنسيق باسم او الرجوع واعادة الضبط 3- اضافة انشاء القوائم 4 من تقارير ونماذج موضوح بالفيديو 4- استكمال الاختصارات للقاعدة البيانات - سطح المكتب - قائمة الويندوز -عند اقلاع وتشغيل الويندوز - مع الازالة 5- اضافة قائمة لضبط مسارات الملفات ===========================( تحديث ) 1- استكمال وتصحيح 2- تغير توجيه النموذج من يسار الى اليمين احتمال صعب ما ينفع الا فتح النموذج مخفي بوضع للتصميم لتمكين تحريك العناصر اقصد النماذج داخل النموذج move #,#,# Save ,Close ,Open بسبب التوزيع عند ملاء الشاشة حتى المحاذات سؤال في دالة بتسهل الحكاية هل يوجد مقترح لتعديل تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق ☕ =============================================( مرفق + فيديو ) تحميل المرفق https://www.mediafire.com/file/t5nn5m8t0khq69n/Update_Full_Control_Editor_Desktop_MsAccess_Up_bar_Form_On_Ms_Access_VX_Full.rar/file

شكرا على ذوقك استاذ @دروب مبرمج❤️🌹 ========================= قبل الواحد ياخذ ماقاسات لضبط كامل الشاشة من غير اظهار بار النافذه ويكون رفيع الان اسهل فقط انسخ الاكواد من غير تعديل من حدث التحميل وعند الفتح وعند تغير الحجم تظهر الواجهة الرئيسية او التقرير كامل الشاشة مع اخفاء البار العلوي للنافذه بوضع نمط = رفيع ========================================(تحديث) 1- تحديث الاختصارات -سطح المكتب -قائمة الويندوز -عند تشغيل البرنامج - متغير للتنبيهات Auto - استكمال 2- استكمال ان شاء القوائم من التقارير وحتى النماذج 3- بيانات المشروع مع بعض الاضافات الجديده وتعديل

=============================================( صور + مرفق + فيديو ) Update: 🌹 1- اضافة ثلاث انواع للتحكم بالنافذه كانت نموذج او كانت تقرير غير دالة الاستاذ @دروب مبرمج ❤️🌹 فدمجة الدالتين شرط اذا كانة نوع النمط رفيع او تغير حجمة =====( ايقاف شريط البار مع زر التكبير ) - تثبيت النافذه بوضع كامل الشاشة - تثبيت النافذه كنافذة حوار - بلا حدود وان كانت كامل الشاشة 2- تغير حواف الاطار مع تطبيق الكل ===========================( تحديث ) هل يوجد مقترح لتعديل تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق ☕ =============================================( مرفق + فيديو ) تحميل المرفق https://www.mediafire.com/file/69jo5felu9yvilc/Update_Full_Control_Desktop_MsAccess_Up_bar_Form_On_Ms_Access_VX_Full.rar/file

=============================================( صور + مرفق + فيديو ) Update: 🌹 1- اضافة تعديل بالاطار بالوان مدرجة مع اضافة تخصيص اخرى 2- اضافة نوافذ التقرير 3- اضافة زر اعادة التشغيل 4-( اضافة قائمة تخصيص كل من النماذج والتقارير الايقونه + عنوان + تثبيت النافذه=( وللاسف يعمل فقط على نافذه واحد وللنماذج فقط من الاستاذ @دروب مبرمج ❤️🌹 5- اضافة واجهة سطح المكتب مع التخصيص مع تدريج الاوان وخيار تحكم بالخلفية من استاذي @ابو جودي ❤️🌹🌹 6- اضافة قائمة انشاء التقارير من قائمة رئيسية الى تفريع بسهوله 7- اضافة التقويم بالواجهة الرئيسية واستكملة التقويم من الاستاذه @safaa salem5 ❤️🌹 8- اضافة Splash عند الاقلاع مع التخصيص 9- اضافة انشاء اختصار للبرنامج - سطح المكتب - قائمة الويندوز - عند اقلاع تشغيل الويندوز - مع تغير اسم البرنامج ===========================( تحديث ) ================================= هل يوجد مقترح لتعديل =============================================( Video ) Caption + Button Only On Click with Link db BE 2 Auto New db And back Link كنت بكمل مع اضافة تحويل جميع العناصر في النموذج الى جميع اللغات بضغطة زر بس لازم لنك وانشاء جدول تلقائي ياخذ الترجمة من قوقل + تعدل على الترجمة + امكانية التحديث لان الترجم اذا كان نفس كابتشن وتمرجم يدوي او مصحح الترجمة = لنك 2 جدول لكل دولة ☕ اداة بسيطة لتحكم بالنوافذ الاكسس وتخصيصها + واجهة الرئيسية + انشاء قوائم تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق ☕ =============================================( مرفق + فيديو ) تحميل المرفق https://www.mediafire.com/file/a9ixhgy5palc6pp/Full_Control_Desktop_MsAccess_Up_bar_Form_On_Ms_Access_VX_Full.rar/file

Update تابع الفيديو للتوضيح 1-اضافة قائمة اختيار اي ايقونة لكل فورم (بنشاء فولدر بجميع ايقونات المختاره ) فقط اختار من القائمة اسم النموذج .Icon X32 Or X48 2- اضافة في القائمة تغير ايقونة قاعدة البيانات والاسم ( صمم ايقونة مع دائرة من 1 الى 100 اذا كان فوق 100 تكون الدائرة لون اصفر خصصها للتنبيهات ) 3- ضغط على الايكون لاستعراض التكبير والتصغير !!! ملاحظة لتفعيل الايقونة واظهارها من خصائص التصميم = تمكين كليهما وغير زر الاغلاق كمثال غير ممكن - مع التبسيط انسخ الكود من حدث عند التحميل وحدث عند الفتح واعلى سطر من غير اي تعديل ثم اذهب الى نموذج جديد اولصق الكود فقط '===============================================( فيديو + مرفق ) Editor Icon with Control_Up_bar_Form_On_Ms_Access_VX_Full.rar

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