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

بناء على اقتراخ الاستاذ @محمد احمد لطفى..قمت بعمل مربع نص لادخال المسار 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 هذا تشريف للموقع والاعضاء ، وانت اهل لذلك ، فأهلا وسهلا بك 🙂 جعفر

مثال أولي قابل للتطوير بانتظار تجاربكم ومراجعاتكم بخيرها وشرها 🙂 PeriodsPrepare_01.accdb

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

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

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

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

السلام عليكم تستاهل كل خير اخي واستاذي موسى اتمنى لك كل التوفيق

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

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

اخي الحبيب الغالي اخجلتم تواضعنا لا داعي للاسف بين الاحبة اخي وانا كنت بهزررررر حفظكم الله وراعاكم جميعا اخواني الفضلاء

ضع هذا الكود في حدث الشيت Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Range("D2").Value = Range("A1").Value End Sub

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

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

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

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

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

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

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

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

مع قناتنا علي اليوتيوب The new in Excel نقدم شرح لبرنامج إكسيل ( شامل & بشكل موجز & وفقا لأحدث الإصدارات & مع التعرض لكل ideas and tricks) اليوم نقدم موضوع الفلتر المتقدم advanced filter شرح شامل مع تقديم كل الافكار الخاصة بهذا الموضوع و كذلك ال tricks التي تعطي أفضلية لمتابعينا https://youtu.be/S4_888dhQAA

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

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

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

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

للاسف لم تنجح

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

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

نظمت لك الكود بدون محرر الفيجوال جرب يمكن يشتغل معك. Private Sub cmd_Click() set objFSO As Object, objFolder As Object Set objFSO = CreateObject("Scripting.FileSystemObject") 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 Else Me.cmd.Caption = "hide" If objFolder.Attributes = objFolder.Attributes Xor 2 Then objFolder.Attributes = objFolder.Attributes And 2 End If End If Set objFSO = Nothing Set objFolder = Nothing End Sub

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

هذا هو الملف الأصلي أخي .. @طاهر الوليدي 🙂 عدل فيه كما تشاء 😊 TimeSheet Project.accdb

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

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

وعليكم السلام أخي أزهر 🙂 طلبط بسيط بإذن الله ، ولكن سأعرض عليك خدمات أكثر 😊 - هل تريد نقل الملف أيضا إلى مجلد بجانب قاعدة البيانات ؟ - وإضافة زر لفتح الملف .. ؟ - وزر آخر لحذفه ؟ إذا كانت إجابتك بنعم .. فسأرفق لك الأكواد .. أما إذا كنت فقط ستكتفي بالسؤال فهذا هو الكود الذي طلبته 🙂 : On Error GoTo ErrHandler Dim fd As Object Dim filedialogPath As String Set fd = Application.FileDialog(1) fd.AllowMultiSelect = False fd.Title = "حدد الملف المطلوب" fd.Filters.Clear fd.Filters.Add "كل الملفات", "*.*" If fd.Show = True Then 'Debug.Print fd.SelectedItems(1) Me.filesource = fd.SelectedItems(1) Else MsgBox "لم تقم باختيار أي ملف" Exit Sub End If ErrHandler: If Err.Number = 0 Then Exit Sub Else MsgBox "Error Number : " & Err.Number & " :::: " & Err.Description End If

السلام عليكم 🙂 هذا المنتدى للتبادل العلمي ، حتى يستفيد منه الجميع ، وليس صاحب الموضوع / السؤال فقط 🙂 فيا ريت ان نضع الاجابة بالتفصيل في الرد (سواء الخطوات او الكود او صور من شاشة البرنامج) ، ولا نتوقف عند ارفاق المرفق الذي به الرد / الجواب ، والسبب هو ، حتى يستطيع الجميع رؤية الرد ومعرفته مباشرة ، دون اللجوء الى انزال المرفق وفهمه 🙂 نعم ، هذا عبء إضافي ، ولكن نتائجه ستكون مثمرة ان شاء الله 🙂 وتذكروا ، هذا مجرد طلب ورجاء ، وليس اجباري 🙂 شكرا جزيلا 🙂 جعفر

أخي الكريم : الكود مصمم بحيث يحفظ الملفات بإمتداد بي دي إف ومن الواجب أن يكون لأي ملف إسم وعليه يجب ان تشير إلى اسم ملف الحفظ الذي ترغب فيه إما عن طريق وظع الاسم في خلية مثلا أو داخل الكود وإليك تعديل الكود لكن عند الضغط لتشغيل الكود سوف يظهر اسم الملف ثابت " محمد " ولابد لك عند اعادة استخدام الكود أن تدخل لنافذة البرمجة وتعدل الاسم Sub Picture2_Click() ' ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "محمد", Quality:=xlQualityMinimum, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub أما أن يكون الاسم في خلية من وجهة نظري يجعل هناك مرونة في العمل وخاصة إذا كنت تريد تحفظ مثلا فواتير بأسماء عملاء أو شهادات واستخدام حلقة تكرارية

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