نجوم المشاركات

بناء على اقتراخ الاستاذ @محمد احمد لطفى..قمت بعمل مربع نص لادخال المسار Hide.mdb

بارك الله فيك اخي Eng.Qassim وجميع الخبراء والاعضاء في ذلك المنتدي الرائع وانا خارج الموضوع ماشي بارك الله في الجميع ونفع الله بكم

واذا اردت تقرأ التاريخ من اليمين يصبح هكذا format([dateFiled];"yyyy-mm")

ومشاركة مع اخي موسى يتم تعريف متغير عام .. ويتم تغيير قيمة المتغير من النموذج عند فتح التقرير If hedAPage = 1 Then Me.PageHeaderSection.Visible = False Me.PageFooterSection.Visible = False End If اخي موسى لاحظ اننا كنا نعمل على الاجابة في الوقت نفسه Database4.accdb

تأكد يا زول ، انت ما جربتها الحقول الثلاث : اسم الطالب / السنة الدراسية / الفترة ، مفاتيح مرتبطة مع بعض يستحيل الحاق سجل مشابه للحقول الثلاث .

وعليكم السلام ورحمه الله وبركاته اتفضل اخى @husseinharby Private Sub Command2_Click() 'للسماح بالتعديل Me.Table1_subform.Form.AllowEdits = True End Sub Private Sub Command3_Click() 'لقفل التعديل Me.Table1_subform.Form.AllowEdits = False End Sub بالتوفيق New_1.accdb

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

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

format([dateFiled];"mm-yyyy")

وضعت هذه الدالة في الشروط أسفل الحقل periode : =DMax("[periode]";"[Table1]") هكذا : وهذه النتيجة 🙂 : Last Date In Query.accdb

تم الامر كما قلت اخي الفاضل وبفضل الله عاد المجلد كما كان بدون اخفاء مشكور جدا اخي والمطلوب التعديل في النموذج كما قلت انت اخي الفاضل واليك النموذج بالمرفقات Hide.mdb

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

استاذ مصطفى محمود مصطفى لحل الاشكالات يفضل ترحيل الدرجات الى قائمة المسودة قيم ومن ثم تنفيذ الكود احترامي لشخصك الكريم . والشكر للاستاذ الاخ AbuuAhmed

اخواني الكرام جربت الملف اللي بيخفي المجلد وتم اخفاءه فعلا وذهبت الي خصائص العرض لاظهار الملفات والمجلدات المخفية ولكنه لم يظهر والحدث الموجود بالملف اللي شغلته هو : Dim fso As Object Dim fldr As Object Dim folderPath As String Set fso = CreateObject("Scripting.FileSystemObject") Set fldr = Application.FileDialog(4) If fldr.Show = -1 Then folderPath = fldr.SelectedItems(1) End If If folderPath <> "" Then fso.GetFolder(folderPath).Attributes = fso.GetFolder(folderPath).Attributes + 2 MsgBox "Folder attributes set to hidden." Else MsgBox "No folder was selected." End If Set fldr = Nothing Set fso = Nothing فارجو عمل كود للاخفاء والاظهار وليس الاخفاء فقط وشكرا

السلام عليكم 🙂 اخوي موسى @Moosak هذا تشريف للموقع والاعضاء ، وانت اهل لذلك ، فأهلا وسهلا بك 🙂 جعفر

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

السلام عليكم ,, مبارك عليكم أخي موسى وتستاهلها , أعانكم الله

شكرا ابو احمد .. تكثر الحاجة لمثله

وعليكم السلام أخي @حامل المسك 🙂 لاحظ أن لرأس وتذييل الصفحة خصائص وإعدادات خاصة بها مثلها مثل بقية العناصر .. لذلك يمكنك التحكم بها أيضا بالكود .. كما تتحكم بالعناصر الأخرى عن طريق مناداتها باسمها .. ______________________________________________________________ وعليه يمكنك كتابة كود بشرط .. ( مثلا تعمل في النموذج ==> )

اشكرك استاذ/ محمد احمد لطفى بارك الله فيك انت انسان محترم وجزاك الله كل خير

شكرا ابوبسملة

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

جزاكم الله كل خير وبالنسبة بدون مسار Dim objFSO As Object Set objFSO = CreateObject("Scripting.FileSystemObject") Dim objFolder As Object Set objFolder = objFSO.GetFolder("D:\NameFolder") objFolder.Attributes = objFolder.Attributes + 2

للفائدة هذا مثال لتطبيق الحل sum.accdb

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

