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

جرب بدون الحاجة لاستعلام سلوم.accdb

اكتشفت اخفاق في تلوين صندوق اللون عن طريق نموذج الألوان الخاص بالأستاذ أبو جودي علما أن الكود أنا من كتبه ، يعني الإخفاق أنا سببه 🙂 . تم التصحيح تطبيق لون_10.accdb

استبدل الشيفرة بهذه .................... Dim xx As String xx = InputBox("ادخل النسبة ", "حدد ") xx = Replace(xx, "%", "") If Len(xx) = 0 Then Exit Sub DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE Table1 SET Table1.Field1 = [field1]*" & xx & ";" DoCmd.SetWarnings True

أستاذي @AbuuAhmed أستاذي الغالي أبو أحمد .. ماذا عساي أن أقول إلا أسأل الله أن يدخل عليك البهجة والسعادة الدائمة في الدنياء والأخرة .. واسأل الله أن يدخلك ووالديك وذريتك الجنة الفردوس الاعلى .. وأن يجازيك عني وعن الأسلام خيرا .. نفعنا بعلمك .. بارك الله فيك وحتى لا أنس وهذا الدعاء بالمثل لكل من ساهم بقدر أستطاته اخي @TQTHAMI استاذي @مبرمج متقاعد أستاذي @ابو جودي ولمن نسيته ويستحق الدعاء والشكر والتقدير شكرا لكم على مجهودكم الرائع .. وشكرا على اقتطاعكم من وقتكم الثمين لنا .. فجزاكم الله عنا خيرا

وهذه محاولتي بعد ان فهمت طلبك Private Sub المحافظة_AfterUpdate() Dim strFilter As String strFilter = "المحافظة=" & "'" & Me.المحافظة & "'" If Me.FilterOn = True Then Me.Filter = "" Me.FilterOn = False Else Me.Filter = strFilter Me.FilterOn = True End If End Sub Private Sub أمر8_Click() DoCmd.OpenReport "تقرير1", acViewPreview, , Me.Sub1.Form.Filter End Sub بالتوفيق اوفسنا (2).accdb

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

السلام عليكم ورحمة الله وبركاته بصراحة متفاجئ من الموضوع مازلت طالب علم اتعلم منكم اخوانى الاحبه يكفيني فعلا ان اكون بينكم اخوتي واحبتي وهذا وسام غالي من منتدى عظيم مليئ بالأستاذة الكبار علماً وخلقاً والتزاماً أشكر لكم جميعاً هذا الوسام وحسن الظن أساتذتي الكرام كل الشكر والتقدير لفريق الموقع ولأساتذتي وزملائي على هذه الثقة وأتمنى أن أكون عند حسن الظن ويكفيني شرفاً خدمتكم بما يمن الله به أخي وأستاذي ومعلمي الحبيب جعفر جزاك الله خيرا على كل ما تقدمه لنا تعلمنا منكم كرم الخلق في تعاملكم وتواضعكم وإن شاءالله اكون عند حسن الظن. حفظكم الرحمن اخى واستاذى محمد البرناوى بارك الله فيك واعاننا الله واياكم على مساعدة اخواننا الكرام اخى واستاذى الحبيب @AbuuAhmed بارك الله فيك وجزاك الله خيرا واعاننا الله واياكم على خدمه اخواننا الكرام اخى واستاذى المهندس قاسم @Eng.Qassim جزاك الله خيرا وبارك الله فيك وان شاء الله ارى هذا اللقب عن قريب قد اضيف اليك وفقكم الله أحسن الله إليكم، أخي الفاضل @Abou Elhassan اخى واستاذي الحبيب طاهر الوليدي جزاك الله خيرا أنت الورد كله بارك الله فيك ووفقكم الله اخى واستاذى الحبيب @Moosak اسعدك الله وبارك فيك وفى علمكم ونتعلم كل يوم منك ومن اساتذتنا الافاضل معاً نكمل مسيرة نشر العلم و نتعلم كل ماهو جديد اعاننا الله جميعا على هذه الثقه فى خدمه اخواننا الكرام اخى الحبيب حمدى الظابط بارك الله فيك وجزاكم الله خيرا وفقكم الله اخي الكريم @TQTHAMI بارك الله فيك وجزاكم الله خيرا ، شكراً على تشجيعكم وإن شاءالله معا نكمل مسيرة العلم ونتعلم كل ما هو جديد اخي الكريم @qathi بارك الله فيك وجزاكم الله خيرا تقبلوا تحياتي وتمنياتي بالتوفيق واسال الله لى ولكم ان يكون عملنا خالصا لوجهه الكريم

