TQTHAMI

والله وانا اخوك انا مبتدي كل ما فعلته جربته على الاجهزة الي عندي 2 منها يطلع فارغ الملف المضغوط و واحد شغال 100% لتنبية اسف الي شغال 2016 وليس 2019

تمام شغال 100% على اوفس 2019 الان جربته

نفس المشكلة التي عند الاخوان الملف المظغوط فارغ ويندوز 2010 اوفيس 2010 32بت ويندوز 2010 اوفيس 2016 32بت

وعليكم السلام هذي مشاركه بعد اذن الاساتذة الخانة الاولى التاريخ كما هو ( 2023/2/14 ) ضع في تنسيق الحقل yyyy/mm/dd الخانه الثانية ( فبراير ) ضع في تنسيق الحقل mmmm الخانة الثالثه ( 2023 ) ضع في تنسيق الحقل YYYY مرفق مثال تفقيط هجري وميلادي تفقيط التاريخ الميلادي والهجري.rar

ضع المؤشر على اخر خلية في المجموع واختر فرز من الاصغر الى الاكبر

If MsgBox("سيتم نقل سجل الموظف رقم " & Me.Cmb & " الى الجدول الثانى ", vbYesNo) = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO tbl2 ( [رقم الموظف], ha1, التاريخ ) SELECT tbl1.[رقم الموظف], tbl1.الاسم, tbl1.التاريخ FROM tbl1 WHERE (((tbl1.[رقم الموظف])=[forms]![frm1].[cmb]));" DoCmd.RunSQL "DELETE tbl1.* FROM tbl1 WHERE (((tbl1.[رقم الموظف])=[forms]![frm1].[cmb]));" Me.Requery DoCmd.SetWarnings True End If غير المسميات وضعه في حدث بعد التحديث ان شاء الله اكون وفقت في ماطلبت

السلام عليكم ورحمة الله وبركاتة لدي نموذج به مستعرض للملفات وارغب استخدام القائمة المنسدلة بدلا منه وفي المرفق كذا محاولة لم تنجح تشفير_Backup.accdb

السلام عليكم ورحمة الله اشكر الجميع على هذا التفاعل الجميل نعم هذا المطلوب اخي Eng.Qassim واسأل الله انه يوفق الجميع لما يحب ويرضى

وعليكم السلام شاهد المرفق Microsoft Access.rar

اعتذر من الجميع يبدو ان المشكلة في الاجهزة عندي طالما انها تعمل عندكم سوف اقوم كالعادة بفرمتت الاجهزة عندي والتجربة

ممكن ترفق المتال بالملف

عندي لم تنجح هل تم تجربته على اجهزتكم لان يمكن يكون مشكله عندي في الجهاز

للاسف لم تنجح

يسعد لي مساءك ابو احمد ياليت تكمل مشوارك في التعديل عليه

السلام عليكم ورحمة الله وبركاتة اسعدني مرورك مريت علية ولكن وجدت انه اكبر من امكانياتي البسيطة وحاولت قبل طرح سؤالي تجربة على الطريقه وبكل امتياز فشلت

السلام عليكم ورحمة الله وبركاتة يسعد لي مساءكم بالخير الاخ kkhalifa1960 اشكرك على تجاوبك ولكن قمت بتسبيط الملف التنفيذي ولا اعلم هل تم تسبيطه ام لا ولكن حصلت معي مشكله حيث ظهرت لي هذي الرسالة الاخ Ahmed_J مثال رائع لكن للاسف قمت بغير مسار الملف ولكنة لم يعمل معي وجربته بجهاز اخر ونفس الشي ومرفق لك التغير وقد يكون الخطاء من Private Sub cmd_Click() Set objFSO = CreateObject("Scripting.FileSystemObject") 'Set objFolder = objFSO.GetFolder("C:\Users\tf\Desktop\myfolder") Set objFolder = objFSO.GetFolder("C:\Users\tf1\OneDrive\Desktop\myfolder") If Me![cmd].Caption = "hide" Then Me.cmd.Caption = "show" If objFolder.Attributes = objFolder.Attributes And 2 Then objFolder.Attributes = objFolder.Attributes Xor 2 End If ElseIf Me![cmd].Caption = "show" Then Me.cmd.Caption = "hide" If objFolder.Attributes = objFolder.Attributes And 2 Then objFolder.Attributes = objFolder.Attributes Xor 2 End If End If End Sub

السلام عليكم ورحمة الله وبركاته دائما اقوم بالبحث قبل طرح سؤالي فقد استخدمت البحث ب أخفاء ملف أخفاء مجلد أخفاء مجلدات أخفاء ملفات تقريبا مررت على اكثر من 1103 موضوع تخص الاخفاء لم اجد طلبي فيها ولم اصل الى نتيجة واحدة واذا كان هناك ف يبدو اني لم استطيع العثور عليها

السلام عليكم ورحمة الله وبركاتة هناك امثله لتشفير المجلد وسؤال ؟ هل يوجد كود يخفي اي مجلد احددة مثلا ؟

السلام عليكم ورحمة الله وبركاتة الف الف مليون مبرووووك للأخ العزيز موسى الكلباني حقيقة متميز بنشاطه وتواجده المستمر وإبداعاته داخل المنتدى وخارجة وأتمنى له التوفيق والسداد وهذي الترقية يستحقها عن جدارة نسأل الله له التوفيق والنجاح والمزيد من الابداع

مبروك الترقية @Ahmed_J أدعو الله أن ييسر لك كل أمورك، وأن يكتب لك التوفيق في خدمة اخوانك في المنتدى

اهلا اخي العزيز kkhalifa1960 اسعد الله اوقاتك بكل خير اقولها بالفم المليان هذا البرنامج لك برمجيا انا قمت بتعديل كامل واستخدمة لي فقط وليس لشئ اخر ولو راجعت كلامي في الرد عليك لعرفت اني ابيه لنفسي فغيرت فيه اشياء كثير عموما الف شكر لك وسبق وقلت هذا ما ابحث عنه واعتذر لك وللاخوه جميعا انا لا اصمم ولا ابيع ولست بحاجه لهذا وانما استخدامات شخصيه ومنها تعرف المتقاعد يحب يسلي نفسة باي شي تحياتي لك اخي وارجو قبول عذري

تؤمن بالله ماشفت الرابط غير الان بعد رسالتك سوف اطلع عليه تحياتي

نعم بارك الله فيك انتهت الجزئية الثانية باقي الاولى والتي هي ادراج بيانات الصور اذا تم اضافة اكثر من صورة في الجدول

السلام عليكم ورحمة الله يسعد لي اوقاتكم اخي الاستاذ الموقر ابوخليل ذوقك اجمل وارقي وانتم اهل الابداع اشكرك على سرعة الاجابة وكما ذكرت ان البيانات لا تتنتقل جربتها في 3 اجهزة عندي اخي العزيز jjafferr اخي لا اعلم اني تجاوزت الانظمه ولكني ذكرت المشكله في العنوان وفي السطر المكتوب وعموما اسف اذا تجاوزت انظمة المنتدى بدون علم اوقصد ذوقك اجمل وارقي يبدو ان الامطار والبرد والاعاصير عندكم في عمان معكرة جوك (( مداعبة ) تحياتي لكم جميعا

جرب هذا طبعا بعد اذن الاساتذه Private Sub Form_Load() If Date <= #11/18/2023# Then MsgBox " .......معذرة، لقد انتهت فترة صلاحية هذه النسخة التجريبية، من فضلك راجع ", vbCritical + vbInformation DoCmd.Quit End If End Sub