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

تفضل المستودع التقني.xlsm

راديو احترافى لن تجده الا بمنتديات اوفيسنا الاصدار الاول : JU_Radio v1.zip

تفضل TestDBv.mdb

تفضل أستاذ عبد جرب وللاسترجاع اعكس الأوامر مع عمل نموذج ارجاع مصدره الجدول TargetTbl Private Sub Command1_Click() Dim db As DAO.Database Dim StrSQLADD As String Dim StrSQLDEL As String ' تعريف القاعدة الحالية Set db = CurrentDb ' ادراج السجل الحالي في جدول التخزين StrSQLADD = "INSERT INTO TargetTbl SELECT * FROM [SourceTbl] WHERE IDREC = " & Me!IDREC db.Execute StrSQLADD 'حذف السجل الحالي بعد حفظه في الجدول السابق StrSQLDEL = "DELETE * FROM SourceTbl WHERE IDREC = " & Me!IDREC db.Execute StrSQLDEL ' تحديث النموذج للتخلص من السجل المحذوف Me.Requery End Sub TestDB.mdb

ما اقصده هو اخفاء السجل وليس حذفة الخاصية False لاظهار السجلات في النموذج الرئيسي والخاصية true لاظهار السجلات المخفية ( بالنموذج الاخر ) بالنموذج الاول عند رغبتك بحذف سجل ضع زر أمر يقوم بتحديث حقل Deletrecord الى القيمة true فيتم حذفه ( اخفاء) وبالنموذج الاخر ضع زر أمر يقوم بتحديث الحقل Deletrecord ويعطية القيمة False وفي نفس النموذج ضع زر أمر حذف يقوم بحذف السجل إذا اردت حذفه نهائياً ان شاء الله قدرت اوصلك الفكرة

بعد إذن استاذي جعفر لست بحاجة لعمل جدول وترحيل السجل اليه فقط تحتاج الى خانة نعم لا باسم Deletrecord في منشأ الاستعلام للمنوذج اجعل قيمة الحقل false والاسترجاع السجل للظهور اعمل نموذج اخر وفي منشئ الاستعلام اجعل الخاصية True ::بالتوفيق::

اهلا بك اخى اشرف في المنتدى تفضل لك ما طلبت معادلة عد2.xlsx

وعليكم السلام 🙂 في الحدث بعد تحديث الحقل "الحالة الزوجية" ضع هذا الكود (ما يهمك ، الكود هنا مقلوب ، بس في VBE بيطلع صح 🙂 ) : if me.[الحالة الزوجية]="اعزب" then me.[عدد الاطفال].visible=false else me.[عدد الاطفال].visible=true end if جعفر

وهذا أيضا برنامج متكامل للمبيعات والعملاء على هذا الرابط https://www.officena.net/ib/topic/91701-برنامج-ادارة-المبيعات-و-العملاء/?tab=comments#comment-575051

بارك الله فيكى وجزاكى الله خير الثواب-والحمد لله الذى بنعمته تتم الصالحات

تفضلى المستودع التقني.xlsm

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

بالطبع استلمت الملف وبحاول فيه ولكن أيضا اريد قائمة بالرمز الخاص بجميع الأصول وأسماء جميع الأصول مع وصفهم , لعمل قوائم منسدلة أيضا بهم كما تم عمله في هذا الملف المستودع التقني.xlsm

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

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

السلام عليكم محتاج مساعدة في ترقيم السجلات على النموذج وجربت كتير لكن مظبطتش مرفق قاعدة للتوضيح Database111.rar

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

حضرتك اختار من القوائم المنسدله فوق والنموذج راح يتملى

البرنامج يفتح وتاتي الشاشة الرئيسة وطلب التحديث

بيظهر معى صفحة فاضية بيضاء

لا يقال لمثلك سوى شكراً و جزاك الله بما صنعت خيراً

بالاكسس لا اعتقد على حد علمي ::بالتوفيق::

هذا حقا هو الإبداع بعينه احسنت فأبدعت استاذى الكريم عمل فوق الممتاز واعتقد ان هذا هو حقا المطلوب جعله الله في ميزان حسناتك وزادك الله من فضله

محاولة بسيطةtst1.rar

شكرا ابا جودى تم فتح الملف بنجاح وعاشت الايادي

البيانات ، بعض النظر عن طريقة ادخالها ، عن طريقة النموذج او الاستعلام وا الكود او الجدول ، فإنها تُحفظ في الجدول ، لذلك ، تقدر تشتري احد برامج استرجاع البيانات ، ابحث في الانترنت عن: ms access database recovery وستحصل على الكثير من المواقع. جعفر

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

