كل الانشطه

السلام عليكم استاذ محمد هشام اريد ارسال رسالة على الخاص كيف الارسال ؟؟ لاني حاولت الارسال عن طريق الموقع ولكني الموقع يقول مسموح لك بارسال 0 رسائل في اليوم . حا،ول مره اخري بعد انتهاء اليوم. حسنا

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

بهذا الشكل ، سيكون علينا جلب أكبر قيمة للحقل G N في جدولك ، ثم تحديث قيم سجلاته بشرطين إما كاملة اذا لم يتم تحديد قيم محددة ، أو للقيم التي تم تحديدها برقمين ( من - إلى ) صحيح ؟؟ اذا كان ما فهمته صحيحاً ، فسيتم تعديل الاستعلام في كود الزر بالشكل التالي :- Private Sub أمر8_Click() If MsgBox("أنت على وشك تحديث حالة جميع الكتب باليومية من كتب موجودة إلى كتب فاقد " & vbCrLf & _ "لتأكيد الأمر أضغط موافق ، ولإلغائه أضغط إلغاء", _ vbInformation + vbOKCancel + vbMsgBoxRight, _ " تأكيد تنفيذ الأمر ") = vbOK Then DoCmd.SetWarnings False Dim maxGN As Variant Dim filter As String If IsNull(Forms!F_GardBooks!text) Or IsNull(Forms!F_GardBooks!text2) Then filter = "[CaseBook]='موجود'" Else filter = "[CaseBook]='موجود' AND searinumber BETWEEN " & Forms!F_GardBooks!text & " AND " & Forms!F_GardBooks!text2 End If maxGN = DMax("[G N]", "[جدول تسجيل الكتب]", filter) If Not IsNull(maxGN) Then DoCmd.RunSQL "UPDATE [جدول تسجيل الكتب] SET CaseBook = 'فاقد' " & _ "WHERE [CaseBook]='موجود' AND [G N]=" & maxGN & ";" End If DoCmd.SetWarnings True End If MsgBox "تم تحديث البيانات بنجاح والحمد لله" End Sub أما من خلال استعلام SQL فلم أفلح في ضبط الأمور لوجود شرطين أو أكثر ، لذا قد يكون هناك حل يعتمد على استعلام مبني على استعلام آخر ، بحيث :- 1. انشاء استعلام جديد ولنفترض باسم qry_GetMaxGN_Conditional علشان نحصل على أعلى قيمة للحقل G N و ( مع أو بدون ) الشرط الثاني وهو تحديد قيمة لكتب محددة ... SELECT MAX([G N]) AS MaxGN FROM [جدول تسجيل الكتب] WHERE CaseBook = 'موجود' AND ( ([Forms]![F_GardBooks]![text] IS NULL OR [Forms]![F_GardBooks]![text2] IS NULL) OR (searinumber BETWEEN [Forms]![F_GardBooks]![text] AND [Forms]![F_GardBooks]![text2]) ); 2. ننشء استعلام التحديث الذي سيتم التحديث للسجلات من خلاله بناءً على السجلات التي حققت شرط الإستعلام السابق :- UPDATE [جدول تسجيل الكتب] SET CaseBook = 'فاقد' WHERE [G N] = (SELECT MaxGN FROM qry_GetMaxGN_Conditional) AND CaseBook = 'موجود'; ولنفترض ان اسمه سيكون على سبيل المثال qry_UpdateCaseBook . ومن خلال زر يتم استدعاؤه بالشكل التالي :- DoCmd.SetWarnings False DoCmd.OpenQuery "qry_UpdateCaseBook" DoCmd.SetWarnings True ملفك بالتجربتين :- القاعدة.mdb

شكرا جزيلا أخي الفاضل محمد وبارك الله فيك

شكرا اخوي Ahmos على المرفق، ولكني لازلت افكر في المكان المناسب لاستعماله!! اذا ممكن تعطيني بعض الامثلة لوسمحت

السلام عليكم ممكن مساعدتي في اظهار القيمة تلقائياً من الاستعلام QQalawa اختيار من القائمة للحقل d يظهر تلقائيا القيمة في الحقل e علما بأن القائمة المنسدلة من الجدول kima صرف مهام خارجية.accdb.7z

