-
Posts
289 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو hanan_ms
-
=============================================( صور + مرفق + فيديو ) Update: 🌹 اهلا اهلا بالاستاذه @Lamyaa❤️🌹🌹☕ الاداة الي رفعتها مضمنها فيجوال 6 ما تشتغل لبعض الاجهزة لاختلاف 64 وفقر في تعريفات Dell ! ============================================= اهلا بالاستاذ @Moosak 🌹❤️ تقديم نوعين والاثنين من غير اضافة مكتبات خارجية 1- استخدام اداة اكتفتي (TabStrip) من غير اضافة اداة 2- تعديل بالوقت = اسرع بحفظ التغيرات للنص العامودي ================================== وفي الثالثه من تنزيل Ms Word Use IMGE on Ms Aceess من اكواد ودوال الورد تعمل داخل الاكسس تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق ☕ =============================================( مرفق + فيديو ) No Add For Active_X-TabspChange_Text_Up_To_Dawon_V1.rar
-
برنامج مبسط لسحب السكانر والصور والتقاط صوره من الكاميرا
hanan_ms replied to hanan_ms's topic in قسم الأكسيس Access
استاذ @gavan ❤️🌹 منتظره خبرتك يمكن يحتاج الى تعديل -
تثبيت الخطوط المستخدمة في البرنامج عند فتح قاعدة البيانات
hanan_ms replied to figo82eg's topic in قسم الأكسيس Access
بعد اذن استاذ @Moosak ❤️🌹🌹 عدلة على مرفقك وزد ملفات ثانية بنفس الدالة شكرا على المرفق مع ضبط حجم النافذه لا يقل ويصغر فقط يتوسع ويكبر الى كامل الشاشة يمكن كان الحدث قبل التحديث ما ادري يمكن ينفع اجلب كافة الخطوط المستخدمة في القاعدة داخل الملف بجنب القاعده وداخل المرفقات بضغطة زر ولان الخطوط موجوده الا قليل ينفع اذا فقد الملف اعادة احضار الكل وعند التشغيل تقدر تضيف ملف ضغط رار فيه توزيعة ملفات = استخراج ثم فك الضغط كملفات على سبيل المثال PDF ( Book About Help ) له جدول يتصل بملفات جنب القاعده Public Function AddFonts() '======================================================( File Add Dim ExtractPath As String Dim FontPath As String Dim ExtractPath2 As String Dim FontPath2 As String Dim ExtractPath3 As String Dim FontPath3 As String Dim ExtractPath4 As String Dim FontPath4 As String Dim ExtractPath5 As String Dim FontPath5 As String Dim ExtractPath6 As String Dim FontPath6 As String Dim ExtractPath7 As String Dim FontPath7 As String Dim ExtractPath8 As String Dim FontPath8 As String Dim ExtractPath9 As String Dim FontPath9 As String Dim FSO As Scripting.FileSystemObject '======================================================( Exprt Fil In File Add Dim File As File Dim FontFolder As Folder Dim File2 As File Dim FontFolder2 As Folder Dim File3 As File Dim FontFolder3 As Folder Dim File4 As File Dim FontFolder4 As Folder Dim File5 As File Dim FontFolder5 As Folder Dim File6 As File Dim FontFolder6 As Folder Dim File7 As File Dim FontFolder7 As Folder Dim File8 As File Dim FontFolder8 As Folder Dim File9 As File Dim FontFolder9 As Folder Set FSO = New Scripting.FileSystemObject ' إنشاء مجلد للخطوط بجانب قاعدة البيانات '=========================================================( File 1 ExtractPath = CurrentProject.Path & "\fonts" If Not FSO.FolderExists(ExtractPath) Then FSO.CreateFolder (ExtractPath) '=========================================================( File 2 ExtractPath2 = CurrentProject.Path & "\Icon_Button" If Not FSO.FolderExists(ExtractPath2) Then FSO.CreateFolder (ExtractPath2) '=========================================================( File 3 ExtractPath3 = CurrentProject.Path & "\Icon_Msgbox" If Not FSO.FolderExists(ExtractPath3) Then FSO.CreateFolder (ExtractPath3) '=========================================================( File 4 ExtractPath4 = CurrentProject.Path & "\Sound" If Not FSO.FolderExists(ExtractPath4) Then FSO.CreateFolder (ExtractPath4) '=========================================================( File 5 ExtractPath5 = CurrentProject.Path & "\Wallpaper" If Not FSO.FolderExists(ExtractPath5) Then FSO.CreateFolder (ExtractPath5) '=========================================================( File 6 ExtractPath6 = CurrentProject.Path & "\Video" If Not FSO.FolderExists(ExtractPath6) Then FSO.CreateFolder (ExtractPath6) '=========================================================( File 7 ExtractPath7 = CurrentProject.Path & "\db_BE" If Not FSO.FolderExists(ExtractPath7) Then FSO.CreateFolder (ExtractPath7) '=========================================================( File 8 ExtractPath8 = CurrentProject.Path & "\ExE" If Not FSO.FolderExists(ExtractPath8) Then FSO.CreateFolder (ExtractPath8) '=========================================================( File 9 ExtractPath9 = CurrentProject.Path & "\IMG_Report" If Not FSO.FolderExists(ExtractPath9) Then FSO.CreateFolder (ExtractPath9) ' استخراج جميع الخطوط من الجدول إلى مجلد الخطوط '==========================================================( Form Name_tablet,File ,past File '==========================================================( 1 ExtractAllAttachments "FontsT", "Fonts", ExtractPath '==========================================================( 2 ExtractAllAttachments "FontsT", "Icon_Button", ExtractPath2 '==========================================================( 3 ExtractAllAttachments "FontsT", "Icon_Msgbox", ExtractPath3 '==========================================================( 4 ExtractAllAttachments "FontsT", "Sound", ExtractPath4 '==========================================================( 5 ExtractAllAttachments "FontsT", "Wallpaper", ExtractPath5 '==========================================================( 6 ExtractAllAttachments "FontsT", "Video", ExtractPath6 '==========================================================( 7 ExtractAllAttachments "FontsT", "db_BE", ExtractPath7 '==========================================================( 8 ExtractAllAttachments "FontsT", "ExE", ExtractPath8 '==========================================================( 9 ExtractAllAttachments "FontsT", "IMG_Report", ExtractPath9 '==========================================================( Chack File with Type For Past File '==========================================================( 1 Set FontFolder = FSO.GetFolder(ExtractPath) For Each File In FontFolder.Files If Right(File.Name, 3) = "TTF" Or Right(File.Name, 3) = "OTF" Then FontPath = ExtractPath & "\" & File.Name Debug.Print vbCr & FontPath AddOneFont FontPath Debug.Print File.Name, "Added" End If Next '==========================================================( 2 Set FontFolder2 = FSO.GetFolder(ExtractPath2) For Each File2 In FontFolder2.Files If Right(File2.Name, 3) = "TTF" Or Right(File2.Name, 3) = "OTF" Then FontPath2 = ExtractPath2 & "\" & File2.Name Debug.Print vbCr & FontPath2 AddOneFont FontPath2 Debug.Print File2.Name, "Added" End If Next '==========================================================( 3 Set FontFolder3 = FSO.GetFolder(ExtractPath3) For Each File3 In FontFolder3.Files If Right(File3.Name, 3) = "TTF" Or Right(File3.Name, 3) = "OTF" Then FontPath = ExtractPath3 & "\" & File3.Name Debug.Print vbCr & FontPath3 AddOneFont FontPath3 Debug.Print File3.Name, "Added" End If Next '==========================================================( 4 Set FontFolder4 = FSO.GetFolder(ExtractPath4) For Each File4 In FontFolder4.Files If Right(File4.Name, 3) = "TTF" Or Right(File4.Name, 3) = "OTF" Then FontPath = ExtractPath4 & "\" & File4.Name Debug.Print vbCr & FontPath4 AddOneFont FontPath4 Debug.Print File4.Name, "Added" End If Next '==========================================================( 5 Set FontFolder5 = FSO.GetFolder(ExtractPath5) For Each File In FontFolder5.Files If Right(File5.Name, 3) = "TTF" Or Right(File5.Name, 3) = "OTF" Then FontPath = ExtractPath5 & "\" & File5.Name Debug.Print vbCr & FontPath5 AddOneFont FontPath5 Debug.Print File5.Name, "Added" End If Next '==========================================================( 6 Set FontFolder6 = FSO.GetFolder(ExtractPath6) For Each File6 In FontFolder6.Files If Right(File6.Name, 3) = "TTF" Or Right(File6.Name, 3) = "OTF" Then FontPath6 = ExtractPath6 & "\" & File6.Name Debug.Print vbCr & FontPath6 AddOneFont FontPath6 Debug.Print File6.Name, "Added" End If Next '==========================================================( 7 Set FontFolder7 = FSO.GetFolder(ExtractPath7) For Each File7 In FontFolder7.Files If Right(File7.Name, 3) = "TTF" Or Right(File7.Name, 3) = "OTF" Then FontPath = ExtractPath7 & "\" & File7.Name Debug.Print vbCr & FontPath7 AddOneFont FontPath7 Debug.Print File7.Name, "Added" End If Next '==========================================================( 8 Set FontFolder8 = FSO.GetFolder(ExtractPath8) For Each File In FontFolder8.Files If Right(File8.Name, 3) = "TTF" Or Right(File8.Name, 3) = "OTF" Then FontPath8 = ExtractPath8 & "\" & File8.Name Debug.Print vbCr & FontPath8 AddOneFont FontPath8 Debug.Print File8.Name, "Added" End If Next '==========================================================( 9 Set FontFolder9 = FSO.GetFolder(ExtractPath9) For Each File In FontFolder9.Files If Right(File9.Name, 3) = "TTF" Or Right(File9.Name, 3) = "OTF" Then FontPath9 = ExtractPath9 & "\" & File9.Name Debug.Print vbCr & FontPath9 AddOneFont FontPath9 Debug.Print File9.Name, "Added" End If Next Set FSO = Nothing End Function SeT_File_SyS_Add_Pcage_And_Font_Ms_Access.rar -
برنامج مبسط لسحب السكانر والصور والتقاط صوره من الكاميرا
hanan_ms replied to hanan_ms's topic in قسم الأكسيس Access
تأكد من تفعيل الوحدات النمطية والماكرو بالاكسس ثم اعادة التشغيل -
استاذ @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
- 1 reply
-
- full control
- تحمن كامل
-
(و2 أكثر)
موسوم بكلمه :
-
انا قدمة الدالة كاملة فقط تحديد رقم المطلوب من الاعدادة مفصلة داخل الدالة ويجد شرح داخل البرنامج - تغير لون بار العلوي للفورم -تغير لون نص بار العلوي للفورم -تغير لون الاطار المركز من الفورم - تغير لون الاطار الساكن غير مركز من النماذج المفتوحة - بمايمكن تجرب جميع الخصائص الاكسس ونظام الاكسس بتغير الفورم ملاحظة عند الانتهاء اغلق الاكسس ثم اعادة الفتح لبعض خصائص الاعدادة والبعض مثل محرر كتابة الاكواد عند بدايت التشغيل ثم اغلق النافذ لتغير الوان محرر الاكواد يعني لبعض العبث =============================================( فيديو ) تحميل المرفق Control_Up_bar_Form_On_Ms_Access_VX_Full.rar
- 1 reply
-
- full control
- تحمن كامل
-
(و2 أكثر)
موسوم بكلمه :
-
================================================== Update: 🌹❤️ 1- اضافة تذليل للصفح بقائمة عامة لكافة التقارير 2-اضافة تقرير داخل التقرير لاي تقرير يتعامل بالمتغيارات '=======================================(( ) او اذا كان نص يكتب اسم العنصر علامتين تنصيص ( "" ) فصل اذا كان الاسم العنصر المستخرج بدالة بلا علامتين تنصيص كوديشن ) Reports(rpt).Report("up_up").Controls("A1").Picture = Reports(rpt).Report("up_up").Controls("E1") 3- تعديل الدالة يتجنب تغيرات التذليل ملاحظة : في تقارير انت تصميمها وتخصص العلامة المائية افضل بكثير فقط معاينة وطباعة ولكن احتساب التغيرات ومطلب للعملاء بالتخصيص احتمال اكتفي بقدر التحديث ويختلف التقرير عند اضافة جدول داخل التقرير للحسابات تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق ================================= هل يوجد مقترح بتعديل على عرض التقرير او التصميم او طريقة افضل منها ☕ =============================================( Video ) تحميل https://www.mediafire.com/file/nvrnbguo001e5db/Update_AddNew_Report_IN_Report_V3_Ms_Access.rar/file
-
================================================== Update: 🌹 1- اضافة قائمة يسار اكلك الماوس عند زر الادمن - اضافة وتحرير اطارات (راسي) -اضافة وتحرير اطارات (افقي) -اضافة وتحرير علامات المائية - تجربة اضافة السابقة تجريبي 2- ( اضافة عرض مباشر للمستخدم للاطارات اذا كان الادمن سمح بالاظهار ويحدد الافقي والراسي من بداية الكود ( اسم التقرير والوضع 3- اضافة العلامة المائية مباشر بنفس حال الاطارات مع تحديد درجة المائية للعلامة 4- دمج الاطار مع اي صورة مائية مباشر الى التقرير جرب علامة مائية برمز الدولة 5- لا يوجد فلاش كوري عند اختيار الاطارات او العلامة المائية تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق ======================================(تحديث السابق ) @Moosak استاذ موسى ❤️🌹 ================================= هل يوجد مقترح بتعديل على عرض التقرير او التصميم او طريقة افضل منها ☕ =============================================( Video ) تحميل https://www.mediafire.com/file/7igz2onr9nnwjw9/Update_V3.rar/file
-
================================================== Update: 🌹 1- اضافة قائمة يسار اكلك الماوس - عرض التحرير -الغاء التحرير -خروج 2- اضافة نوعين للتقرير (افقي ,رأسي ) 3- اضافة باكج 3 انواع رأسي مع الاحجام + 3 اطارات ملونة مع اطارات افقي - عند فتح تقرير افقي او راسي كل من النوعين له اطارات الخاصة 4- اضافة صورة وتحويلها الى علامة مائية للتقرير 5- اضافة قائمة لتحديد الخطوط المطلوبة للمستخدم 6- تصحيح خطأ السابق نسيت استعلام ======================================(تحديث !) لجعل نفس التقرير اطار + صور علامة مائية في حلين 1- تقرير فارغ وهو الرسيسي يحمل الاطار والتقرير الفرعي ياخذ صورة علامة المائية 2- اما صوره واحد تضم الاطارة مع العلامة المائية @Moosak استاذ موسى ❤️🌹 كأنه عنده طريقة احسن 😇 للعلم يمكن استخدام الاطار المحجم اختر 10 واختر صور للعلامة المائية ☕ ================================= هل يوجد مقترح بتعديل على عرض التقرير او التصميم او طريقة افضل منها ☕ =============================================( Video ) ============================================== تحميل https://www.mediafire.com/file/27l9mopfhjoq2q7/Update_Add_New_And_Black_Mod_Report_MS_Access.rar/file
-
استاذ @Moosak اكملة ولكن اشلون اخليهم في دالة ؟ فكرتك اجمل ليش ما تطبقها لي 😁 على فكر بدل ما تستخدم دالة مسج بوكس لعداد الوقت msgbox "",EX, Me.HOK_Time ' يغير نص عنوان الرسالة call Time_EX_Click() ' كود في الوقت لا يعمل الا اذا كان العدد 1 او كود انتقر 0 عند وصول العد التنازلي VbNo=1 😇 ================================================== Update: 1- اضافة ازرار التحكم السمك والمائل وتحت الخط + المحاذات 2- اضافة الاطارات وصور العلامات المائية من غير استخدام جدول 3- اضافة طريقة الاستخدام 4- تصحيح الون الاحمر ================================= هل يوجد مقترح بتعديل على عرض التقرير او التصميم او طريقة افضل منها ☕ =============================================( Video ) Update_V2.5 Add Editor Report after print Contol VBA MS Access.rar