رمهان قام بنشر أغسطس 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.rarFetching info... 6
راعي الغنم قام بنشر أغسطس 15, 2015 قام بنشر أغسطس 15, 2015 الله لايحرمنا منك استاذنا الفاضل وكل اللي يجي منك عظيم الفائدة ولا تحرمنا من طلاتك مهما بدت لك قديمة او بسيطة فنحن بحاجة لكل معلومة.. دمت كما تحب..
yms12 قام بنشر أغسطس 17, 2015 قام بنشر أغسطس 17, 2015 جزاك الله كل خير دائما تاتي بالمفيد فلا تحرمنا من علمك
رمهان قام بنشر أغسطس 18, 2015 الكاتب قام بنشر أغسطس 18, 2015 (معدل) ام خلود راعي الغنم yms12 تشرفت بمروركم وحبيت اضيف : هناك فائدة عظيمة وهي انه مثلا حبيت اعدل على الحقل فيشيك اثناء التعديل بوجود الرقم الجديد ام لا ؟ وهنا اتوقع انه لم يسبق التطرق لهذا !! وان حصل فهاتو الرابط ؟ او المرفق ؟ شايفين كيف : سهلة - ضرورية - جديدة وياليت احد اصحاب الصلاحية يتكرم بتعديل العنوان ليصبح : التأكد والبحث عن المكرر اثناء الاضافة او التعديل تحياتي تم تعديل أغسطس 18, 2015 بواسطه رمهان
ابوخليل قام بنشر مايو 7, 2016 قام بنشر مايو 7, 2016 في 18/8/2015 at 04:34, رمهان said: وهنا اتوقع انه لم يسبق التطرق لهذا !! وان حصل فهاتو الرابط ؟ او المرفق ؟ Expand هذه الروابط لعموم الفائدة هذا من عام 2001 وهذا من عام 2007 هنا الكود من عام 2008 وهذا من عام 2010 وهذا من عام 2012 وهذا من ميكروسوفت حديث 2
رمهان قام بنشر مايو 7, 2016 الكاتب قام بنشر مايو 7, 2016 في 7/5/2016 at 10:16, ابوخليل said: هذه الروابط لعموم الفائدة هذا من عام 2001 وهذا من عام 2007 هنا الكود من عام 2008 وهذا من عام 2010 وهذا من عام 2012 وهذا من ميكروسوفت حديث Expand كنت اقصد روابط من منتدانا او منتدى عربي بعدين عاتب عليك حيث ظل طلبي في تعديل العنوان فتره طويله لم يعدل شكرا على المرور 2
ابوخليل قام بنشر مايو 7, 2016 قام بنشر مايو 7, 2016 بالنسبة للتعديل فاظن انه تم في حينه يمكن بعد يوم او يومين من المشاركة واظن ان تواريخ التعديلات والحذف يحتفظ بها الموقع اما كتابتي للروابط فهي حسب طلبك ، والاولى انك انت تضع مصدر المعلومة ولانك اشرت الى هذه المشاركة هناك فمع اختلاف المطلوب قليلا فكأنك تلمح الى الاسبقية في كتابة الكود علما اني لم استفد من الروابط اعلاه في تحرير الكود ولا من المواقع العربية وانما الذي كتبه اكسس نفسه فمنذ عرفت اكسس وهو يكتب هذا الكود وبذكاء ايضا حيث يضع المعايير حسب الحقل المفلتر يضع معيار ا نصيا ان كان الحقل نصيا ومعيارا رقميا ان كان الحقل رقميا هل يبدو الامر غريبا ! ؟ واحيانا ادخل عليه او اجري عليه بعض التعديلات البسيطة حسب الحاجة كما في طلب الاخ مومن في الرابط السابق
رمهان قام بنشر مايو 7, 2016 الكاتب قام بنشر مايو 7, 2016 والله يابو خليل مدري ويش تبي توصل له لكن الموضوع به فكرة ان البحث يتم عند الكتابة في احد الحقول المنضمة وليس في مربع بحث منفصل واللي بيته من زجاج لا يرمي الناس بالحجاره
ابوخليل قام بنشر مايو 7, 2016 قام بنشر مايو 7, 2016 في 18/8/2015 at 04:34, رمهان said: وهنا اتوقع انه لم يسبق التطرق لهذا !! وان حصل فهاتو الرابط ؟ او المرفق ؟ شايفين كيف : سهلة - ضرورية - جديدة Expand دع معالج اكسس يعمل بدلا عنك عند انشاء مربع تحرير ثم انظر الكود الناتج يمكنك بعد ذلك تغيير مربع التحرير الى مربع نص منضم او غير منضم وموضوعك هذا موجود له سنه لم اعلق عليه ولا عارضتك ولكنك انت اللي سحبتني بمشاركتك هنا والاسلوب الذي كتبت به المداخلة : اوجب علي التوضيح للاعضاء من باب نشر العلم وتبيينه ادعوا لي ولك اخي ان يرزقنا الله العلم النافع والعمل الصالح وان يكون خالصا لوجهه الكريم
رمهان قام بنشر مايو 7, 2016 الكاتب قام بنشر مايو 7, 2016 تدري ايش مشكلتك يابو خليل دائما تجي مطفي النور ومتسرع ومتسلط تعوذ من ابليس واعطني مثال ارفقه هنا "في وضعية سجل جديد اقوم بادخال المفتاح الاساسي في نفس حقله فان وجد ذهب للسجل وان لم يجد يستمر في الاضافة وياخذ الرقم المدخل وكانه لم شي يحدث" وصدقني هو نفس سؤال الاخ مومن في الرابط السابق الذي وضعته انت وليس يريد انشاء مربع بحث مستقل ! لذلك رايت ان اتي به هنا ليقيني بان هنا مايريد بالتمام بالتوفيق
ابوخليل قام بنشر مايو 7, 2016 قام بنشر مايو 7, 2016 ههه الله يخزي شيطانك صحيح اني اتسرع ولكن اعوذ بالله من التسلط ليتك بسطت فكرتك هناك او عدلت على الكود الموجود ثم بعد ذلك احلت على فكرتك يمكن يكون الرد الطف وشكرك اوجب اقتباس تعوذ من ابليس واعطني مثال ارفقه هنا Expand مثالي هو الموجود هناك فقط اضف كلمة undo للتراجع عن الخطأ وغير الحدث الى قبل التحديث اهم عوامل الكود التي يكتبها اكسس هي : Recordset.Clone FindFirst Bookmark Not rs.EOF NoMatch
رمهان قام بنشر مايو 7, 2016 الكاتب قام بنشر مايو 7, 2016 معليش ابو خليل ممكن رابط او اثنين من المنتدى قبل تاريخ موضوعي اعلاه ! يقوم بالبحث عند الكتابة في المربع المنضم فاذا وجده يذهب لذلك السجل او يقبل الاضافة عند عدم التكرار مع ملاحظة 1. النموذج منضم 2. المربع منضم ويقبل الكتابة اي ليس ترقيم تلقائي ومسالة ال undo قد تكون هي السر او موقعها في الكود بالتوفيق
ابوخليل قام بنشر مايو 7, 2016 قام بنشر مايو 7, 2016 في 7/5/2016 at 17:47, رمهان said: ومسالة ال undo قد تكون هي السر او موقعها في الكود Expand رمهان اول واحد يعلن عن هذا السر في المواقع العربية اذا هذا اللي بخاطرك .. صافي ياعسل ولكن اذا وجد من سبقك الى هذه المعلومة في اي جهة من الكرة الارضية ، فمن حقه الاشارة اليه ايضا يسقط حقك في المطالبة بالحقوق الفكرية قد يعذر الانسان بالجهل ولكن حين يعلم يلزمه التنويه وانا لا انتقص من قدر احد فقد تكون المسألة توارد خواطر ، يعني ان الانسان قد يصل الى الفكرة باجتهاده ، ثم يفاجأ انه قد سبقه غيره اليها وهذا الاخير اجزم به وان الفكرة من اجتهادك . اسأل الله ان يصلح احوالنا ، ويعفو عنا 1
رمهان قام بنشر مايو 7, 2016 الكاتب قام بنشر مايو 7, 2016 في 7/5/2016 at 18:30, ابوخليل said: رمهان اول واحد يعلن عن هذا السر في المواقع العربية اذا هذا اللي بخاطرك .. صافي ياعسل ولكن اذا وجد من سبقك الى هذه المعلومة في اي جهة من الكرة الارضية ، فمن حقه الاشارة اليه ايضا يسقط حقك في المطالبة بالحقوق الفكرية قد يعذر الانسان بالجهل ولكن حين يعلم يلزمه التنويه وانا لا انتقص من قدر احد فقد تكون المسألة توارد خواطر ، يعني ان الانسان قد يصل الى الفكرة باجتهاده ، ثم يفاجأ انه قد سبقه غيره اليها وهذا الاخير اجزم به وان الفكرة من اجتهادك . اسأل الله ان يصلح احوالنا ، ويعفو عنا Expand والله انا لم افهم المضمون ابوخليل ولكن ممكن توضح اكثر ! وبشكل صريح ! وساقرا الرد مرة اخرى ولي عوده وقت فراغي ! تحياتي 1
رمهان قام بنشر يناير 26, 2019 الكاتب قام بنشر يناير 26, 2019 في 26/1/2019 at 14:01, aber said: لو سمحت ممكن شرح بارامترات الموجودة في الكود Expand اي باراميتر اعملي نسخ ولصق للسطر المعني ؟ بالتوفيق
aber قام بنشر يناير 26, 2019 قام بنشر يناير 26, 2019 rs = Me.RecordsetClone Me.Bookmark = rs.Bookmark
رمهان قام بنشر يناير 26, 2019 الكاتب قام بنشر يناير 26, 2019 في 26/1/2019 at 14:19, aber said: rs = Me.RecordsetClone Expand rs هو متغير من نوع ريكوردست وتم اسناد مجموعة سجلات النموذج(ريكوردست النموذج) له في 26/1/2019 at 14:19, aber said: Me.Bookmark = rs.Bookmark Expand هنا بعد البحث يتم عمل مزامنة او مساواة في موقع المؤشر لنه بعد ايجاد السجل المطلوب يظل مخفيا فنظهره في النموذج بانتقال سجل النموذج لنفس السجل فيظهر للباحث هذا واعتقد اني اختصرت كثرا ولكن لعلكي افدتك او يمكنك نسخهما والبحث في قوقل والقراءة اكثر عنهما تحياتي
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.