أستاذي الكريم المطلوب اضافة لهذا التعبير عند تعديل حالة الكتب تحويلها الى فاقد وتعديل رقم الجرد هو أيضا أحدث رقم زلو في امكانية وعمل استعلام أيضا له (استعلام تحديث) علما بأنه موجود في زر أمر "تحويل حالة هذه الكتب الى فاقد" بالنموذج الذي بعنوان F_GardBooks DoCmd.RunSQL "UPDATE [جدول تسجيل الكتب] SET [جدول تسجيل الكتب].CaseBook = ""فاقد"" " & vbCrLf & _ "WHERE ((([جدول تسجيل الكتب].CaseBook)=""موجود"") AND (Not ([جدول تسجيل الكتب].title) Is Null) AND (([جدول تسجيل الكتب].searinumber) Between [forms]![F_GardBooks]![text] And [forms]![F_GardBooks]![text2])) OR ((([جدول تسجيل الكتب].CaseBook)=""موجود"") AND (([جدول تسجيل الكتب].title) Is Null) AND (([جدول تسجيل الكتب].searinumber) Between [forms]![F_GardBooks]![text] And [forms]![F_GardBooks]![text2]));" وجزاكم الله خيرا

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

اشكرك اخي العزيز وبارك الله في حضرتك

وعليكم السلام ورحمة الله وبركاته .. أخي الكريم بداية أهلا سوله بحضرتك معنا في المنتدى . ونرجو أن تجد ما تبحث عنه دائماً وبسرعة . ولتحقيق ذلك هناك أمور علينا توضيحها لك لتحصل على جواب وحل لطلبك ومشكلتك بأسرع وقت . أولا إذا كان التقرير مبني على استعلام ، فتستطيع ذلك بايتعمال الدالة NZ للحقل المحدد على النحو التالي :- Nz(Grade, "غ") بالإفتراض أن اسم الحقل الأصلي = Grade على سبيل المثال . وهناك عدة طرق ولكن هذا يعتمد على بنية التقرير ، فإذا صعب الأمر عليك ، أرفق لنا التقرير مع مصدره كمثال للتطبيق .

خالص الشكر لحضرتك

كتابة حرف غ في الحقول الفارغة في درجات الطلاب في تقارير الاكسس

شكرا اخواني

@Foksh أسعد الله صباحك آمين، وإياك أخي الكريم بالتوفيق @jjafferr صبحك الله بالخير

السلام عليكم هل الكود المقترح سيحول كلمة (الله) إلى (اللة) ؟ وهل سيجعل (ليلى أو مروى) إلى (ليلي أو مروي) ؟ أو (عبدالهادي) إلى (عبدالهادى) ؟ إذا حصل هذا الأمر فالكود يحتاج لمراجعة الرجاء الانتباه

وعليكم السلام ورحمة الله تعالى وبركاته data.xlsx

وعليكم السلام ورحمة الله تعالى وبركاته Sub Sheets_Arrays3() Dim lr&, LR2&, WSData As Worksheet Dim Dest As Worksheet: Set Dest = Sheets("class_room") LR2 = Dest.Cells(Dest.Rows.Count, "B").End(xlUp).Row If LR2 >= 2 Then Dest.Range("B2:S" & LR2).ClearContents Application.ScreenUpdating = False For Each WSData In Sheets(Array("كي جي1", "كي جي2", _ "الصف الأول", "الصف الثاني", "الصف الثالث", "الصف الرابع", "الصف الخامس", "الصف السادس")) lr = WSData.Cells(WSData.Rows.Count, "B").End(xlUp).Row If lr >= 3 Then LR2 = Dest.Cells(Dest.Rows.Count, "B").End(xlUp).Row + 1 Dest.Range("B" & LR2 & ":S" & (LR2 + lr - 3)).Value = WSData.Range("B3:S" & lr).Value End If Next WSData Application.ScreenUpdating = True MsgBox "تم ترحيل الفرق بنجاح", vbInformation End Sub

السلام عليكم مشاركة مع الاستاذ @Moosak تعديل بسيط على الكود عسى ان يكون هو المطلوب بالتوفيق ta13.rar

إخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته في الملف المرفق محتاج عند الضغط علي زر ( ترحيل الفرق ) الموجود في صفحة ( class_room ) يتم ترحيل البيانات في الشيتات ( كي جي1 - كي جي2 - الصف الأول - الصف الثاني - الصف الثالث - الصف الرابع - الصف الخامس - الصف السادس ) من العمود B الي العمود S يعني عايز اعدل في الكود Tbl_student.rar

السادة المحترمين في صفحة class عند الاختيار من الخلية B1 يجلب البيانات من صفحة data. بنفس الترتيب شكرا مرفق الملف من فضلكم بمعادلات وليس بالأكواد data.xlsx

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

تفضل : 🙂 حتى في النموذج التواريخ المنتهية تلون بالأحمر .. ta13.rar

أخى سعد هل البرنامج اكتمل ؟ إن كان كذلك أعطنى من فضلك نسخة

اشكرك اخوي Moosak وجزاك الله خير ممكن اخوي تظهر رسالة عندى فتح t1 فيه اقامات وجوازات ونهاية منتهية ويفتح ملف ta1 ويظهر فيه المنتهية فقط الغير منتهي لا يظهر شكرا على المساعدة

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