TQTHAMI

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بت

وعليكم السلام 

هذي مشاركه بعد اذن الاساتذة 

مرفق مثال تفقيط هجري وميلادي

تفقيط التاريخ الميلادي والهجري.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

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

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

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

عندي لم تنجح 

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

للاسف لم تنجح 

9 دقائق مضت, AbuuAhmed said:

هذا الكود أنا وجدته قبل مشاركات الزملاء ليعمل من خلال الاكسل وأنا عدلت عليه ليعمل من خلال الأكسس ولكن بعد تجربتي له لم يعمل بشكل صحيح وتوقفت عن وضعه لكم

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

السلام عليكم ورحمة الله وبركاتة

اسعدني مرورك 

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

السلام عليكم ورحمة الله وبركاتة

يسعد لي مساءكم بالخير

الاخ 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 موضوع تخص الاخفاء لم اجد طلبي فيها 

ولم اصل الى نتيجة واحدة 

واذا كان هناك ف يبدو  اني لم استطيع العثور عليها 

السلام عليكم ورحمة الله وبركاتة 

هناك امثله لتشفير المجلد 

وسؤال ؟

هل يوجد كود يخفي اي مجلد احددة مثلا ؟