وعليكم السلام ورحمة الله وبركاته 🙂 ربما الخطأ في اسم الجدول .. ألاحظ أنك وضعت اسم الاستعلام في الدالة .. MbljMsdd:Dsum("TotalMosthk";"HafeTotalKlsaQry";"PaydDon=-1 AND MhdrTyp=" & [MhdrTyp])

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

حضرتك لو كررت هيعكس هيظهر ويرجى تطوير الكود أن يكون مكان الملف فى الكود وليس اختياره من شاشة الويندوذ واختيار الاظهار و الاخفاء من النموذج و السبب أنه اذا كان مخفى يجب اظهار ملفات النظام لاختيار مرة ثانية و والسبب الاخر اذاى كان هناك الكثير من السجلات (الملفات) يمكن التحكم بها من خلال النموذح فى عرض السجل

أرني ماذا فعلت .. لعلك على بعد خطوة من النجاح 🙂

مبارك ان شاء الله ـ اختيار موفق من فريق الموقع

كما وضحت لك subject ( الموضوع ) مكرر ثلاث مرات غالبا الرسالة تشتمل على التالي : من : بريد المرسل الى : بريد المرسل اليه الموضوع : نص الرسالة : الموضوع سيصبح هكذا : .subject = "شهادة / مدرسة المستقبل الخاصة لغات" .subject = Me.myname----- احذف هذا .subject = Me.sub ------ احذف هذا ويمكن جعل اسم المدرسة هي قيمة الحقل Me.myname هكذا : .subject = "شهادة" & " " & "/" & " " & Me.myname

المنقذ استاذ موسى اشكرك اشكرك اشكرك الارسال يعمل بكفاءة عالية واحمد الله ولكن هناك ملحوظة هامة عند عدم اختيار تقارير بيتم الارسال ارجو وضع كود تنبية عند عدم اختيار تقرير ينبه المستخدم ( برجاء اختيار التقرير قبل الارسال) وبذلك يكون اكتمل المشروع بفضل الله وبفضلك ولا انسى دعم ومساندة ومشاركة الراقى الجليل ابو خليل وكذلك بعض الاخوة الكرام خبراء المنتدى فى المساعدة وهذا ما عهدنه دوما فى منتدى الوطن العربى اوفيسنا بشكر كل القائمين عليه ادارين وخبراء واعضاء -----------------------------------------------------------------------------------------

ارجو وضع وصلة الحساب الاخر و تحديد أيهما تفضل الاحتفاظ له

اخي معني هذا الخطأ #N/A .... يعني الاسم التي تبحث عنة غير موجود ... تم حل الخطأ ... اختار الاسم من القائمة المنسدلة تفضل Test.xlsx

تفضل Hide.mdb

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

جرب هذا الكود أخي @TQTHAMI 🙂 شغله مباشرة واختر المجلد المطلوب .. Sub SetFolderAttributesToHidden() Dim fso As Object Dim fldr As Object Dim folderPath As String Set fso = CreateObject("Scripting.FileSystemObject") Set fldr = Application.FileDialog(4) If fldr.Show = -1 Then folderPath = fldr.SelectedItems(1) End If If folderPath <> "" Then fso.GetFolder(folderPath).Attributes = fso.GetFolder(folderPath).Attributes + 2 MsgBox "Folder attributes set to hidden." Else MsgBox "No folder was selected." End If Set fldr = Nothing Set fso = Nothing End Sub

أنا عدلت على الكود جرب مرة أخرى ، وهذا ما عندي عزيزي.

للاسف لم تنجح

اخي ابوبسمله جزاك الله خيرا وبارك الله في علمك وصحتك

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

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

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

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

وهنا صولات وجولات حول هذا الموضوع 🙂

السلام عليكم ورحمة الله وبركاتة يسعد لي مساءكم بالخير الاخ 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

الضبط ينبع من الجداول اولا الجدول الاساسي لا يوجد فيه حقل للفترة لذا اضفت الحقل الحل هو جعل الحقول الثلاث مفاتيح بحيث اذا تساوت القيمة يمنع الالحاق ( رقم الملف / العام الدراسي / الفترة ) انظر المرفق وشغل الاستعلام ثم شغلة مرة اخرى ثم غير في واحد من السجلات ثم شغل الاستعلام وانظر النتيجة استعلام الحاق بشروط دون تكرار2.rar

السلام عليكم جرب الملف المرفق لاخفاء او اظهار المجلد مع التاكد من مسار المجلد تحياتي hide_show.accdb

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

تفضل يا أخي الفاضل Test.rar