كل الانشطه

هل تريد مجرد الاجابة للوضع الحالى لقاعدتك ام تريد النصيحة لعمل ذلك بالشكل الصحيح و الاحترافى كما ينبغى ان يكون لاضفاء المرونة والاحترافية فى التعامل ومعالجة البيانات ؟! لن اضع الاجابة قبل ردكم

شكرا جزيلا اختي safaa salem5 جاري التجربة

تفضلي أستاذة / حنــان الملف بالمرفق جميع الاكواد المضافة والمعدلة داخل مديول (New_Functions_Subs) الصورة : بعد القص : بعد تعديل المقاس : Cropping_Images_V1.zip

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

خالص الشكر على المجهود الغير عادى ولكن هناك بعض الملاحظات كما بالصورة

لو محتاجه تعمليها بدون التعديل علي واجهة البرنامج ممكن نعملها لكن في تفاصيل لازم نجاوب عليها 1- الـ Sub_Form بيفتح باستعلام معني كدا ان محتوي الفورم نفسة فالغالب هيتغير كل مرة 2- فالحالة دي هنحتاج نميز كل سجل هل تم طباعته ام لا ودي ممكن نوصلها " إن شاء الله " نضيف عمود في الجدول 3- وممكن نضيف عمود كمان عشان عدد مرات الطباعة 4- هل هنحتاج نضيف حد أقصي وأين سنضيفه في الكود أم في الواجهة ؟ محتاج أعرف احتياجك بالظبط وإن شاء الله ربنا يوفقنا ونوصل للمطلوب الحمد لله والشكر لله بالتوفيق

اوك استاذنا خليفة، وتسافر بالسلامة ان شاء الله

وعليكم السلام ورحمة الله وبركاته **إصلاح تاريخ معكوس عند التصدير إلى Word * **استخدم تنسيق التاريخ المخصص:** * في Excel، حدد الخلايا التي تحتوي على التاريخ. * انقر بزر الماوس الأيمن واختر "تنسيق الخلايا". * في علامة التبويب "الرقم"، حدد "مخصص" من القائمة المنسدلة "الفئة". * أدخل تنسيق التاريخ المطلوب، على سبيل المثال: "dd/mm/yyyy". * **استخدم دالة TEXT:** * في Excel، أدخل الصيغة التالية في خلية فارغة: ``` =TEXT(A1, "dd/mm/yyyy") ``` حيث A1 هي الخلية التي تحتوي على التاريخ المعكوس.* **استخدم ماكرو:** * يمكنك إنشاء ماكرو لتصحيح التاريخ المعكوس عند التصدير إلى Word. * افتح محرر Visual Basic (Alt + F11). * انقر على "إدراج" > "وحدة نمطية". * الصق الكود التالي في وحدة النمط: ``` Sub FixReversedDates() Dim rng As Range Dim cell As Range Set rng = Selection For Each ce=TEXT(A1, "dd/mm/yyyy")ll In rng If cell.NumberFormat = "@" Then cell.Value = DateValue(cell.Value) End If Next cell End Sub ```

وعليكم السلام ورحمة الله وبركاته لحل هذه المشكلة، يمكنك استخدام الدالة `ABS` جنبًا إلى جنب مع دالة التقريب. تعمل دالة `ABS` على إرجاع القيمة المطلقة لرقم، مما يحول الأرقام السالبة إلى أرقام موجبة. **الصيغة المعدلة** =ROUND(ABS(A1), 2) حيث: * `A1` هو الخلية التي تحتوي على الرقم الذي تريد تقريبه. * `2` هو عدد المنازل العشرية التي تريد تقريب الرقم إليها. **مثال** لنفترض أن لديك جدول رواتب في ورقة عمل Excel وتريد تقريب رواتب الموظفين إلى أقرب دولار. تحتوي الخلية `A1` على راتب موظف بقيمة -123.45 دولارًا. باستخدام الصيغة المعدلة، يمكنك تقريب الراتب على النحو التالي: =ROUND(ABS(A1), 2) ستعيد هذه الصيغة القيمة 123.45 دولارًا، وهي القيمة المطلقة للراتب الأصلي مقربة إلى أقرب دولار. **ملاحظة** إذا كنت ترغب في تقريب الأرقام السالبة إلى أقرب قيمة سالبة، يمكنك استخدام الصيغة التالية: =-ROUND(ABS(A1), 2)

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

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

