رمهان قام بنشر أغسطس 15, 2015 قام بنشر أغسطس 15, 2015 السلام عليكم قد يكون الموضوع مش جديد وعلى المبتدئين ! ولكن يمكن ان يكون من نوع السهل الممتنع ! الموضوع : عند اضافة بيانات لحقل معين اريد ان يشيك اولا هل هو موجود فيذهب لذلك السجل او يستمر في الاضافة عند عدم وجود المكرر ان ما جعلني اكتب هذا الموضوع هو ان احد الاخوة طرح هذا السؤال وهو شخص اعرف ان مستواه جيدا فقمت بالبحث في اماكن عدة فلم اجد جوابا شافيا ! ويكثر الطلب عليه دائما ! وضعت هنا طريقتين وعند الحدث قبل التحديث للحقل: 1. وهي المطبقة في المرفق: Private Sub Id_BeforeUpdate(Cancel As Integer) Set rs = Me.RecordsetClone rs.FindFirst "id=" & Me.Id If Not rs.NoMatch Then Undo Me.Bookmark = rs.Bookmark MsgBox ("موجود هنا") End If End Sub 2. Private Sub Id_BeforeUpdate(Cancel As Integer) idx = Me.Id If DCount("*", "persons", "id=" & idx) Then Undo DoCmd.FindRecord idx MsgBox ("مكرر هنا") End If End Sub تحياتي متمنيا الفائدة ومستقبلا التعقيب وراغبا في المشاركة بافكار اخرى check_before_ins_upd.rar 6
راعي الغنم قام بنشر أغسطس 15, 2015 قام بنشر أغسطس 15, 2015 الله لايحرمنا منك استاذنا الفاضل وكل اللي يجي منك عظيم الفائدة ولا تحرمنا من طلاتك مهما بدت لك قديمة او بسيطة فنحن بحاجة لكل معلومة.. دمت كما تحب..
yms12 قام بنشر أغسطس 17, 2015 قام بنشر أغسطس 17, 2015 جزاك الله كل خير دائما تاتي بالمفيد فلا تحرمنا من علمك
رمهان قام بنشر أغسطس 18, 2015 الكاتب قام بنشر أغسطس 18, 2015 (معدل) ام خلود راعي الغنم yms12 تشرفت بمروركم وحبيت اضيف : هناك فائدة عظيمة وهي انه مثلا حبيت اعدل على الحقل فيشيك اثناء التعديل بوجود الرقم الجديد ام لا ؟ وهنا اتوقع انه لم يسبق التطرق لهذا !! وان حصل فهاتو الرابط ؟ او المرفق ؟ شايفين كيف : سهلة - ضرورية - جديدة وياليت احد اصحاب الصلاحية يتكرم بتعديل العنوان ليصبح : التأكد والبحث عن المكرر اثناء الاضافة او التعديل تحياتي تم تعديل أغسطس 18, 2015 بواسطه رمهان
ابوخليل قام بنشر مايو 7, 2016 قام بنشر مايو 7, 2016 في ١٨/٨/٢٠١٥ at 07:34, رمهان said: وهنا اتوقع انه لم يسبق التطرق لهذا !! وان حصل فهاتو الرابط ؟ او المرفق ؟ هذه الروابط لعموم الفائدة هذا من عام 2001 وهذا من عام 2007 هنا الكود من عام 2008 وهذا من عام 2010 وهذا من عام 2012 وهذا من ميكروسوفت حديث 2
رمهان قام بنشر مايو 7, 2016 الكاتب قام بنشر مايو 7, 2016 4 دقائق مضت, ابوخليل said: هذه الروابط لعموم الفائدة هذا من عام 2001 وهذا من عام 2007 هنا الكود من عام 2008 وهذا من عام 2010 وهذا من عام 2012 وهذا من ميكروسوفت حديث كنت اقصد روابط من منتدانا او منتدى عربي بعدين عاتب عليك حيث ظل طلبي في تعديل العنوان فتره طويله لم يعدل شكرا على المرور 2
ابوخليل قام بنشر مايو 7, 2016 قام بنشر مايو 7, 2016 بالنسبة للتعديل فاظن انه تم في حينه يمكن بعد يوم او يومين من المشاركة واظن ان تواريخ التعديلات والحذف يحتفظ بها الموقع اما كتابتي للروابط فهي حسب طلبك ، والاولى انك انت تضع مصدر المعلومة ولانك اشرت الى هذه المشاركة هناك فمع اختلاف المطلوب قليلا فكأنك تلمح الى الاسبقية في كتابة الكود علما اني لم استفد من الروابط اعلاه في تحرير الكود ولا من المواقع العربية وانما الذي كتبه اكسس نفسه فمنذ عرفت اكسس وهو يكتب هذا الكود وبذكاء ايضا حيث يضع المعايير حسب الحقل المفلتر يضع معيار ا نصيا ان كان الحقل نصيا ومعيارا رقميا ان كان الحقل رقميا هل يبدو الامر غريبا ! ؟ واحيانا ادخل عليه او اجري عليه بعض التعديلات البسيطة حسب الحاجة كما في طلب الاخ مومن في الرابط السابق
رمهان قام بنشر مايو 7, 2016 الكاتب قام بنشر مايو 7, 2016 والله يابو خليل مدري ويش تبي توصل له لكن الموضوع به فكرة ان البحث يتم عند الكتابة في احد الحقول المنضمة وليس في مربع بحث منفصل واللي بيته من زجاج لا يرمي الناس بالحجاره
ابوخليل قام بنشر مايو 7, 2016 قام بنشر مايو 7, 2016 في ١٨/٨/٢٠١٥ at 07:34, رمهان said: وهنا اتوقع انه لم يسبق التطرق لهذا !! وان حصل فهاتو الرابط ؟ او المرفق ؟ شايفين كيف : سهلة - ضرورية - جديدة دع معالج اكسس يعمل بدلا عنك عند انشاء مربع تحرير ثم انظر الكود الناتج يمكنك بعد ذلك تغيير مربع التحرير الى مربع نص منضم او غير منضم وموضوعك هذا موجود له سنه لم اعلق عليه ولا عارضتك ولكنك انت اللي سحبتني بمشاركتك هنا والاسلوب الذي كتبت به المداخلة : اوجب علي التوضيح للاعضاء من باب نشر العلم وتبيينه ادعوا لي ولك اخي ان يرزقنا الله العلم النافع والعمل الصالح وان يكون خالصا لوجهه الكريم
رمهان قام بنشر مايو 7, 2016 الكاتب قام بنشر مايو 7, 2016 تدري ايش مشكلتك يابو خليل دائما تجي مطفي النور ومتسرع ومتسلط تعوذ من ابليس واعطني مثال ارفقه هنا "في وضعية سجل جديد اقوم بادخال المفتاح الاساسي في نفس حقله فان وجد ذهب للسجل وان لم يجد يستمر في الاضافة وياخذ الرقم المدخل وكانه لم شي يحدث" وصدقني هو نفس سؤال الاخ مومن في الرابط السابق الذي وضعته انت وليس يريد انشاء مربع بحث مستقل ! لذلك رايت ان اتي به هنا ليقيني بان هنا مايريد بالتمام بالتوفيق
ابوخليل قام بنشر مايو 7, 2016 قام بنشر مايو 7, 2016 ههه الله يخزي شيطانك صحيح اني اتسرع ولكن اعوذ بالله من التسلط ليتك بسطت فكرتك هناك او عدلت على الكود الموجود ثم بعد ذلك احلت على فكرتك يمكن يكون الرد الطف وشكرك اوجب اقتباس تعوذ من ابليس واعطني مثال ارفقه هنا مثالي هو الموجود هناك فقط اضف كلمة undo للتراجع عن الخطأ وغير الحدث الى قبل التحديث اهم عوامل الكود التي يكتبها اكسس هي : Recordset.Clone FindFirst Bookmark Not rs.EOF NoMatch
رمهان قام بنشر مايو 7, 2016 الكاتب قام بنشر مايو 7, 2016 معليش ابو خليل ممكن رابط او اثنين من المنتدى قبل تاريخ موضوعي اعلاه ! يقوم بالبحث عند الكتابة في المربع المنضم فاذا وجده يذهب لذلك السجل او يقبل الاضافة عند عدم التكرار مع ملاحظة 1. النموذج منضم 2. المربع منضم ويقبل الكتابة اي ليس ترقيم تلقائي ومسالة ال undo قد تكون هي السر او موقعها في الكود بالتوفيق
ابوخليل قام بنشر مايو 7, 2016 قام بنشر مايو 7, 2016 8 دقائق مضت, رمهان said: ومسالة ال undo قد تكون هي السر او موقعها في الكود رمهان اول واحد يعلن عن هذا السر في المواقع العربية اذا هذا اللي بخاطرك .. صافي ياعسل ولكن اذا وجد من سبقك الى هذه المعلومة في اي جهة من الكرة الارضية ، فمن حقه الاشارة اليه ايضا يسقط حقك في المطالبة بالحقوق الفكرية قد يعذر الانسان بالجهل ولكن حين يعلم يلزمه التنويه وانا لا انتقص من قدر احد فقد تكون المسألة توارد خواطر ، يعني ان الانسان قد يصل الى الفكرة باجتهاده ، ثم يفاجأ انه قد سبقه غيره اليها وهذا الاخير اجزم به وان الفكرة من اجتهادك . اسأل الله ان يصلح احوالنا ، ويعفو عنا 1
رمهان قام بنشر مايو 7, 2016 الكاتب قام بنشر مايو 7, 2016 32 دقائق مضت, ابوخليل said: رمهان اول واحد يعلن عن هذا السر في المواقع العربية اذا هذا اللي بخاطرك .. صافي ياعسل ولكن اذا وجد من سبقك الى هذه المعلومة في اي جهة من الكرة الارضية ، فمن حقه الاشارة اليه ايضا يسقط حقك في المطالبة بالحقوق الفكرية قد يعذر الانسان بالجهل ولكن حين يعلم يلزمه التنويه وانا لا انتقص من قدر احد فقد تكون المسألة توارد خواطر ، يعني ان الانسان قد يصل الى الفكرة باجتهاده ، ثم يفاجأ انه قد سبقه غيره اليها وهذا الاخير اجزم به وان الفكرة من اجتهادك . اسأل الله ان يصلح احوالنا ، ويعفو عنا والله انا لم افهم المضمون ابوخليل ولكن ممكن توضح اكثر ! وبشكل صريح ! وساقرا الرد مرة اخرى ولي عوده وقت فراغي ! تحياتي 1
رمهان قام بنشر يناير 26, 2019 الكاتب قام بنشر يناير 26, 2019 3 دقائق مضت, aber said: لو سمحت ممكن شرح بارامترات الموجودة في الكود اي باراميتر اعملي نسخ ولصق للسطر المعني ؟ بالتوفيق
aber قام بنشر يناير 26, 2019 قام بنشر يناير 26, 2019 rs = Me.RecordsetClone Me.Bookmark = rs.Bookmark
رمهان قام بنشر يناير 26, 2019 الكاتب قام بنشر يناير 26, 2019 9 ساعات مضت, aber said: rs = Me.RecordsetClone rs هو متغير من نوع ريكوردست وتم اسناد مجموعة سجلات النموذج(ريكوردست النموذج) له 9 ساعات مضت, aber said: Me.Bookmark = rs.Bookmark هنا بعد البحث يتم عمل مزامنة او مساواة في موقع المؤشر لنه بعد ايجاد السجل المطلوب يظل مخفيا فنظهره في النموذج بانتقال سجل النموذج لنفس السجل فيظهر للباحث هذا واعتقد اني اختصرت كثرا ولكن لعلكي افدتك او يمكنك نسخهما والبحث في قوقل والقراءة اكثر عنهما تحياتي
aber قام بنشر فبراير 16, 2019 قام بنشر فبراير 16, 2019 لو سمحتو ارجو المساعدة في اضافة رز يقوم باجراء تعديل على بيانات سجل في القاعدة ويقوم بحفظ التعديلات في سجل جديد اي مع ابقاء القيم القديمة.. هل يوجد في اكسس 2010 في اجراءات الماكرو اجرائية NewRecord ؟
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.