كل الانشطه

أستاذي الكريم أنا لم أضع في زر الأمر إلا حدث واحد فقط وهو عند النقر Private Sub أمر136_Click() UpdateBooksToLost End Sub Public Sub UpdateBooksToLost() Dim db As DAO.Database Dim rs As DAO.Recordset Dim maxGard As Long Set db = CurrentDb maxGard = Nz(DMax("No_Gard", "T_Gard"), 0) Set rs = db.OpenRecordset("SELECT * FROM [جدول تسجيل الكتب] WHERE [CaseBook] = 'موجود'", dbOpenDynaset) If Not rs.EOF Then rs.MoveFirst Do While Not rs.EOF rs.Edit rs!CaseBook = "فاقد" rs![G N] = maxGard rs.Update rs.MoveNext Loop End If rs.Close Set rs = Nothing Set db = Nothing MsgBox "تم تحديث الكتب إلى الحالة 'فاقد' بنجاح", vbInformation + vbMsgBoxRight, "" End Sub

اعرض الملف تظليل السجل الحالي في النماذج المستمرة {سلسلة الأدوات المساعدة المخصصة} الأداة الثانية لهذا اليوم وهي أداة تقوم بتظليل السجل الحالي أثناء التنقل خلال النماذج المستمرة مايمز الأداة هو سهولة الإستفادة منها وتنوع الخيارات فيها فمثلاً يمكن تحديد لون التظليل بلون محدد وهذه بعض الصور التوضيحية طريقة العمل وطربقة الإستفادة منها موضحة في الملف المرفق مع تحياتي صاحب الملف منتصر الانسي تمت الاضافه 06/23/25 الاقسام قسم الأكسيس  

في نفس النموذج أخي :- الموضع الأول :- Private Sub أمر8_Click() Public Function arTableName() As String arTableName = ChrW(1580) & ChrW(1583) & ChrW(1608) & ChrW(1604) & ChrW(32) & _ ChrW(1578) & ChrW(1587) & ChrW(1580) & ChrW(1610) & ChrW(1604) & ChrW(32) & _ ChrW(1575) & ChrW(1604) & ChrW(1603) & ChrW(1578) & ChrW(1576) End Function الموضع الثاني :- Private Sub أمر8_Click() Dim arTblName As String Dim maxGN As Long Dim arMsgPrompt As String Dim arMsgTitle As String Dim msgResponse As VbMsgBoxResult On Error GoTo ErrorHandler arTblName = arTableName maxGN = Nz(DMax("[No_Gard]", "[T_Gard]"), 0) arMsgTitle = "تأكيد تنفيذ الأمر" arMsgPrompt = "أنت على وشك تحديث حالة جميع الكتب باليومية" arMsgPrompt = arMsgPrompt & vbCrLf & "من كتب موجودة إلى كتب فاقد" arMsgPrompt = arMsgPrompt & vbCrLf & "لتأكيد الأمر أضغط موافق ، ولإلغائه أضغط إلغاء" msgResponse = MsgBox(arMsgPrompt, vbQuestion + vbOKCancel + vbMsgBoxRight, arMsgTitle) strSQL = "UPDATE [" & arTblName & "]" & vbCrLf & _ " SET [" & arTblName & "].CaseBook = ""فاقد""," & vbCrLf & _ " [" & arTblName & "].[G N] = " & maxGN & vbCrLf & _ " WHERE ((([" & arTblName & "].CaseBook)=""موجود"")" & vbCrLf & _ " AND (Not ([" & arTblName & "].title) Is Null)" & vbCrLf & _ " AND (([" & arTblName & "].searinumber) Between [forms]![F_GardBooks]![text]" & vbCrLf & _ " AND [forms]![F_GardBooks]![text2]))" & vbCrLf & _ " OR ((([" & arTblName & "].CaseBook)=""موجود"")" & vbCrLf & _ " AND (([" & arTblName & "].title) Is Null)" & vbCrLf & _ " AND (([" & arTblName & "].searinumber) Between [forms]![F_GardBooks]![text]" & vbCrLf & _ " AND [forms]![F_GardBooks]![text2]));" If msgResponse = vbOK Then DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True MsgBox "تم تحديث البيانات بنجاح والحمد لله" Else End If Exit Sub ErrorHandler: Debug.Print Err.Number; Err.Description End Sub

اعرض الملف ترقيم صفحات التقرير وفقاً للمجموعات الفرعية {سلسلة الأدوات المساعدة المخصصة} اليوم نواصل العمل مع سلسلة الأدوات المساعدة المخصصة بأداة مهمة ورائعة تقوم بعملين - ترقيم صفحات التقرير بحسب المجموعة - إنشاء تقرير بجدول محتويات التقرير والذي يمكن إعتباره كقائمة الفهرس للتقرير يحتوي المثال على ثلاثة تقارير الأول يوضح طريقة إظهار أرقام الصفحات عندما يحتوي التقرير على مستوى تجميع واحد كما في الصورة وسيكون فهرس محتويات التقرير كالتالي التقرير الثاني عندما يكون في التقرير إثنين مستويات تجميع وسيظهر كالتالي وسيكون فهرس محتويات التقرير كالتالي فهرس محتويات التقرير هو نفس التقرير في الحالتين وإنما يختلف التنسيق بحسب عدد مستويات التجميع طريقة عمل الأداة وطريقة الإستفادة منها في تطبيقاتكم الخاصة موضحة ضمن المثال الرفق صاحب الملف منتصر الانسي تمت الاضافه 06/23/25 الاقسام قسم الأكسيس  

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

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

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

