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

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

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

مثال أولي قابل للتطوير بانتظار تجاربكم ومراجعاتكم بخيرها وشرها 🙂 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

جزاك الله خيرا استاد Moosak

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

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

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

تفضل أخي أزهر 🙂 (1) هذه الأكواد الاثلاثة لأزرار [إضافة ملف] و [فتح الملف] و [حذف الملف] : Private Sub AddFilesBtn_Click() '================================================================ هذا الجزء يوضع على الزر الذي يضيف الملف Dim file As String Dim fileName As String Dim SavePath As String If Me.NewRecord Then MsgBox "أكتب التفاصيل أولا", vbOKOnly, "": Exit Sub file = selectFile If IsBlank(file) Then Exit Sub fileName = GetFileName(file) SavePath = BECurrentPath & "attachments\" & [ID] & "\" & fileName ' يتم حفظ الملف في مجلد المرفقات بجانب قاعدة البيانات في مجلد بنفس رقم الآيدي MkDir (BECurrentPath & "attachments\") MkDir (BECurrentPath & "attachments\" & [ID] & "\") FileCopy file, SavePath ' حفظ المسار في مربع النص Me.filepath = fileName Me.Refresh MsgBox "تم إضافة الملف بنجاح" End Sub '================================================================ هذا الجزء يوضع على الزر الذي يفتح الملف Private Sub BrowserBtn_Click() On Error GoTo ErrorFix If Not IsBlank(Me.filepath) Then If IsFileExists(Me.filepath) = False Then MsgBox "لا يمكن العثور على الملف" Else OpenPath Me.filepath End If Exit Sub Else MsgBox "لا يوجد مرفقات" Exit Sub End If ErrorFix: If Err.Number = 0 Then On Error Resume Next Else MsgBox Err.Number & "\\\" & Err.Description End If End Sub '================================================================ هذا الجزء يوضع على زر الحذف Private Sub DeletBtn_Click() On Error GoTo whathapen If MsgBox("هل أنت متأكد من رغبتك في حذف المرفق ؟", vbYesNo, "تأكيد الحذف") = vbYes Then Else Exit Sub End If If Not IsBlank(Me.filepath) Then If IsFileExists(Me.filepath) = False Then MsgBox "لا يمكن العثور على الملف" Exit Sub Else DleteFolder BECurrentPath & "attachments\" & [ID] Me.Attachment = "" MsgBox "تم حذف الملف" Exit Sub End If Else MsgBox "لا توجد مرفقات" Exit Sub End If whathapen: If Err.Number = 53 Then MsgBox "لا توجد ملفات لحذفها" Exit Sub ElseIf Err.Number = 0 Then On Error Resume Next Else MsgBox Err.Number & "\\\" & Err.Description End If End Sub (2) وهذه الأكواد ضرورية لتشغيل الأكواد السابقة .. ضعها في موديول منفصل : Public Function selectFile() On Error GoTo ErrHandler Dim fd As FileDialog Dim filedialogPath As String Set fd = Application.FileDialog(msoFileDialogFilePicker) fd.AllowMultiSelect = False fd.Title = "حدد الملف المطلوب" ' fd.InitialFileName = CurrentProject.Path fd.Filters.Clear fd.Filters.Add "كل الملفات", "*.*" If fd.Show = True Then selectFile = fd.SelectedItems(1) ' Exit Function Else MsgBox "لم تقم باختيار أي ملف" Exit Function End If ErrHandler: If Err.Number = 0 Then Exit Function Else MsgBox "Error Number : " & Err.Number & " :::: " & Err.Description ' End If End Function Public Function IsBlank(arg As Variant) As Boolean Select Case VarType(arg) Case vbEmpty IsBlank = True Case vbNull IsBlank = True Case vbString IsBlank = (LenB(arg) = 0) Case vbObject IsBlank = (arg Is Nothing) Case Else IsBlank = IsMissing(arg) End Select End Function Public Function GetFileName(txtPath As String) As String ' To Extract File Name From A given Path GetFileName = Right(txtPath, Len(txtPath) - InStrRev(txtPath, "\")) End Function Public Function IsFileExists(txtPath As String) As Boolean ' To check whether a given file or folder exists or not If Len(Dir(txtPath, vbDirectory)) = 0 Then IsFileExists = False Else IsFileExists = True End If End Function Public Sub OpenPath(strpath As String) Shell "explorer.exe" & " " & strpath, vbNormalFocus End Sub Public Function DleteFolder(FolderPath As String) Dim fs As Object Set fs = CreateObject("Scripting.FileSystemObject") fs.DeleteFolder FolderPath, True Set fs = Nothing End Function Public Function BECurrentPath() On Error GoTo ErrHandler Dim FullLinkedPath As String Dim LinkedDBPath As String FullLinkedPath = Nz(DLookup("Database", "MSysObjects", "Type=6"), "") If FullLinkedPath <> "" Then LinkedDBPath = Left(FullLinkedPath, InStrRev(FullLinkedPath, "\") - 1) BECurrentPath = LinkedDBPath & "\" Else BECurrentPath = CurrentProject.Path & "\" End If ErrHandler: If Err.Number = 0 Then Exit Function Else MsgBox "Error Number : " & Err.Number & " :::: " & Err.Description End Function

يجب إرفاق الملف حتى يمكن لأحد المساعدة

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

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

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

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

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

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

تفضل Hide.mdb

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

للاسف لم تنجح

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

نظمت لك الكود بدون محرر الفيجوال جرب يمكن يشتغل معك. 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

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

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

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

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

هل هذا ماتبغاه SecretFolder.rar

اعتقد اني رأيت مواضيع في المنتدى تتحدث عن ذلك .... اما باخفاء المجلد أو تحويله الى ملفات نظام ... والله اعلم .... ابحث عنها اخي الكريم

وعليكم السلام أخي أزهر 🙂 طلبط بسيط بإذن الله ، ولكن سأعرض عليك خدمات أكثر 😊 - هل تريد نقل الملف أيضا إلى مجلد بجانب قاعدة البيانات ؟ - وإضافة زر لفتح الملف .. ؟ - وزر آخر لحذفه ؟ إذا كانت إجابتك بنعم .. فسأرفق لك الأكواد .. أما إذا كنت فقط ستكتفي بالسؤال فهذا هو الكود الذي طلبته 🙂 : 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 أما أن يكون الاسم في خلية من وجهة نظري يجعل هناك مرونة في العمل وخاصة إذا كنت تريد تحفظ مثلا فواتير بأسماء عملاء أو شهادات واستخدام حلقة تكرارية