TQTHAMI

https://www.officena.net/ib/topic/117103-دخول-وخروج/#comment-705579 راجع هذا الرابط

السلام عليكم ورحمة الله وبركاتة مرفق مثال وضعت كود ارسال رسالة نصية واتس وحصل تعطيل لكود اخر اسال الله العلي العظيم ان اجد حلا له عند اخواني في هذي المنتدى العامر code.accdb

CurrentDb.Execute "Update Tbl_re1 set w = 0" Msgbox "تم الاستبدال" هذا كود استبدال القيمة بصفر او ضع القيمة المناسبة الكود للأخ Moosak

السلام عليكم ورحمة الله وبركاته عزيزي المنتسب عند وضع مثالك يجب ان يكون المثال واضح ومفهوم ومبين كل ما تطلبه حتى يتسنى لشباب فهم طلبك وحله سريعا لأن الشباب هنا لديهم أشغالهم اليومية ولكن يستقطعون جزء من وقتهم لمساعدتك ويبذلون جهد كبير لأثبات انهم قادرون على حل مسألتك سوا مجهود فردي أو جماعي فيتوجب عليك بعد حل مسألتك التالي: 1 – الشكر لله أولا وثم الشكر لمن قام بمساعدتك ثانيا 2 – وضع أشاره أفضل إجابة على الإجابة التي تناسب طلبك 3 – وضع لأيك لمن حل طلبك أو شارك في الحل (من لا يشكر الناس لا يشكر الله)

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

التحية والتقدير للاح الاستاذ Eng.Qassim تم وضع كود استاذنا الفاضل وإضافة نقل المحصص الى حقل البحث اضغط على المخصص دبل كلك تم اطبع mus1.rar

هذي مجموعه موجودة في المنتدي جمعتها لك شريط بار.rar

وجهة نظر لو كل شخص نزل برنامج كامل ايا كان البرنامج ومن ثم يتم ادراجها في صفحة خاصة بالبرامج الجاهزة و يتم ترشيح البرنامج الافضل منها ويتم تحسينه مع اليقين التام بان في المنتدى الكثير من العباقرة الذي لا يستغرق معهم البرنامج سوى ساعات تحياتي للجميع

هذا المثال قد يفيدك مثال سند.accdb

والله وانا اخوك انا مبتدي كل ما فعلته جربته على الاجهزة الي عندي 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