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

تفضل المستودع التقني.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

شكرا لحضرتك وذوقك واهتمامك وان شاء الله نوصل لحل

يعني زى الصورة كدة يكمل لغاية 119 اللى هو عدد السجلات بس

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

وضح السؤال ؟؟ مشان نعرف نساعدك ؟؟ النموذج فارغ

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

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

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

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

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

آسف لعطل في الانترنت https://up.top4top.net/downloadf-1271dfz0l1-rar.html

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

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

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

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

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

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

جرب هذا الملف Order_Me.xlsm

شكرا استاذ علي اسفة عذتك كتير..الله يعطيك الف عافية

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

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

بارك الله فيك وجزاك الله كل خير

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

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

بعد اذن الأستاذ شريف ولإثراء الموضوع هذه معادلة مجموع الكميات السالبة =-SUMIF($C$2:$C$9956,"<0") وهذه معادلة الكميات الموجبة =SUMIF($C$2:$C$9956,">0") بارك الله فيكم جميعا

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

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

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

بارك الله فيك وزادك من فضله ولك بمثل ما دعوت لى وزيادة

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

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

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

تفضل لتحليل الاختبارات للمرحلة المتوسطة والثانوية.xls

اشرح ما تريده بالضبط على الملف مع الإستعانة بالصور للتوضيح

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

يمكنك فعل هذا أولا بدون اكواد بتتبع الشرح فى هذا الرابط : 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 بارك الله فيك