تم تنفيذ المطلوب وزيادة تطبيق لون_09.accdb

طيب جرب هذا ................... Dim xx As String xx = InputBox("ادخل النسبة ", "حدد ") xx = Replace(xx, "%", "") DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE Table1 SET Table1.Field1 = [field1]*" & xx & ";" DoCmd.SetWarnings True

السلام عليكم 🙂 اخونا @سامي الحداد له صولات في المواضيع ، و ردود موفقة ، فأهلا وسهلا به خبيرا بيننا 🙂 ولايزال البحث مستمر لترقية بقية الاعضاء 🙂 جعفر

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

نحتاج إلى "موصل" حتى نستطيع أن نفهم على بعضنا عموما أنا راجعت الكود وقمت بالتعديل حسب فهمي ارسال_03.rar

وعليكم السلام ورحمة الله وبركاته أخي حسين 🙂 طبيعي أخي العزيز .. فهو يعطيك في النهاية نوع البيانات التي ستتخزن فيه .. ولو لاحظت القائمة التي أنشأتها تحتوي على عمودين رقم الكود (مخفي) والاسم ( ظاهر ) ، والذي يتخزن في الجدول هو رقم الكود وهو حقل رقمي ..

مشاركة مع الاساتذة الكرام تحديث الحقل بدون استعلام تحديث.accdb

بارك الله فيك يا استاذ وايلي حبيب وذادك من علمه هو دا المطلوب

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

اعرض الملف دليل شجرة حسابات لنشاط صناعي دليل شجرة حسابات لنشاط صناعي - حسب داتا ونظام برنامج سماك 6 صاحب الملف salahmosaed تمت الاضافه 29 نوف, 2022 الاقسام قسم الإكسيل  

مقطع فيديو اتمنى وضحت لك 14440505132824.rar

السلام عليكم ورحمه الله وبركاته بالرغم من انى مش مقتنع بفكره التكرار لان التكرار هو للصف بالكامل ولكن اتفضلاخى @AymenShaban محاوله منى ب 3 طرق الاولى باستخدام dlookup فى استعلام qry مع frm وغير محبب استخدامه مع البيانات الكثيره الثانى frm2 وتم استخدام كود فحدث عند الفتح Private Sub Form_Open(Cancel As Integer) On Error Resume Next Dim Rs As DAO.Recordset Dim dict As Dictionary Set dict = New Dictionary Set Rs = CurrentDb.OpenRecordset("tbl") Rs.MoveLast: Rs.MoveFirst For i = 0 To Rs.RecordCount - 1 dict.Add "'" & Rs!ID & "'", "'" & Rs!sname & "'" Rs.MoveNext Next Dim key As Variant For Each key In dict.Keys ' Debug.Print "Key: " & key, "Value: " & dict.Item(key) Me.cmbName.AddItem key & ";" & dict.Item(key) Next Rs.Close End Sub الثالث frm3 وهو باستخدام حقل اضافى لترقيم السجلات بالتوفيق new6.mdb

وعليكم السلام ورحمه الله وبركاته اتفضل اطلع ع الرابط التالى لاخى واستاذى العزيز صالح جزاه الله خيرا بالتوفيق

طيب الرفرش بنعمله للجدول او الاستعلام المفتوح لتحديثه وليس للمغلق فالمغلق عند فتحه ستجد البيانات محدثه بالتوفيق

