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

السلام عليكم ورحمة الله وبركاته أسعد الله أوقاتكم بكل خير وسرور .. وتقبل الله منا ومنكم صالحات الأعمال .. 😊🤲🏻 يطيب لي أن أقدم لكم هذا الهدية المتواضعة بمناسبة هذا الشهر الفضيل 🙂🌼🎁 استبدل الرسائل العادية في أكسس برسائل ذات تصاميم قمة في الإبداع وبمميزات إضافية . من مميزات هذه الرسائل: - تصميم جميل وألوان جذابة. - خاصية ذاتية الاختفاء. - عنوان رئيسي + عنوان فرعي - تحكم بالنص ( عربي - إنجليزي ) ( توسيط - محاذاة على اليمين أو اليسار) - سهلة الاستخدام . الشرح على اليوتيوب : التحميل 🙂 Moosak MsgBox.accdb ولا تنسوني من صالح دعواتكم 😊🌷🌼🌹

هذه طريقتي Dim QRLines As Variant QRLines = Split(Replace(QRText, Chr(13), ""), Chr(10)) ' يتم قراءة الأسطر من حقل QR ومن ثم تجزئتها إلى مصفوفة ' من ثم يتم إسناد القيم من المصفوفة إلى الحقول Textbox1 = QRLines(0) Textbox2 = QRLines(1) Textbox3 = QRLines(2) Textbox4 = QRLines(3)

السلام عليكم ورحمة الله وبركاته استكمالا لاستبدال التحديث عن طريق حقل Attatchment في الجدول (xVer)الجدول المضاف للبرنامج والاستغناء عن مجلد المشاركة Share folder ولأهمية موضوع التحديث حيث لا يقل أهمية عن تصميم البرنامج بحد ذاته ، خصوصا اذا كان البرنامج يرتبط بأكثر من مستخدم ومعاناة التحديث اليدوي على كل جهاز مما قد يؤدي الى ارهاق المبرمج وكثرة الأخطاء أشكركم جميعا وأشكر الخبراء في المنتدى على طرح الأفكار والأراء الجميلة فقد توقفت في المشاركة السابقة في كيفية تصدير الكائن الى مجلد البرنامج وقد وجدت حل لهذه المشكلة بعد البحث في المنتدى ووجدت مشاركة للأخ @Moosak في الموضوع التالي: لقد عدلت على الطريقة وتم عمل الإضافة عند المستخدمين ونجحت الطريقة ولله الحمد المرفق التالي لمن أراد الاستفادة ولتطبيق الطريقة فك الضغط عن المرفق في البارتشن C مباشرة ومن ثم الدخول على المجلد (Shaoon) وتشغيل البرنامج (Shaoon.accdb) MyProgram2.rar

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

تفضل استاذ @محمد سعيد رشاد محاولتي بعد استخدام موديول استاذنا @Eng.Qassim حسب مافهمت . اليك المرفق بعد التعديل. طالع الاستعلام والنموذج . ووافني بالرد . DDTextToNumber-2.rar

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

قم بتعديل هذا السطر For Each pic In WS.Pictures الى For Each pic In f.Pictures

هل مواصفات جهازك جيدة ؟ كم نسخة الأوفيس عندك ؟ جرب استخدام هذه النسخة وأخبرني هل النتيجة نفسها ؟ ‏‏Moosak MsgBox 2.accdb

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

السلام عليكم.. بعد اذن اخي الاستاذ @kkhalifa1960 وضعت لك موديول يقوم بأستخلاص الارقام من الاحرف ...عسى ان يكون هذا طلبك DDTextToNumber.rar

مبدع كعادتك الله يجزيكم الخير

السلام عليكم الاخ مازن بياناتك عبارة عن اعمدة ونحن بحاجة الى عرضها بشكل افقي انظر الى العمل بالترتيب خطوة خطوة كما ابينه بالشرح لك ، من اجل تفهم طريقة العمل 1- استعلام query1 تم فيه تجميع الحالات حسب الرتبة 2- استعلام جدولي لنشر البيانات وتوزيعها مصدره query1 وبما ان الاستعلام الجدولي صامت لا يمكن التعامل مع حقوله عند العرض استخدمنا جدول مؤقت وسيط يكون هو المصدر الاساسي للتقرير حيث يتم الحق بيانات الاستعلام الجدولي اليه بين فترة واخرى كلما تغيرت او زادت البيانات باستخدام زر ( اعداد التقرير ) لم افهم ما تعني بالمجموع الفعلي والمجموع الكلي لذا تركته لك يمكنك عمله بكل يسر --------------------------------------------------------- انا عملت على عرض جميع الحالات بالتفصيل ويمكنك ضم بعض الحالات مع بعضها افتح التقرير على التصميم وفي الخصائص انقر على النقاط الثلاث في مصدر بيانات التقرير سيعرض لك الاستعلام المصدر الذي يمكنك من خلاله اجراء جميع التعديلات كإنشاء حقول تجميع وضم بعضها الى بعض او حذف ما لا تريده . آمل ان يروق العمل لك قاعدة2.rar

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

