كل الانشطه

السلام عليكم ورحمة الله وبركاته لدي قاعدة بيانات مرفقة خاصة باظهار ايام الغياب والتاخير في تقرير شهري قام بمساعدتي فيها بشمهندس Barna بارك الله فيه ولقد قمت بتغيير اسم حقل no في جدول emp الى اسم noo وتغيير تسمية حقل no في جدول hol الى اسم noo -وسبب تغيير الاسم no لانه من الاسماء المحجوزة- وعند تحميل النموذج frmmonth لاظهار التقرير الشهري للغياب وبعد تغيير مسمى الاسماء حدث الخطاء المبين بالصور المرفقة ولم استطع الوصول الى سبب الخطاء تحياتي ظهور خطاء بعد تغير مسمى حقلين.accdb

ممكن توضح ما هي طريقة الاختيار المطلوبة

تفضل اخي الكريم التعديل شكرا للاخ @Foksh على الملاحظة . MyArchfa.accdb

المرجوا من الإخوان الكرام مساعدتي الصفحة الأولى بها جدول بيانات موظفين أريد اختيار حسب إرادتي مجموعة من الموظفين مثلا ليظهرو لي في الصفحي الثانية (أي بمعني يظهر فقط الموظفين الذين اخترت) smr.xlsx

اخي الكريم ، الرسالة الاولى تظهر بسبب خطأ في المسار الناتج عند الحفظ ، لاحظ وجود أشارة / مكررة مرتين متتاليات في المسار الظاهر في الرسالة ، ثم سأرفق لك التعديل ولكن تأخري بسبب خروجي من العمل باكراً . وقد ساهم الأستاذ @سامي الحداد جزاه الله خيرا 🤗

السلام عليكم امل من الاخوة ايقاف عجلة الماوس في المثال المرفق عجلة الماوس.mdb

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

السلام عليكم مشاركة مع الاستاذ @Foksh جزاه الله خيرا اليك التعديل حسب ما طلبت Private Sub cmdSave_Click() If IsNull(Me.book_Bath) Or Me.book_Bath = "" Then MsgBox "الملف غير محدد" Exit Sub End If SourceFile = Me.book_Bath Dim targetFolder As String If Me.book_Type = "وارد" Then targetFolder = CurrentProject.Path & "\" & "\Files\Wared\" ElseIf Me.book_Type = "صادر" Then targetFolder = CurrentProject.Path & "\" & "\Files\Sader\" Else MsgBox "نوع الكتاب غير معروف" Exit Sub End If If Dir(targetFolder, vbDirectory) = "" Then MkDir targetFolder End If Dim fileExt As String fileExt = Split(SourceFile, ".")(UBound(Split(SourceFile, "."))) DestinationFile = targetFolder & "\" & Me.book_Num & "." & fileExt FileCopy SourceFile, DestinationFile Me.book_Bath = DestinationFile Me.imageType = fileExt MsgBox "تم حفظ الكتاب" Me.Requery End Sub Private Sub ComView_Click() On Error Resume Next If IsNull(book_Num) Then Beep MsgBox "رقم الكتاب مطلوب" Exit Sub End If If IsNull(Me.imageType) Then MsgBox "نوع الصورة مطلوب" Exit Sub End If Dim filePath As String Dim fileName As String Dim foundFilePath As String fileName = Me.book_Num & "." & Me.imageType foundFilePath = FindFile(CurrentProject.Path & "\Files\", fileName) If foundFilePath = "" Then MsgBox "لا يوجد كتاب" Exit Sub End If ShellExecute Me.hwnd, "open", foundFilePath, "", "", 1 End Sub Function FindFile(ByVal folderPath As String, ByVal fileName As String) As String Dim fso As Object Dim folder As Object Dim subFolder As Object Dim file As Object Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(folderPath) For Each file In folder.Files If file.Name = fileName Then FindFile = file.Path Exit Function End If Next file For Each subFolder In folder.SubFolders FindFile = FindFile(subFolder.Path, fileName) If FindFile <> "" Then Exit Function Next subFolder Set fso = Nothing Set folder = Nothing Set subFolder = Nothing Set file = Nothing FindFile = "" End Function واليك الملف بعد التعديل بالتوفيق MyArchfa.rar

