كل الانشطه

اليك النصائح الاتية وهى مهمه طالما انت فى البدايات 1- اختر للجداول دائما وباقى العناصر والكائنات اسماء مختصرة تدل على وظيفتها 2-استعمل اختصارات البادئات المتعارف عليها قدر الامكان مثل Table=tbl Form=frm Query=qry Module=bas وسوف ارفق لك ملف كنت حاولت جاهدا تجميعه قبل فترة هذه الاختصارات اثناء التعامل مع الاكواد تجعلك على دراية بما تتعامل معه بسهولة وتجهل اى مطور نظم ان كنتم تعملون فى مجموعة عمل سهولة فهم الية الاكواد وتتبع المشروع ومعك انت شخصيا انت الان وقت التصميم تكون على دراية بكل صغيرة وكبيرة ولكن بعد فترة سوف تنسى كل شئ هذه البادئات تجعلك دائما على دراية مع ماذا تتعامل من العناصر والكائنات المختلفة 3- دائما لا تبخل على نفسك فى استخدام الجداول المساعدة التى تغنيك عن فتح التصميم مستقبلا لاضافة شئ او حذف وتعديل شئ على سبيل المثال وليس الحصر الاولى بك فى قاعدتك الحالية عمل جدول للوظائف بدلا من طتباة الوظائف فى حقل واحد بهذه الطريقة مستقبلا لو اردت تغير اسم وظيفه او اضافتها لابد لك من الدخول الى التصميم وناهيك عن المشاكل التى لا حصر لها لو اردت تغير مسمى مثلا وانت تعتمد فى الاكواد على هذا المسمى دعنى اعيد بناء قاعدتك بالشكل الامثل من وجهة نظرى المتواضعة وانت اكمل باقى خطاك فى هذا الدرب بناء على ما اقده اليكم اولا اليك الاختصارات المتعارف عليها بين مطورى النظم والمبرمجين فى ملف نصى prefix.zip

استاذ @Zooro1 اذا كان هذا طلبك اضغظ على أفضل اجابة .

اللى شايفه حضرتك صح .. لانه لسة انا فى بداية انشاء البرنامج

ممكن تجرب الكود ده Dim ImagePath As String s1 = Str(Me![رقم الجلوس]) s1 = Right(s1, Len(s1) - 1) ImagePath = "D:\صور\" & s1 & ".jpg" On Error Resume Next Me![Image_Std].Picture = ImagePath If Err.Number <> 0 Then MsgBox "لا توجد صورة مطابقة لرقم الجلوس", vbExclamation, "خطأ" Err.Clear End If On Error GoTo 0 End Sub

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

شكرا جزيلا اختي 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