تفضل أخي أبو الحسين @abouelhassan 🙂 If MyMsgBox("هل تريد حذف السجل؟؟", "" _ , , msg_Critical, Btn_Yes_No) = Yes Then DoCmd.SetWarnings False DoCmd.RunSQL "DELETE tblFinancial_Records.*, tblFinancial_Records.Reg_Number, * FROM tblFinancial_Records WHERE (((tblFinancial_Records.Reg_Number)=[forms]![frm_search]![Reg_Number]))" DoCmd.SetWarnings True Else Exit Sub End If If Err.Number <> 0 Then MyMsgBox "حدث خطأ: " & Err.Description End If MyMsgBox "ليس لديك صلاحية بالدخول", "تنبيه", , msg_Critical, Btn_OK_Only If MyMsgBox("خروج من البرنامج...!؟", "", , msg_Critical, Btn_Yes_No) = Yes Then MyMsgBox "تم انشاء نسخة احتياطية بنجاح" & vbNewLine & "Backup successfully created" & vbNewLine & vbNewLine & _ "" & "اسم قاعدة البيانات" & vbNewLine & "The name of the database" & vbNewLine & "" & vbNewLine & _ "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & _ "Path of the new rule" & vbNewLine & "" & vbNewLine & DstFile, "emphasis" & "/" & "تاكيد", , msg_Information, Btn_OK_Only, Arabic_Right End If

وعليكم السلام ورحمة الله نعالى وبركاته اظن انه يجب عليك اولا تغيير مكان خلية اختيار اسم المادة (N1) خارج نطاق البحث لانه في حالة تم اخفاء عمود مادة الدين مثلا عمود (N) سيتم اخفاء خلية الاختيار لنفترض ان الخلية المحددة هي (R1) Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Target.Worksheet.Range("R1")) Is Nothing Then Dim x As Range, rng As Range Set x = Clé([R1], [G7:P7]): Set rng = Columns("E:F") Application.ScreenUpdating = False If x Is Nothing Then MsgBox "مادة" & " " & [R1] & " : " & " غير موجودة ", vbExclamation: Exit Sub Columns("C:P").EntireColumn.Hidden = True x.EntireColumn.Hidden = False: rng.EntireColumn.Hidden = False ActiveWindow.ScrollColumn = 1 End If End Sub Function Clé(a, b As Range) As Range Dim i& On Error Resume Next i = WorksheetFunction.Match(a, b, 0) If i Then Set Clé = b(i) End Function اظهار الاعمدة Sub Show_all_columns() Sheets("Sheet1").Columns("C:P").EntireColumn.Hidden = False End Sub بطريقة اخرى Sub Hide_columns() Dim Clé As Variant, desWS As Worksheet, rng As Range Set desWS = ThisWorkbook.Sheets("Sheet1"): Clé = [R1].Value If Clé > 0 Then With desWS Set rng = .Rows(7).Find(Clé, LookIn:=xlValues, lookat:=xlWhole) If Not rng Is Nothing Then Application.ScreenUpdating = False .Columns("C:P").EntireColumn.Hidden = True rng.EntireColumn.Hidden = False .Columns("E:F").EntireColumn.Hidden = False Else MsgBox "مادة" & " " & Clé & " : " & " غير موجودة ", vbExclamation: Exit Sub End If End With End If ActiveWindow.ScrollColumn = 1 Application.ScreenUpdating = True End Sub صفحة الرصد V2.xlsm

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

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

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

تفضل أخي الكريم .. جرب هذا الكود في الزر الموجود في Form1 ، وأعلمني بالنتيجة . انا بالنسبة لي اعتمدت على مصدر سجلات النموذج Form2 مع إجراء شرط إضافي ليتم المطلوب ، وقد يكون هناك أساليب أخرى عند الأساتذة Dim strSQL As String strSQL = "SELECT grades.id, grades.student_id, grades.material_symbol, grades.average_course1, grades.failing_materials1, grades.passed_materials, grades.course_result123, grades.failling_course2, grades.second_course1_2, grades.another_rate1_2, grades.improve_rate1, grades.improve_rate2, grades.improve_rate3, grades.improve_rate4, grades.final_rate, grades.mark_student, grades.are_agraduate, grades.note, [mateials studies].Sum, [mateials studies].sum2 " & _ "FROM [mateials studies] INNER JOIN grades ON [mateials studies].material_symbol = grades.material_symbol " & _ "WHERE (((grades.student_id)=" & Forms!Form1!student_id & "));" If DCount("*", "grades", "student_id=" & Forms!Form1!student_id) > 0 Then DoCmd.OpenForm "Form2" Forms!Form2.RecordSource = strSQL Else DoCmd.OpenForm "Form2", , , , acFormAdd Forms!Form2!student_id = Forms!Form1!student_id End If وهذا المرفق بعد التعديل :- system1.zip

كلامك سليم 100000 % ، كل العذر منك استاذنا @سامي الحداد ، ولكني فعلاً لم اقم بتجربة المرفق وكنت اتصفح من الجوال هذا دليل ان الواحد مع التعب يحس الاسلاك في مخه تعمل ماس

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

تفضل أخي مهند 🙂 opppol.accdb

أخي الكريم هلا أوضحت المطلوب بشيء من التفصيل .. هل تريد إدراج الفلاش لورقة العمل والكتابة عليها ؟؟؟!! وما هي شروط تغير البيانات أقصد الخلية المرتبطة بتغير البيانات؟

وهذ هو الكود الذي يقوم بإعطائي التاريخ الميلادي والهجري الخاص باليوم بدون تغييرفيه طبعا هذ الكود من الاخ ابن مسقط Private Sub Form_Load() Calendar = vbCalGreg Me!txtGD = Format(Date, "yyyy-mm-dd") Calendar = vbCalHijri Me!txtHD = Format(Date, "yyyy-mm-dd") Calendar = vbCalGreg End Sub