hanan_ms

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

اتفق مع استاذ @أبو إبراهيم الغامدي❤️🌹 بعد اذن استاذ @محمد طاهر عرفه ❤️🌹 تأشير على الرد الموصى به من جهة الاخبر منه لا انصح بتنوع التأشير يكون تأشير واحد فريد ويعدد من 1 الى 5 او 10 في الموضوع فحدد اما ان يكون التوجية او مرفق والكود يفضل مرفق والكود فقط يرفق التأشير بالتعميم والاعلان من تاريخ اليوم الى سبعة ايام ويزيد بتحديث التأشير *************************************************************************** '======================================= ( راس الموضوع ) اضافة تحديث الموضوع بارقام كأرقام تصفح الموقع السابق والتالي في رأس الموضوع استاذي @ابو جودي❤️🌹☕ يحدث الرأس الموضوع + تاريخ اضافة + تعميم براس المواضيع بسطر واحط فقط باجمالي التعميميات الجديد في التحديثات موضيع مختلفة على السبيل المثال 6 تثبيتهم حتى لو شهر بما تراه مناسب '========================================( نوع الطلب ) كان سؤال او اهداء هنا يحدد اضافة تفريع براس الموضوع '=========================================( ازالة صورة الكأس واجراء ) اذا حدد صاحب السؤال عشوائية الرد كأفضل اجابة يمنع في هذا الموضع والمشاركة المحدد تأشير في هذا الموضوع فقط احتمال اختيار العشوائي بسبب الوقت او اثبات امر آخر بنسبة لصاحب السؤال '==========================================( سمات التأشير ) خيار انتقال الى التأشير او قرائة عامة عند دخول المستخدم الى الموضوع او قبل الدخول اختيار الاجابة الموصى بها يحق اضافة رد داخل الرد الموصى به من قبل الاداري بالتوجية وملاحظات قبل الاخذ بالرد الموصى به ويحق للاداري اضافة هذا الاهداء الى مكتبة الموقع مع تأشير على الموضوع '===========================================( اضافة اساسية ) نوع السؤال 1- كان واحد او اكثر ويأخذ ببناء الطلب -نموذج -تقرير -تصميم جداول -دوال -ميكرو -كود - شجرة 2- جهة الموضوع باحث فيها السؤال - عام ويخصص للاهداء - مصانع - خدمات - مدارس -طبي -قانوني .... 3- استخدام القيم - تواريخ - جمع ومعادلات في الجدول او الفورم - ترحيل وتنفيذ اجراءات - حساب وقت او حسابات اخرى -تصحيح اخطاء '==================================( يطبق بالاهداء مع التعديل ) '=========================================================( النتائج ) لا يوجد فوضى بالتأشير وتكسيد الردود بالتحديث فوق بعض وممكن ضم الردود تطوير طريقة البحث من ومن ومن مع الجمع ************************************************************************************************************** اضافة جديد خلها تحت الدراسة - المستخدمين احتمال يكرر السؤال فنخلق جهتين 1- مواضيع المستخدمين مع التكرار 2- مواضيع ثابتة وتحدث فقط بالموصى به في نفس الموضوع بالحلول المختلفة والمصححة يعني راس الموضوع واحد فريد ===============( احتمال بعد سنوات حذف المكرر للسؤال بما احتفظنا بافضل اجابات موصى بها بالتحديث)