أستأذن حضرتك تنفذ الكود فى البرنامج المرفق

الملف المعدل بالمرفقــات *ملحوظة أكواد الطباعة الموجودة خـاصة بطابعة الـ SUB_FORM في حال كان هناك تقرير ستختلف أكواد الطباعة Safaa_New.accdb

السلام عليكم لدي جدول رواتب و فيه دالة لتقريب الأرقام و لكن هذه الدالة لا تعمل عند وجود رقم سالب يرجى المساعدة لمن لديه الخبرة الراتب.xlsx

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

يمكنك استخدام الحقل المشترك بين جدول الموظفين وجدول الحوافز لاستدعاء قيم الحوافز والمكافآت عند اختيار وظيفة محددة. يمكنك استخدام حدث "بعد تحديد" لعنصر التحكم المرتبط بحقل الوظيفة في النموذج أو الاستعلام لتنفيذ الكود اللازم. فيما يلي مثال لكود VBA يستدعي قيم الحوافز والمكافآت المتعلقة بالوظيفة المحددة: ```vba Private Sub JobComboBox_AfterUpdate() Dim job As String Dim bonus As Double Dim reward As Double job = Me.JobComboBox.Value ' تعيين اسم الجدول وحقل الحافز وحقل المكافأة حسب اسم الجدول الخاص بك Dim tableName As String Dim bonusField As String Dim rewardField As String tableName = "اسم_الجدول" bonusField = "حقل_الحوافز" rewardField = "حقل_المكافأة" ' استعلام لاسترداد قيم الحافز والمكافأة المتعلقة بالوظيفة المحددة Dim strSQL As String strSQL = "SELECT " & bonusField & ", " & rewardField & " FROM " & tableName & " WHERE وظيفة = '" & job & "'" ' تنفيذ الاستعلام واسترداد القيم Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset(strSQL) If Not rs.EOF Then bonus = rs.Fields(bonusField).Value reward = rs.Fields(rewardField).Value Else bonus = 0 reward = 0 End If rs.Close Set rs = Nothing ' تعيين قيم الحافز والمكافأة لحقول المستند Me.BonusTextBox.Value = bonus Me.RewardTextBox.Value = reward End Sub ``` يرجى استبدال "اسم_الجدول" بالاسم الصحيح لجدول الحوافز واستبدال "حقل_الحوافز" و "حقل_المكافأة" بأسماء الحقول الصحيحة في جدول الحوافز

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim s1 As String Dim imagePath As String s1 = Str(Me![رقم الجلوس]) s1 = Right(s1, Len(s1) - 1) imagePath = "D:\صور\" + s1 + ".jpg" If Dir(imagePath) <> "" Then Me![Image_Std].Picture = imagePath Else Me![Image_Std].Picture = "" Me![Image_Std].Caption = "لا توجد صورة مطابقة لرقم الجلوس" End If End Sub ```

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

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

السلام عليكم ورحمة الله بعد ادن الاخوان الكرام جرب هدا التعديل في المرفق لعله ما تريد وان كان ما تقصد سنعدله ليضيف البيان الى قاعدة البيانات ملاحظة: تم تغيير اسم القاعدة الترقيم السنوي.accdb

تفضل استاذ @jo_2010 المرفق بعد التعديل ...ووافني بالرد. DDAdd&DeletePDF.rar

تفضل استاذ @Zooro1 اليك المرفق الجديد ومتجرب أكثر من مرة . (جرب ) . ووافني بالرد . قبل سفري .... DDCountUsersSendLeters-2.rar

اللي فهمته 1- سيتم عمل اسكان لورقة 2- تريدي قص هذه الصورة لاستبعاد الأجزاء الغير مرغوب بها 3- تغير مقاس هذه الصورة فيما يخص النقطة رقم 2 - إذا أمكن مشاركة صورة للتجربة - حسب تصوري يجب أولاً معرفة جودة هذه الصورة حتي نتمكن من حساب البكسلز ومعرفة كيفية حساب الجزء المستبعد ثم قص الصورة فيما يخص النقطة رقم 3 فهمت من الصور ان المقاس المرغوب هو 8.5 * 11 بوصة(انش) وليس سم *ملحوظة هذا المقاس ليس A4 إنما US Letter Size A4 > 8.3 * 11.7 بوصلة A4 > 21 * 29.7 سم

@Ahmosممكن تطبق على الملف لو سمحت حضرتك