فعلا استاذنا الاستاذ محمد لديه اصرار وتصميم للوصول لما يريد

اغلق قاعدة البيانات من الجهاز( الخادم ) الذي توجد عليه افتح المجلد الذي توجد فيه القاعدة إذا رأيت ملف مشابه لأسم قاعدة البيانات فهذايعني ان القاعدة مفتوحة من احد الاجهزة المتصله لكن لايمكن الجزم بأنه يتم حاليا ادخال سجلات او التعديل عليها لعل المستخدم مثلا فتح ملف الواجهة وتركه مفتوح ::بالتوفيق::

حسب علمي لا اظن ذلك جرب احذف سجل وانظر الى امر التراجع في الاكسس في الأعلى هل يظهر؟؟ لا يظهر اذن لا اظن على حسب خبرتي يتم التراجع بعد الحذف نهائياً

أحسنت أستاذ سليم كود بمعادلة معرفة ممتاز جعله الله في ميزان حسناتك لا يوجد حل افضل مما قدمه لك الأستاذ الكبير سليم فموضوعك وطلبك لا يمكن عمله مباشرة الا بداله الأستاذ سليم فاذا كنت تريد معادلات عادية فلابد من عمل وتأسيس أعمدة مساعدة , ويتم العمل بمعادلة VLOOKUP فعليك بكتابة كل الأرقام بهذه الطريقة لجعلها مصدر للمعادلة فلابد من تكملة الأرقام بهذه الطريقة الى ما تريده Order_Me2.xlsm

أحسنت استاذ سليم كود ممتاز جعله الله فى ميزان حسناتك

كود ممتاز استاذ سليم بعد اذن حضرتك ولإثراء الموضوع هناك حل أخر بالمعادلات فى العمود C يمكنك استخدام هذه المعادلة مع التغيير المطلوب فى كل معادلة =SUMPRODUCT(SUMIF(INDIRECT("'"&C$2&"'!"&"B2:B1000"),$B3,INDIRECT("'"&C$2&"'!"&"H2:H1000"))) Total.xlsm

لو ممكن وضع فيه كل الطلبات وبعض المعطيات ليسهل العمل والمساعدة من قبل الأساتذة والخبراء

رابط الملف موجود فى الفيديو

تفضل أخى الكريم فهذه معادلات مصفوفة فلابد من الضغط على Ctrl+Shift+Enter وليس Enter فقط حكام.xlsx

لو واجهتك اى مشكلة عليك برفع الملف مرة اخرى وتوضيح المشكلة لحلها بارك الله فيك

لو الخطأ مع معادلتى انا فلابد من الضغط على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات لكى تعمل المعادلة بكل دقة لأنها معادلة مصفوفة وليست معادلة عادية بارك الله فيك

دائما وابدا يجب رفع ملف للعمل عليه تجنبا لإهدار الوقت بارك الله فيك

أحسنت بارك الله فيك استاذى الكريم عمل رائع

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

يمكنك بذلك استخدام ملف الأستاذ عماد بارك الله فيه

تفضل أخى الكريم تجربة.xlsm

طبعا بالتأكيد كما بصورتك فلا تعمل لابد من وضع علامة صح كما بالصورة فى المربع الصغير . .

تفضل الحل بمعادلات المصفوفة 1الحكام.xlsx

وده امر سهل ان شاء الله -انظر الى الصور . .

وعليكم السلام لك ما طلبت تعديل على الكود - الترحيل على اساس شروط ثلاث.xlsm

بعد اذن استاذنا عماد وذلك بكتابة السطر الأول داخل الخلية ثم الضغط على Alt+Enter وكتابة السطر الثانى جزاك الله كل خير

يمكنك فعل هذا أولا بدون اكواد بتتبع الشرح فى هذا الرابط : https://academy.hsoub.com/apps/productivity/office/microsoft-excel/حماية-ملفات-microsoft-excel-من-التعديل-بكلمات-سر-r62/ او بوضع هذا الكود لحماية كل اوراق العمل Sub Protect() Dim ws As Worksheet Dim pwd As String pwd = "" ' Put your password here For Each ws In Worksheets ws.Protect Password:=123, UserInterfaceOnly:=True Next ws End Sub وكود اخر لفك الحماية Sub UnProtect() Dim ws As Worksheet Dim pwd As String pwd = "" ' Put your password here For Each ws In Worksheets ws.UnProtect Password:=123 Next ws End Sub بارك الله فيك

جرب هذا برنامج محلات تجارية.rar