=============================================( صور + مرفق + فيديو ) Update: 🌹 بعد اذن استاذي @ابو جودي ❤️🌹☕🌹 بعد اذن الاستاذ @Moosak ❤️🌹☕ بعد اذن الاستاذ @Amr Ashraf ❤️🌹 1- اضافة 16 نوع من ملفات تثبت وتضاف عند الفتح وعند الفقد + ملفات التشغيلية + ملفات المضغوطة ملاحظة: -اذا كان .exe غير الى .ex بعد التنفيذ يغير الى exe. - اذا ملف فك الضغط Zip يبدأ في حذف الملف ثم الفك التلقائي للملفات تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق ☕ =============================================( مرفق + فيديو ) الدالة : 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 ExtractPath10 As String Dim FontPath10 As String Dim ExtractPath11 As String Dim FontPath11 As String Dim ExtractPath12 As String Dim FontPath12 As String Dim ExtractPath13 As String Dim FontPath13 As String Dim ExtractPath14 As String Dim FontPath14 As String Dim ExtractPath15 As String Dim FontPath15 As String Dim ExtractPath16 As String Dim FontPath16 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 Dim File10 As File Dim FontFolder10 As Folder Dim File11 As File Dim FontFolder11 As Folder Dim File12 As File Dim FontFolder12 As Folder Dim File13 As File Dim FontFolder13 As Folder Dim File14 As File Dim FontFolder14 As Folder Dim File15 As File Dim FontFolder15 As Folder Dim File16 As File Dim FontFolder16 As Folder '========================================================( Expoert Any File rar zip 7z tgz ... Dim sFolder, sFile, strDest, _ zipPath, zipPwd, strFileName, _ Operation, MyApp, strSource As String Dim Rar_X_Zip As Integer Dim RarXZip As Object Set FSO = New Scripting.FileSystemObject On Error Resume Next '=================================( Delete Folder #File 16 for Export Zip or rar ) FSO.DeleteFolder CurrentProject.Path & "\All_InFile_One_Zip_Rar" ' ÅäÔÇÁ ãÌáÏ ááÎØæØ ÈÌÇäÈ ÞÇÚÏÉ ÇáÈíÇäÇÊ '=========================================================( 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) '=========================================================( File 10 ExtractPath10 = CurrentProject.Path & "\File_word" If Not FSO.FolderExists(ExtractPath10) Then FSO.CreateFolder (ExtractPath10) '=========================================================( File 11 ExtractPath11 = CurrentProject.Path & "\File_Excel" If Not FSO.FolderExists(ExtractPath11) Then FSO.CreateFolder (ExtractPath11) '=========================================================( File 12 ExtractPath12 = CurrentProject.Path & "\Book" If Not FSO.FolderExists(ExtractPath12) Then FSO.CreateFolder (ExtractPath12) '=========================================================( File 13 ExtractPath13 = CurrentProject.Path & "\File_PowerPoint" If Not FSO.FolderExists(ExtractPath13) Then FSO.CreateFolder (ExtractPath13) '=========================================================( File 14 ExtractPath14 = CurrentProject.Path & "\File_Text" If Not FSO.FolderExists(ExtractPath14) Then FSO.CreateFolder (ExtractPath14) '=========================================================( File 15 ExtractPath15 = CurrentProject.Path & "\File_Code" If Not FSO.FolderExists(ExtractPath15) Then FSO.CreateFolder (ExtractPath15) '=========================================================( File 16 ExtractPath16 = CurrentProject.Path & "\All_InFile_One_Zip_Rar" If Not FSO.FolderExists(ExtractPath16) Then FSO.CreateFolder (ExtractPath16) ' ÇÓÊÎÑÇÌ ÌãíÚ ÇáÎØæØ ãä ÇáÌÏæá Åáì ãÌáÏ ÇáÎØæØ '==========================================================( 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", "File_Executable_ExE", ExtractPath8 '==========================================================( 9 ExtractAllAttachments "FontsT", "IMG_Report", ExtractPath9 '==========================================================( 10 ExtractAllAttachments "FontsT", "File_Word", ExtractPath10 '==========================================================( 11 ExtractAllAttachments "FontsT", "File_Excel", ExtractPath11 '==========================================================( 12 ExtractAllAttachments "FontsT", "Book", ExtractPath12 '==========================================================( 13 ExtractAllAttachments "FontsT", "File_PowerPoint", ExtractPath13 '==========================================================( 14 ExtractAllAttachments "FontsT", "File_Text", ExtractPath14 '==========================================================( 15 ExtractAllAttachments "FontsT", "File_Code", ExtractPath15 '==========================================================( 16 ExtractAllAttachments "FontsT", "All_InFile_One_Zip_Rar", ExtractPath16 '==========================================================( Chack File with Type For Past File '==========================================================( 1 Font Set FontFolder = FSO.GetFolder(ExtractPath) On Error Resume Next '==================== ( IsNull_And_Next Raed 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 Img Icon_Button Set FontFolder2 = FSO.GetFolder(ExtractPath2) On Error Resume Next '==================== ( IsNull_And_Next Raed For Each File2 In FontFolder2.Files If Right(File2.Name, 3) = "jpg" Or Right(File2.Name, 3) = "jpeg" _ Or Right(File2.Name, 3) = "png" Or Right(File2.Name, 3) = "gif" _ Or Right(File2.Name, 3) = "bmp" Or Right(File2.Name, 3) = "tiff" _ Or Right(File2.Name, 3) = "tif" Or Right(File2.Name, 3) = "ico" _ Or Right(File2.Name, 3) = "webp" Or Right(File2.Name, 3) = "heif" _ Or Right(File2.Name, 3) = "heic" Then FontPath2 = ExtractPath2 & "\" & File2.Name Debug.Print vbCr & FontPath2 AddOneFont FontPath2 Debug.Print File2.Name, "Added" End If Next '==========================================================( 3 IMG Icon_ Msgbox Set FontFolder3 = FSO.GetFolder(ExtractPath3) On Error Resume Next '==================== ( IsNull_And_Next Raed For Each File3 In FontFolder3.Files If Right(File3.Name, 3) = "jpg" Or Right(File3.Name, 3) = "jpeg" _ Or Right(File3.Name, 3) = "png" Or Right(File3.Name, 3) = "gif" _ Or Right(File3.Name, 3) = "bmp" Or Right(File3.Name, 3) = "tiff" _ Or Right(File3.Name, 3) = "tif" Or Right(File3.Name, 3) = "ico" _ Or Right(File3.Name, 3) = "webp" Or Right(File3.Name, 3) = "heif" _ Or Right(File3.Name, 3) = "heic" Then FontPath = ExtractPath3 & "\" & File3.Name Debug.Print vbCr & FontPath3 AddOneFont FontPath3 Debug.Print File3.Name, "Added" End If Next '==========================================================( 4 Sound Set FontFolder4 = FSO.GetFolder(ExtractPath4) On Error Resume Next '==================== ( IsNull_And_Next Raed For Each File4 In FontFolder4.Files If Right(File4.Name, 3) = "mp3" Or Right(File4.Name, 3) = "wav" _ Or Right(File4.Name, 3) = "ogg" Or Right(File4.Name, 4) = "flac" _ Or Right(File4.Name, 3) = "aac" Or Right(File4.Name, 3) = "m4a" _ Or Right(File4.Name, 3) = "wma" Or Right(File4.Name, 4) = "alac" _ Or Right(File4.Name, 4) = "opus" Or Right(File4.Name, 4) = "aiff" Then FontPath = ExtractPath4 & "\" & File4.Name Debug.Print vbCr & FontPath4 AddOneFont FontPath4 Debug.Print File4.Name, "Added" End If Next '==========================================================( 5 IMGE Wallpaper Set FontFolder5 = FSO.GetFolder(ExtractPath5) On Error Resume Next '==================== ( IsNull_And_Next Raed For Each File In FontFolder5.Files If Right(File5.Name, 3) = "jpg" Or Right(File5.Name, 3) = "jpeg" _ Or Right(File5.Name, 3) = "png" Or Right(File5.Name, 3) = "gif" _ Or Right(File5.Name, 3) = "bmp" Or Right(File5.Name, 3) = "tiff" _ Or Right(File5.Name, 3) = "tif" Or Right(File5.Name, 3) = "ico" _ Or Right(File5.Name, 3) = "webp" Or Right(File5.Name, 3) = "heif" _ Or Right(File5.Name, 3) = "heic" Then FontPath = ExtractPath5 & "\" & File5.Name Debug.Print vbCr & FontPath5 AddOneFont FontPath5 Debug.Print File5.Name, "Added" End If Next '==========================================================( 6 video Set FontFolder6 = FSO.GetFolder(ExtractPath6) On Error Resume Next '==================== ( IsNull_And_Next Raed For Each File6 In FontFolder6.Files If Right(File6.Name, 3) = "mp4" Or Right(File6.Name, 3) = "avi" _ Or Right(File6.Name, 3) = "mov" Or Right(File6.Name, 3) = "mkv" _ Or Right(File6.Name, 3) = "flv" Or Right(File6.Name, 3) = "wmv" _ Or Right(File6.Name, 3) = "webm" Or Right(File6.Name, 3) = "mpeg" _ Or Right(File6.Name, 3) = "mpg" Or Right(File6.Name, 3) = "3gp" _ Or Right(File6.Name, 3) = "ts" Then FontPath6 = ExtractPath6 & "\" & File6.Name Debug.Print vbCr & FontPath6 AddOneFont FontPath6 Debug.Print File6.Name, "Added" End If Next '==========================================================( 7 DB Ms Access Set FontFolder7 = FSO.GetFolder(ExtractPath7) On Error Resume Next '==================== ( IsNull_And_Next Raed For Each File7 In FontFolder7.Files If Right(File7.Name, 3) = "accda" Or Right(File7.Name, 3) = "accdb" _ Or Right(File7.Name, 3) = "accde" Or Right(File7.Name, 3) = "accdr" _ Or Right(File7.Name, 3) = "accdt" Or Right(File7.Name, 3) = "accdw" _ Or Right(File7.Name, 3) = "mda" Or Right(File7.Name, 3) = "mdb" _ Or Right(File7.Name, 3) = "mde" Or Right(File7.Name, 3) = "mdf" _ Or Right(File7.Name, 3) = "mdw" Then FontPath = ExtractPath7 & "\" & File7.Name Debug.Print vbCr & FontPath7 AddOneFont FontPath7 Debug.Print File7.Name, "Added" End If Next '==========================================================( 8 Run Applciation Set FontFolder8 = FSO.GetFolder(ExtractPath8) On Error Resume Next '==================== ( IsNull_And_Next Raed For Each File In FontFolder8.Files If Right(File8.Name, 3) = "exe" Or Right(File8.Name, 3) = "bat" _ Or Right(File8.Name, 3) = "cmd" Or Right(File8.Name, 3) = "msi" _ Or Right(File8.Name, 3) = "apk" Or Right(File8.Name, 3) = "app" _ Or Right(File8.Name, 3) = "dmg" Or Right(File8.Name, 3) = "jar" Then FontPath8 = ExtractPath8 & "\" & File8.Name Debug.Print vbCr & FontPath8 AddOneFont FontPath8 Debug.Print File8.Name, "Added" End If If FontPath8 = ExtractPath8 & "\" & File8.Name = ExtractPath8 & "\" & "Zip-UnZip By Amr Ashraf.ex" Then '=========================================================() Set RarXZip = CreateObject("scripting.filesystemobject") '==========================================(Chang Name ) RarXZip.CopyFile (ExtractPath8 & "\" & "Zip-UnZip By Amr Ashraf.ex"), (ExtractPath8 & "\" & "Zip-UnZip By Amr Ashraf.exe") End If Next Kill (ExtractPath8 & "\" & "Zip-UnZip By Amr Ashraf.ex") '==========================================================( 9 IMg_Report Set FontFolder9 = FSO.GetFolder(ExtractPath9) On Error Resume Next '==================== ( IsNull_And_Next Raed For Each File In FontFolder9.Files If Right(File9.Name, 3) = "jpg" Or Right(File9.Name, 3) = "jpeg" _ Or Right(File9.Name, 3) = "png" Or Right(File9.Name, 3) = "gif" _ Or Right(File9.Name, 3) = "bmp" Or Right(File9.Name, 3) = "tiff" _ Or Right(File9.Name, 3) = "tif" Or Right(File9.Name, 3) = "ico" _ Or Right(File9.Name, 3) = "webp" Or Right(File9.Name, 3) = "heif" _ Or Right(File9.Name, 3) = "heic" Then FontPath9 = ExtractPath9 & "\" & File9.Name Debug.Print vbCr & FontPath9 AddOneFont FontPath9 Debug.Print File9.Name, "Added" End If Next '==========================================================( 10 File_word Set FontFolder10 = FSO.GetFolder(ExtractPath10) On Error Resume Next '==================== ( IsNull_And_Next Raed For Each File In FontFolder10.Files If Right(File10.Name, 4) = "docx" Or Right(File10.Name, 3) = "doc" _ Or Right(File10.Name, 4) = "docm" Or Right(File10.Name, 4) = "dotx" _ Or Right(File10.Name, 4) = "dotm" Or Right(File10.Name, 3) = "rtf" _ Or Right(File10.Name, 3) = "odt" Then FontPath10 = ExtractPath10 & "\" & File10.Name Debug.Print vbCr & FontPath10 AddOneFont FontPath10 Debug.Print File10.Name, "Added" End If Next '==========================================================( 11 File_Excel Set FontFolder11 = FSO.GetFolder(ExtractPath11) On Error Resume Next '==================== ( IsNull_And_Next Raed For Each File In FontFolder11.Files If Right(File11.Name, 4) = "xlsx" Or Right(File11.Name, 3) = "xls" _ Or Right(File11.Name, 4) = "xlsm" Or Right(File11.Name, 4) = "xlsb" _ Or Right(File11.Name, 4) = "xltx" Or Right(File11.Name, 4) = "xltm" Then FontPath11 = ExtractPath11 & "\" & File11.Name Debug.Print vbCr & FontPath11 AddOneFont FontPath11 Debug.Print File11.Name, "Added" End If Next '==========================================================( 12 Book Set FontFolder12 = FSO.GetFolder(ExtractPath12) On Error Resume Next '==================== ( IsNull_And_Next Raed For Each File In FontFolder12.Files If Right(File12.Name, 3) = "pdf" Or Right(File12.Name, 3) = "Html" _ Or Right(File12.Name, 3) = "Cs3" Or Right(File12.Name, 3) = "Cs6" _ Or Right(File12.Name, 3) = "jpg" Or Right(File12.Name, 3) = "png" _ Or Right(File12.Name, 3) = "C4D" Then FontPath12 = ExtractPath12 & "\" & File12.Name Debug.Print vbCr & FontPath12 AddOneFont FontPath12 Debug.Print File12.Name, "Added" End If Next '==========================================================( 13 File_PowerPoint Set FontFolder13 = FSO.GetFolder(ExtractPath13) On Error Resume Next '==================== ( IsNull_And_Next Raed For Each File In FontFolder13.Files If Right(File13.Name, 3) = "pptx" Or Right(File13.Name, 3) = "ppt" _ Or Right(File13.Name, 3) = "ppsx" Or Right(File13.Name, 3) = "pps" _ Or Right(File13.Name, 3) = "pptm" Or Right(File13.Name, 3) = "potx" _ Or Right(File13.Name, 3) = "potm" Then FontPath13 = ExtractPath13 & "\" & File13.Name Debug.Print vbCr & FontPath13 AddOneFont FontPath13 Debug.Print File13.Name, "Added" End If Next '==========================================================( 14 File_Text Set FontFolder14 = FSO.GetFolder(ExtractPath14) On Error Resume Next '==================== ( IsNull_And_Next Raed For Each File In FontFolder14.Files If Right(File14.Name, 3) = "txt" Or Right(File14.Name, 3) = "csv" _ Or Right(File14.Name, 3) = "log" Or Right(File14.Name, 3) = "md" _ Or Right(File14.Name, 3) = "rtf" Then FontPath14 = ExtractPath14 & "\" & File14.Name Debug.Print vbCr & FontPath14 AddOneFont FontPath14 Debug.Print File14.Name, "Added" End If Next '==========================================================( 15 File_Code Set FontFolder15 = FSO.GetFolder(ExtractPath15) On Error Resume Next '==================== ( IsNull_And_Next Raed For Each File In FontFolder15.Files If Right(File15.Name, 3) = "html" Or Right(File15.Name, 3) = "css" _ Or Right(File15.Name, 3) = "js" Or Right(File15.Name, 3) = "php" _ Or Right(File15.Name, 3) = "py" Or Right(File15.Name, 3) = "java" _ Or Right(File15.Name, 3) = "cpp" Or Right(File15.Name, 3) = "c" _ Or Right(File15.Name, 3) = "rb" Or Right(File15.Name, 3) = "swift" _ Or Right(File15.Name, 3) = "go" Or Right(File15.Name, 3) = "ts" Then FontPath15 = ExtractPath15 & "\" & File15.Name Debug.Print vbCr & FontPath15 AddOneFont FontPath15 Debug.Print File15.Name, "Added" End If Next '==========================================================( 16 All_InFile_One_Zip_Rar Set FontFolder16 = FSO.GetFolder(ExtractPath16) MyApp = Application.CurrentProject.Path & "\ExE\Zip-UnZip By Amr Ashraf.exe" On Error Resume Next '==================== ( IsNull_And_Next Raed For Each File In FontFolder16.Files On Error Resume Next ' If Right(File16.Name, 3) = "zip" Then Or Right(File16.Name, 3) = "rar" _ ' Or Right(File16.Name, 3) = "7z" Or Right(File16.Name, 3) = "tar" _ ' Or Right(File16.Name, 3) = "gz" Or Right(File16.Name, 3) = "tar.gz" _ ' Or Right(File16.Name, 3) = "tgz" Or Right(File16.Name, 3) = "xz" _ ' Or Right(File16.Name, 3) = "bz2" Then FontPath16 = ExtractPath16 & "\" & File16.Name Debug.Print vbCr & FontPath16 AddOneFont FontPath16 Debug.Print File16.Name, "Added" ' End If Next '=================================================================() '=================================================( 16 Open Export Any File Rar Zip 7z tgz ... For Rar_X_Zip = 1 To 1 ' who match rar file or zip Operation = "UnZipFile" strSource = ExtractPath16 & "\" & "Help_Or_Action_Concted_File_FTP.zip" zipPwd = "" strDest = ExtractPath16 & "\\" Debug.Print strSource Debug.Print strDest Call Shell("""" & MyApp & """ """ & Operation & """ """ & strSource & """ """ & strDest & """ """ & zipPwd & """", 1) Next Pause (1) Kill (strSource) Set FSO = Nothing End Function V-1-6 Add Folder_with _File_ SyS_ Ms_Access.rar

=============================================( صور + مرفق + فيديو ) 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

استاذ @gavan ❤️🌹 منتظره خبرتك يمكن يحتاج الى تعديل

بعد اذن استاذ @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

تأكد من تفعيل الوحدات النمطية والماكرو بالاكسس ثم اعادة التشغيل

استاذ @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

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

انا قدمة الدالة كاملة فقط تحديد رقم المطلوب من الاعدادة مفصلة داخل الدالة ويجد شرح داخل البرنامج - تغير لون بار العلوي للفورم -تغير لون نص بار العلوي للفورم -تغير لون الاطار المركز من الفورم - تغير لون الاطار الساكن غير مركز من النماذج المفتوحة - بمايمكن تجرب جميع الخصائص الاكسس ونظام الاكسس بتغير الفورم ملاحظة عند الانتهاء اغلق الاكسس ثم اعادة الفتح لبعض خصائص الاعدادة والبعض مثل محرر كتابة الاكواد عند بدايت التشغيل ثم اغلق النافذ لتغير الوان محرر الاكواد يعني لبعض العبث =============================================( فيديو ) تحميل المرفق Control_Up_bar_Form_On_Ms_Access_VX_Full.rar

طلب مساعده اشلون اغير لون الاطار نافذة الفورم ☕ اقصد دالة من خصائص hwn !!! مثلا =============================================( مرفق + فيديو ) Control_Up_bar_Form_On_Ms_Access_V1.rar

================================================== 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