السلام عليكم ورحمة الله بالنموذج حقل ( lgna_1) اقوم فيه بادخال رقم اللجنه والتى تتكرر مرتين بواقع 2 معلم ارجو اذا كان نوع الاول والثانى أنثى أى = 2 تظهر رساله عند تحديث الحقل برقم اللجنة تفيد بان المعلمان لا يجوز ان يكون نوعهما = 2 وكذلك الديانة لا يجوز ان يكون المعلمان ديانتهما = 2 مع شكرى وتقديرى khaled.rar

السلام عليكم ورحمة الله وبركاته، أخي العزيز، أتمنى أن تكون بخير وسعادة. أشكرك على جهودك واستعراضك الدقيق للمعلومات. وفي الحقيقة، تم تسليم العمل الذي قمت به وأثار إعجابي بالاحترافية التي أظهرتها فيه. لكن، يبدو أن القصور قد يكون من جانبي في عدم وضوح بعض النقاط في الشرح السابق للموضوع. للتوضيح أكثر، يمكن أن يتضمن كل موقف عدة متغيرات، مثل اجتماع واحد أو عدة اجتماعات، أو قد لا يكون هناك اجتماع بالمرة. كما يمكن أن يتضمن دورة واحدة أو عدة دورات، بعدة نزولات أو نزول واحد، أو لا يكون هناك نزول على الإطلاق، بالإضافة إلى توزيعات متعددة أو توزيع واحد. الأهم هو أن كل موقف يتضمن رقمًا محددًا وتاريخًا ويومًا معينًا. المطلوب هو كالتالي: 1. يجب أن تكون الخلاصة اليومية أو الأسبوعية أو الشهرية أو السنوية قابلة للاستخراج من خلال نموذج، كما قمتم بعمله مشكورين. 2. عند ظهور التقرير سواء اليومي أو الأسبوعي أو الشهري أو السنوي، يجب أن يتضمن مضمون التقرير الدورات في جدولها، مع اسم الدورة وعدد المشاركين وتاريخ التسجيل ومكان الدورة، دون ذكر أسماء المشاركين. 3. بالنسبة لما يتعلق بالاجتماعات، يجب أن يظهر النزول والتوزيع في منتصف الجدول بشكل طبيعي، دون احتساب إجماليات، وأن يتم إضافتها إلى التقرير كما هو موضح في المرفق الذي أرسلته سابقًا. مما لاحظت في عملك المشكور عليه هو هو انه عندفتحه لايظهر في التقرير مايخص النزول ابدا كما انني اضفت دورة ونزول الى الموقف رقم اربعة ولم تظهر في التقرير أرجو أن يكون هذا واضحًا، وأن أكون قد قد توفقت في شرح المطلوب بشكل صحيح. في حال وجود أي استفسارات أو توضيحات إضافية، فلا تتردد في طرحها. مع فائق الاحترام والتقدير، [اخوك صالح الصالحي ] السلام عليكم ورحمة الله وبركاته، أخي العزيز، أتمنى أن تكون بخير وسعادة. أشكرك على جهودك واستعراضك الدقيق للمعلومات. وفي الحقيقة، تم تسليم العمل الذي قمت به وأثار إعجابي بالاحترافية التي أظهرتها فيه. لكن، يبدو أن القصور قد يكون من جانبي في عدم وضوح بعض النقاط في الشرح السابق للموضوع. للتوضيح أكثر، يمكن أن يتضمن كل موقف عدة متغيرات، مثل اجتماع واحد أو عدة اجتماعات، أو قد لا يكون هناك اجتماع بالمرة. كما يمكن أن يتضمن دورة واحدة أو عدة دورات، بعدة نزولات أو نزول واحد، أو لا يكون هناك نزول على الإطلاق، بالإضافة إلى توزيعات متعددة أو توزيع واحد. الأهم هو أن كل موقف يتضمن رقمًا محددًا وتاريخًا ويومًا معينًا. المطلوب هو كالتالي: 1. يجب أن تكون الخلاصة اليومية أو الأسبوعية أو الشهرية أو السنوية قابلة للاستخراج من خلال نموذج، كما قمتم بعمله مشكورين. 2. عند ظهور التقرير سواء اليومي أو الأسبوعي أو الشهري أو السنوي، يجب أن يتضمن مضمون التقرير الدورات في جدولها، مع اسم الدورة وعدد المشاركين وتاريخ التسجيل ومكان الدورة، دون ذكر أسماء المشاركين. 3. بالنسبة لما يتعلق بالاجتماعات، يجب أن يظهر النزول والتوزيع في منتصف الجدول بشكل طبيعي، دون احتساب إجماليات، وأن يتم إضافتها إلى التقرير كما هو موضح في المرفق الذي أرسلته سابقًا. مما لاحظت في عملك المشكور عليه هو هو انه عندفتحه لايظهر في التقرير مايخص النزول ابدا كما انني اضفت دورة ونزول الى الموقف رقم اربعة ولم تظهر في التقرير أرجو أن يكون هذا واضحًا، وأن أكون قد قد توفقت في شرح المطلوب بشكل صحيح. في حال وجود أي استفسارات أو توضيحات إضافية، فلا تتردد في طرحها. مع فائق الاحترام والتقدير، [اخوك صالح الصالحي ]

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