وعليكم السلام ورحمة الله وبركاته ,, راجع هذا الموضوع قد يوصلك الى نتيجة التحديثات التي طرأت عند التحديث من ويندوز 10 الى ويندوز 11 !!!

لو هناك تعديل في الكود كله اتفضل عدل عليه حتي نستفيد .

جزاك الله خيرا اخى الكريم وان تكرمت نسخة 64 من فضلك

كان عندي برنامج شغال شبكة علي اكثر من جهاز ولاكن عند تحديث وندوز لاحد الاجهزة - اصبح البرنامج غير شغال على هذا الجهاز جميع الازرار معطله - علماً بأنها مرتبطه بكود برمجه ما السبب - ايه هي الحاجات اللي ممكن ابص عليها او اغيرها في الوندوز او البرنامج - علشان اشغله تاني شكراً

وعليكم السلام ورحمة الله وبركاته .. تفضل هذه الفكرة :- Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, valToCheck, foundCell As Range On Error Resume Next Set c = Intersect(Target, Columns("E")) If c Is Nothing Then Exit Sub Application.EnableEvents = False valToCheck = c.Value If valToCheck <> "" Then Set foundCell = Columns("E").Find(valToCheck, LookIn:=xlValues) If Not foundCell Is Nothing And foundCell.Row <> c.Row Then If WorksheetFunction.CountBlank(Range("K" & foundCell.Row & ":N" & foundCell.Row)) = 4 Then MsgBox "الحالة سبق ادخالها ولم يتم بشانها اجراء", vbExclamation + vbMsgBoxRight, "تنبيه" c.ClearContents End If End If End If Application.EnableEvents = True End Sub Book1.zip

السلام عليكم فى الملف المرفق يتم كتابة رقم الحالة فى العمود E المطلوب: عند ادخال رقم الحالة وهذه الحالة سبق ادخالها يتم التاكد من اتخاذ اجراء فيها من خلال الاعمدة K & L &M & N بمعنى على سبيل المثال اذا كانت الخانات امام الادخال الاول فى هذه الاعمدة ممتلئة فيقبل كتابة الحالة اما إذا كانت فارغة فلا يقبل وتظهر رسالة انه سبق الادخال ولم يتخذ اجراء مع العلم انه ممكن الحالة تكتب اكثر من 10 مرات طالما اتخذ فيها اجراء فلا مشكلة من الادخال مرة اخرى تقبلوا تحياتى واحترامى Book1.rar

السلام عليكم ولكن نصيحة انصحكم بها ويندوز 10 سوف يتم ايقاف الدعم عنه فى اكتوبر القادم من اجل ذلك التحديث تم الى ويندوز 11 بشكل صارم وسوف يأتى عليه وقت وكما هو الحال مع ويندوز 7 الان لن تجد المتصفحات مدعومة ولا بعض البرامج فى المستقبل مع ويندوز 10 كما هو الحال الان مع ويندوز 7 و ويندوز XP

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

وهذا من احد الأسباب التي دفعتني لعمل هذه السلسلة بالتوفيق إن شاء الله

الفكرة ليست في إيجاد بدائل فقط ، الفكرة في إيجاد بدائل دائمة وليس مؤقته ..

هل هناك بدائل أخرى تعمل بنفس الفكرة

استاذي الكريم @منتصر الانسي اشكرك على هذا العمل الرائع وبعد الاطلاع على الكود ما شاء الله ابداع ومجهود كبير خلاني افكر فى افكار اخري 😅 الف شكر

شكرا استاذ @Foksh الاجابة قبل الاخيرة صحيحة

السلام عليكم اقترح عليكم التعديل التالي: يكون البرنامج وظيفته 1- رفع الفاتورة الالكترونية الي موقع الهيئة 2- تنزيل الفواتير السابقة التي تم عملها 3-عمل اشعار خصم 4-......... و هذكا

انا بقي بعد اكثر من سنه ونصف او اكثر شوي على وندوز 11 رجعت ل 10 علشان وحشني 😁 (وعلشان حسيت وندوز 11 بدأ يتغابي معايا ولقيت نفسي باعاني معاه فقولت الطلاق افضل ورجعت لام عيالى وندوز 10) ^_^

استاذ @سلمان الشهراني حفظك الله ممكن ترسلي رقم المهندس انا اريد انا اربط ايضأ