وعليكم السلام اخي حمدي اليك الكود التالي جرب ووافنا بالنتيجة DoCmd.SetWarnings False If Me.SELCTALL = True Then DoCmd.RunSQL "UPDATE email SET selectrow = True;", dbFailOnError ElseIf Me.SELCTALL = False Then DoCmd.RunSQL "UPDATE email SET selectrow = False;", dbFailOnError End If Me.Requery DoCmd.SetWarnings True بالتوفيق

سلام عليكم مرفق لك الملف اتمنى يكون المطلوب Book1.xlsx

بالعكس .. كان زكاة للوقت 😊 بارك الله فيك أخي حمدي 🌹

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

أحسنتم جميعا ... جزاكم الله خيرا

هذا هو المطلوب +1 كل الاحترام والتقدير لضياع وقتك تقبل تحياتى والف شكر

تفضل اخي =STXT(D21;TROUVE("DU";D21)+2;NBCAR(D21)) او =DROITE(D21;10) Facture3 OFFICENA.xlsm

وعليكم السلام ورحمه الله وبركاته مشاركه مع اخى واستاذى محمد @Barna جزاه الله خيرا اتفضل اخى حسين @husseinharby تم انشاء وحده نمطيه واستدعائها بالاستعلام ان شاء الله تروق لك بالتوفيق Database11.accdb

تفضل أخي الكريم الدرجه الأكبر.xlsx

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير بالتوفيق

طبعا يمكنك تطبيقها أينما شئت ( نموذج / استعلام / تقرير /..... ) .. الفكرة تكمن في أنك تجعل مصدر بيانات العنصر الذي تريده سواء كان ( نموذج ، تقرير ) مصدره يكون استعلام يجمع الجدولين ( جدول الفصول وجدول الصفوف ) وبهذا نستطيع الحصول على الأرقام المقابلة لحقول النصوص لأسماء الفصول أو الصفوف .. وبكود بسيط ( نفس الموجود في مربع نص الفصول بالأرقام ) تجمع الأرقام وتجعلها بين قوسين 🙂 هكذا : "(" & [FosoolCbo].[column](0) & "/" & [SofoofCbo].[column](0) & ")" وفي حالة الملف الذي أرفقته .. يجب أن تجعل للتقرير مصدر بيانات ( استعلام ) يمكنك من خلاله أن تحدد الفصول المطلوب عرضها في التقرير .. وفي التقرير تجمع الأرقام بن قوسين .. أدري أن الشرح النصي يشتت .. لكن يحتاج أن ترتب برنامجك بالأول .. وتصمم النموذج اللي يفتح التقرير ويحدد الصف اللي تريد تطبعه في التقرير ( وهذا ليس محور حديثنا الآن ) 🙂 وبعدها نضبط التقرير 🙂

وعليكم السلام ورحمه الله وبركاته اتفضل اخى @ehab125 بالتوفيق NewSum.accdb

الآن صار الموضوع أسهل 🙂 تحويل النصوص إلي أرقام.rar

تفضل اخي ضع هده المعادلة في الخلية B2 وسحبها لاخر صف لديك للحصول على اسماء المشرفين ليوم الأحد وبنفس الطريقة على كل ايام الأسبوع مع استبدال إسم العمود داخل المعادلة. بالتوفيق =SIERREUR(INDEX('الزيارات بأسماء المشرفين'!$A$2:$A$11;EQUIV(A2;'الزيارات بأسماء المشرفين'!$B$2:$B$11;0);EQUIV($B$1;'الزيارات بأسماء المشرفين'!$B$1:$B$1;0));"") تجربة الزيارات.xlsx

بالصدفة حصلت معاي مشكلة ربما تشبه ما قاله الأخ @qathi وبالتحري 🙂 وجدت المشكلة في الحصول على عدد السجلات والذي نحصل عليه من: Me.RecordsetClone.RecordCount حيث يعطي أحيانا العدد واحد بدلا من المجموع، وكان حلي للمشكلة في حدث عند فتح النموذح بهذه الطريقة: Private Sub Form_Open(Cancel As Integer) On Error Resume Next DoCmd.GoToRecord , , acLast DoCmd.GoToRecord , , acFirst End Sub والآن أرفع لكم نسخة أخرى بعد التعديل. تطبيق لون_08.accdb

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