السلام عليكم ورحمة الله مرفق ملف يعمل بشكل جيد في اظهار بيانات العملاء والموردين ولكن المشكلة عندي اني اريد اظهار صورة المنتج في ورقة البيانات العامة عند اختيار اسم المنتج من القائمة المنسدلة في العمود A وبالتالي اظهار الصورة في ورقة العملاء او الموردين بشكل تلقائي كما هي في بقية البيانات . ارجو منكم المساعدة وجزاكم الله خير الجزاء المبيعات.xlsm

اعتقد بسبب كثرة الفلترة التي تتم على النموذج . * مجرد رأي قابل للصواب والخطأ

شوف هذا التعديل هو المطلوب ؟؟ myArchfa.accdb

جرب هدا Option Explicit Private Sub Workbook_BeforePrint(Cancel As Boolean) If ThisWorkbook.ActiveSheet.Name = "Sheet1" Then Call Macro2 End If End Sub

شكرا لحضرتك كنت اريد الرسالة بها مفتاحين هل تريد إضافة تحاليل لهذا المريض نعم يذهب المؤشر النموذج الفرعي عند الضغط علي زر لا يتم حذف السجل بالكامل من النموذج الرئيسي

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

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

السلام عليكم استاذي الفاضل Foksh ورحمة الله وبركاته جزيل الشكر والامتنان لحضرتك جزاك الله خيرا استاذي الفاضل هناك مشكلتين 1 - هي عند استدعاء ملف ال بي دي اف من الحاسوب لكي اسجل رقمه وتريخه لن يظهر في شاشة البرنامج 2 - عند البحث برقم الكتاب او موضوعه ايضا لايظهر عند النقر على زر امر عرض حتى يتسنى لي طباعته مع وافر التحايا

تم التحديث في المشاركة السابقة ، رغم ان الملف قام بالتحميل ، ولكن للتأكيد

الخبير الفاضل LAB_2024 - JO.zip لايقبل التحميل برجاء اعادة الرفع

لاحظت أن المشكلة في ان النموذج الفرعي يفقد مصدر سجلاته ، فقمت بتعديل بسيط ، جرب المرفق التالي :- Fillter.accdb

بعد الضغط على اى فلتر قم الغاء الفلتر جرب تغيير مثلا السنه الماليه الى 2015 لن يستجيب

طيب يا صديقي ، ممكن تفسر أكتر المشكلة بعد ما تلغي الفلترة بالجملة دي ؟؟

لا جديد اخي المشكلة قائمة ولم تعطيني فكرة عن التغييرات التى اجريتها