ابوخليل

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

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

اخوتي @jjafferr @Foksh الجمل الأخيرة كلها تعمل واصبح هذا الموضوع متنوع الثمار .. كل يأخذ حسب حاجته .. اعجبتني آخر جملة الف شكر لجميع من شارك في هذا الموضوع

ما شاء الله .. الآن تمام .. بارك الله فيك

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

هذه نتيجة العمل آخر الليل .. فاعذرني وسامحني من اين جاءت الـــ bb ؟؟ انا مخطىء وايضا المثال ناقص السبب اني اعمل على برنامج وصنعت هذا المثال على عجل من اجل التسهيل .. وكما يقال آخر العجلة الندامة @ابو جودي كودك شغال تمام لما استبدل الــ bb بـــ cc ولكنه يقوم بتحديث جميع حقول الــ cc يعني من الآخر مثالي ناقص ارفقت مثالي الصحيح .. والمطلوب ان التحديث يتم عند تطابق حقلين وليس حقل واحد useriD و cardNo Database2.rar اهلا اخوي جعفر .. هو ما ذكرته اعلاه 🙈

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

السلام عليكم في المرفق جدولان واستعلامان افتح استعلام التحديث على التصميم وستعرف المطلوب اريد تحديث حقل في جدول بناء على قيمة في استعلام تجميعي حاولت ولكني لم انجح .. منطقيا يجب ان يعمل لأني استخدم الاستعلام التجميعي كدليل فقط Database1.rar

السلام عليكم مشاركة مع اخي خليفة كود لتكرار السجل في الجدول نفسه في المثال : فقط انقر نقرا مزدوجا على حقل الاسم الذي تريد تكراره DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy DoCmd.RunCommand acCmdRecordsGoToNew DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdPaste Test2.rar

ههههه الله يكون بعون الجميع يمكن للمكتبات دور عندك جرب هذا .. اضفت مكتبة رئيسية علما انه يعمل عندي بدونها Data3.rar

انا شغال عندي اول مثال للاستاذ قاسم يحتاج فقط ضغط زر التحديث فانا الغيت الزر جرب كذا Data2.rar

تمت التجربة .. ظهر المجلد والملف داخله

رائع وجميل .. وفكرة متعوب عليها سؤال : عن الدائرة في مربع التسمية هل تم تصميمه خارج اكسس ؟

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

انظر الفرق والتغيير بين الكودين الكود الأول يزيل كلمة New folder المثبتة ضمن الكود وعدد الأحرف = 12 الثاني : لا يوجد كلمة محددة .. فقط يكتفى بعدد الحروف التي = 6

هذا يحقق طلبك فقط احذف الجملة الظاهرة المراد ازالتها .. وغير في العدد مع زيادة حرف بمعنى تريد حذف 5 اجعل الرقم = 6 هكذا يصبح الكود Private Sub cmd1_Click() RenameSubFolders (CurrentProject.Path & "\New folder") End Sub Sub RenameSubFolders(ByVal MainFolder As String) Dim sSubFolder As String sSubFolder = Dir(MainFolder & "\?*", vbDirectory) Do While sSubFolder <> "" If GetAttr(MainFolder & "\" & sSubFolder) = vbDirectory Then Name MainFolder & "\" & sSubFolder As MainFolder & "\" & Mid$(sSubFolder, 6) End If sSubFolder = Dir() Loop End Sub

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

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

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

تفضل هكذا سيصبح مشروعك رقم الوظيفة للمستخدم محمد = 123 رقم الوظيفة للمستخدم صلاح = 456 inv4.rar

طيب سوف اعالج طلبك ولكن فضلا لا ترفع مرفقات .. لأن ما اعمل عليه سيختلف

تفضل تم التعديل لم انتبه بسبب ان المعرف تم اخفاؤه inv3.rar

مشاركة مع اخي فادي ضع المرفق بجانب المجلد ونفذ ملحوظة مهمة : خذ نسخة من مجلدك قبل التنفيذ Private Sub cmd1_Click() RenameSubFolders (CurrentProject.Path & "\New folder") End Sub Sub RenameSubFolders(ByVal MainFolder As String) Dim sSubFolder As String sSubFolder = Dir(MainFolder & "\New folder?*", vbDirectory) Do While sSubFolder <> "" If GetAttr(MainFolder & "\" & sSubFolder) = vbDirectory Then Name MainFolder & "\" & sSubFolder As MainFolder & "\" & Mid$(sSubFolder, 12) End If sSubFolder = Dir() Loop End Sub changeSomeFolderName.rar

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

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