وعليكم السلام.. المفروض في سؤالك ان تحتفظ بالرقم المتشابه الاول ولنفرض اسم الحقل ID في الجدول1 1-أعمل جدول2 لالحاق البيانات من الجدول1 الى الجدول2 حتى تحتفظ بالسجلات الاصلية ..حيث تعمل استعلام الحاق بذلك نسميه App_Q 2- اعمل استعلام من الجدول1 ولنسميه مثلا DUPE_Query 3- نعمل موديول لحذف الارقام المكررة بهذا الشكل Sub DUPE_REMOVAL() 'مسح الارقام المكررة من الجدول Dim db As DAO.Database Dim rst As DAO.Recordset Dim ingID As Long Dim ingIDLast As Long Set db = CurrentDb Set rst = db.OpenRecordset("DUPE_Query") ingIDLast = 0 Do Until rst.EOF ingID = rst!ID If ingID = ingIDLast Then rst.Delete End If rst.MoveNext ingIDLast = ingID Loop rst.Close Set rst = Nothing Set db = Nothing End Sub 4- اعمل نموذج مع كمبوبوكس مصدر الصف له من الاستعلام DUPE_Query 5- في حدث عند التحميل للنموذج ضع الكود التالي DoCmd.SetWarnings False DoCmd.OpenQuery "App_Q" DoCmd.SetWarnings True Call DUPE_REMOVAL

المرفق الاخير لاستاذنا @AbuuAhmed يعمل لدي بشكل ممتاز

السلام عليكم في نقاش مع الأستاذ @رمهان في أحد المواضيع اقترح عليا فتح موضوع حول إغلاق البرامج المتصلة بالشبكة من أجل النقاش و إثراء الموضوع. و لقد قمت بهذا الصدد بتصميم مثال يجعل مدير الشبكة يتحكم في إغلاق جميع البرامج (الأجهزة) المتصلة عبر الشبكة. شرح فكرة البرنامج: قمت بإضافة جدول لقاعدة البيانات اسمه tbl1 و وضعت به حقل اسمه code_edit نوعه رقمي تعتمد الفكرة على إعطاء هذا الحقل قيمتين 0 أو 1 في نسخة المستخدم هناك نموذج الواجهة frm يتحسس لقيمة الحقل code_edit إذا وجدها 1 يفتح نموذج آخر يبدأ بالعد التنازلي من 10 لإغلاق القاعدة و عند فتح القاعدة مرة ثانية يظهر نموذج العد التنازلي مرة أخرى لأن قيمة الحقل 1 يتم تغيير قيمة الحقل من خلال زري أمر في نسخة المدير (إغلاق الأجهزة المتصلة و منع الإتصال ، السماح بالإتصال) في المرفق ثلاثة ملفات نسخة المدير و نسخة مستخدم و db بعد تحميل المرفق قم بتحديث إرتباط نسخة المدير و نسخة مستخدم مع القاعدة db افتح الملفين نسخة المدير و نسخة مستخدم و اضغط على زر إغلاق الأجهزة المتصلة و منع الإتصال في نسخة المدير سوف تلاحظ ظهور نموذج العد التنازلي في نسخة المستخدم و إن كانت لك شبكة داخلية تستطيع نقل نسخة المستخدم لجهاز آخر و تحديث الإرتباط و تجربة البرنامج. eloued.rar

اجريت بعض التعديلات على النموذج

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

جرب هذا الكود Sub hide_for_me() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With If ActiveSheet.Name <> "ورقة1" Then GoTo exit_sub Dim Last_Col%, i% Last_Col = ActiveSheet.Cells(4, Columns.Count).End(1).Column Range("b3").Resize(1, Last_Col - 1).Columns.Hidden = False For i = 3 To Last_Col - 1 If Weekday(Cells(4, i)) > 5 Then Cells(3, i).EntireColumn.Hidden = True Next exit_sub: With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub