كل الانشطه

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

هل المطلوب يمكن تنفيذة

اخي الكريم ، لو انا صنعت خزنة برقم سري لا يعلمه الا انت وانا ، وانا توفيت ، تعتقد احد في الكوكب يقدر يعطيك الرقم السري اللي نسيته انت ؟؟؟؟؟؟؟؟ اعتقد اوضح من كذا ما تلقى

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

الشخص من 2003 لم يتم التواصل معه مادري هو حي ولا ميت كيف ممكن اوثق لكم انا مشترك معكم من كم سنه لم يصدر لي وان شاركت معكم والله على ماقول شهيد حيث واجهت صعوبه طريقة رفع الملف

اعتذر منك اخي الكريم .. وثق انك لن تجد طلبك

المطلوب عند كتابة التاريخ في الخلية M1 يمتلئ التاريخ تلقائيا في الجدول ولو بدأ اول الشهر من اي يوم من يوم الاحد او الخميس علما ايام الجدول ثابتة حساب التاريخ.xlsx

رابط الملف https://top4top.io/downloadf-3743kx4i01-rar.html البرنامج قديم 2003 تقريبا انا اشتغل عليه لكن بعد الفرمات صار الذي صار يشهد الله اني حاولت لكن للاسف

ليس لك حل أخي الكريم إلا انتظار صاحب البرنامج ، ونسأل الله أن يرد الغائب لأهله بخير وسلامة

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

أخواني وأساتذتي ومعلمينا ( دون استثناء ) للضرورة القصوى لمن يرغب بالمساعدة ، مطلوب :- قواعد بيانات مقفلة ومحمية تكون حصراً بصيغة ACCDE - لا حاجة لي بأي معلومات أو بيانات داخل الجداول .. قواعد بيانات تالفة ( لا تفتح أساساً ) . الهدف هو تجربة لأداة جديدة قيد التجربة بعد أن تمت برمجتها من خلال آكسيس فقط . حيث وقعت في مشكلة كنت قد طرحتها في هذا الموضوع هنا . ما اضطرني لتطبيق نصيحة الحاجة أم الأختراع ، بعد البحث والتمعن لمدة 3 أيام متواصلة ..

معلمى الفاضل توصلت لحل متواضع اريد عرضة على حضرتك افتح القاعدة الجديدة واتفرج عليها واذا كان هناك تعديل من حضرتك لتصبح افضل مما هى علية قم بالتعديل على النموذج ولك الشكر وافينى برايك لان مهم عندى جدا JO_Lab.rar

تمت التجربة على اوفيس 2010 ، وما شاء الله عليك ، أجدت الدمج والتوظيف .. ومن الجميل أن يكرّم الإنسان نفسه دائماً عند اجتهاده ، فلا تنسى اختيار "تمت الإجابة" لرسالتك التي تسبق رسالتي هذه . فأنت تستحقها بجدارتك

أستاذنا الغالي أبو احمد ،، بداية أحترم رأيك بشدة ، وأنت من الأشخاص الذين لهم بصمة فعلية في تقديم المساعدة لأخوتنا في القسم متى حللتم ، رغم أننا نفتقد وجودكم بيننا والإستفادة من فيض العلم الذي علمكم الله أياه . أخونا جو طرح سؤاله النابع من مشكلة واجهها في كود جاهز حصل عليه من أداة ، لكنه لم يلبي حاجته بسبب عدم توافق الكود حرفياً وفعلياً مع طلبه عند التعامل مع رسالة MsgBox من 3 أزرار ,, وقدم له الأخوة مجموعة حلول البرمجية المنطقية ؛ إلا أنه تمسك بالحبل الذي بين يديه ولم يفضل تبديله . لذا ومن ضمن الحلول كنت قد اقترحت عليه استخدام Select Case كما تفضلتم في طرحكم - إضافة إلى ما جاد به خبرائنا الكرام - مشكورين - ، فعاد إلى أصل الموضوع الذي حصل على الكود منه للأستاذ منتصر الأنسي - مشكوراً لجهده على انتاج الأداة - ، وقد لباه بتحديث يدعم Select Case حسب رغبته .. لكم الشكر على ما تقومون به من مساعدة ومد يد العون لأخوانكم أينما حلّت أناملكم الذهبية .. وفي النهاية انت تعلم أن من يبحث عن إجابة رغم تعدد الحلول إلا أنه سيفضل الأسهل والأبسط لمشروعه وحاجته وخبرته .

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

ابشر شعال .................

الحمدللة الخبير الفاضل منتصر الانسى لة خالص الشكر اضاف select case الى البرنامج الخاض بة واعطى نتائج رائعة

معلمى الفاضل انظر الصور

السلام عليكم ورحمة الله حبايبي اللي بينقذوني دايما 😊 عندي نموذج بداخلة 2 نموذج فرعي النموذج الفرعي الثاني بداخلة 2 مربع تحرير وسرد بمسمي المحاور والاسباب اريد عند اختيار المحور يظهر لي الاسباب الخاصة به فقط وليس كل الاسباب كما هو موضح بالصورة M.rar

السلام عليكم استاذ بارك الله فيك استاذنا استاذ مازالت الاجازة تنتهي اليوم يتم بالازرق فقط

تفضل استاذ @بلال بلال المرفق بعد التعديل بطلبك تفضل الشرح والمرفق . ووافني بالرد . Yamen-01-04-2026.rar

تمام أخى الفاضل Foksh شكراً لك .. هذا ما أريده تماماً وتم التعديل بسهولة لدمج 3 كائنات فى زر أمر واحد ( زر استيراد الجدول ) للتجربة تكون بمراعاة الأرقام الظاهرة على الصورة Test1.mdb

تفضل أخي الكريم ، التعديل الي طلبته .. Private Sub btnLocateFile_Click() On Error GoTo Err_btnLocateFile_Click Dim fd As Object Dim fileName As String Dim defaultFolder As String defaultFolder = "D:\Access_Teacher\" If Dir(defaultFolder, vbDirectory) = "" Then MkDir defaultFolder End If Set fd = Application.FileDialog(1) With fd .Title = "اختر ملف الإكسل" .Filters.Clear .Filters.Add "Excel Files", "*.xls; *.xlsx" .InitialFileName = defaultFolder If .Show = -1 Then If .SelectedItems.Count > 0 Then fileName = .SelectedItems(1) Me.txtImportFile = fileName End If End If End With Exit_btnLocateFile_Click: Exit Sub Err_btnLocateFile_Click: MsgBox Err.Description, vbCritical + vbMsgBoxRight, "خطأ" Resume Exit_btnLocateFile_Click End Sub

كما فهمت: Private Sub أمر0_Click() Dim msgRes As VbMsgBoxResult Const msg = "ماذا تريد ان تفعل Yes فتح نموذج NO فتح تقرير Cancel تراجع " msgRes = MsgBox(msg & vbCrLf & "" & vbCrLf & "الحمدلله", vbYesNoCancel + vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "الله المستعان") '--- طريقة أولى ---- If msgRes = vbYes Then DoCmd.OpenForm "22" ElseIf msgRes = vbNo Then DoCmd.OpenReport "33", acViewPreview ElseIf msgRes = vbCancel Then Exit Sub End If '--- طريقة أخرى ---- 'Select Case msgRes ' Case vbYes ' DoCmd.OpenForm "22" ' Case vbNo ' DoCmd.OpenReport "33", acViewPreview ' Case vbCancel ' Exit Sub 'End Select '--------------- '... End Sub

شكرا لك جزاك الله خير ورحم الله والديك ... جاري التجربة 🌹