رمهان

ماهو الحدث ؟ هل هو عند النقر ام بعد التحديث ؟ وانت تريد ماذا ؟ اذكر السيناريو ! وهل cc عنصر اخر ام تقصد نص ! وعالعموم جرب " screen.activecontrol.caption="cc" بالتوفيق

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

في لغات البرمجمة يتم تنفيذ الاسطر واحدا تلو الاخر مالم يكن هناك تحكم في التسلسل بعبارات تحكم او بالامر goto ثم عنوان السطر ! تتم كتابة عنوان السطر باي تعبير نصي مقبول ثم نقطتين هكذا : وفي الكود السابق اسميت السطر المراد الانتقال له ب 10 ثم نقطتين حسب القاعدة ليصبح اسم السطر او عنوانه :10 وتلاحظ انه استخدم الجملة on error ولها اشكال عدة ومعناتها لو حصل خطأ ويعقبها تعبيرات عدة ومنها اذهب الى goto ثم عنوان السطر المراد الانتقال له وتلاحظ انه لايوجد سطر ينفذ عند العنوان 10 لانني اريد الذهاب الى نهاية الكود ومعناته عدم تنفيذ اي سطر فالملخص لو حصل خطأ اذهب الى نهاية الكود قافزاً جميع الاوامر (الاسطر البرمجية ) والخطأ يحصل عند اختيار الغاء من مربع الادخال ! بالتوفيق

افكار حلوة والله من الاستاذين علي وابا خليل الاستاذ ابا خليل حسن فكرة الاستاذ علي وبوجود مفتاح الحل وهو الطرح ثم الزيادة ! تحسين رائع ! هنا اخينا حربي العنزي ذكر : فهل الفاصلة فاصلة عشرية ؟ لانه ذكر النتاج 819 ! ولم يذكر 819000 وهو الناتج في الحلين من قبل الاساتذه اذا اعتبرنا الرقم بدون فاصلة ! واذا بفاصلة يظهر رقما اخر ! وهذا مجرد تحويل فكرة الاستاذين الى تعبير في مربع نص : =IIf([Summuny] Mod 250>0;([Summuny]-([Summuny] Mod 250))+250;[Summuny]) تحياتي

حياك الله ابو عبدالله العملية سهلة جدا واسمح لي قبل الاجابة تنبيه : لا ينصح بكثرة التاب بيج وذلك لان جميع بيانات كل صفحة تحمل في الذاكرة جميعا عند تحميل النموذج ! الاجابة : بفرض ان اسم التاب tab1 لاحظ التاب وليس الصفحة ! واسم مربع النص text1 اكتب التعبير التالي في مربع النص : =tab1 وعند حدث عند التغيير للتاب اكتب : text1.requery بالتوفيق

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

عزيزي ابو جمانة يبدو ان المشكلة عيب في الاكسس ! واتوقع اكبر دليل ان لديه اخطاء غير معروفة اتو بدالة iserror هنا مسالة الوصول لهدفك وهوجمع القيم خلال فترة يتم بطرق اخرى ! حتى في التصميم فمثلا ممكن تكون عنصر القائمة بديلا للنموذج الفرعي خصوصا ان فقط للعرض ! عالعموم ولكي لايعدل في برنامجك كثيرا والمضي بنفس السيناريو اليك هذه الفكرة : اعمل مربع نص رديف لكل مربع به الخطأ ساخذ مثلا مربع الخصم واسمه text16 اعمل مربع نص رديف له وبه التعبير التالي : =IIf(IsError([Text16]);0;[Text16]) وقم باخفاء مربع الخصم text16 ومن خلال خاصية مرئي من تبويب تنسيق ! جرب ولعله مسكن الى حد ما ! بالتوفيق

عزيزي ابو جمانة اتوقع ان يكون عنوان الموضوع " مشكلة جلب قيمة من نموذج فرعي لرئيسي " والمشكلة هي باختصار عندما يكون النموذج الفرعي ليس به سجلات وخاصية السماح بالاضافة الى = لا فانه يعطي خطأ وبكلمة "!حجم#" وكما بالصورة . طبعا هناك حلول بديلة لما تريد ! ولكن المشكلة بعينها قيد النظر اخي ابو جمانة ! تحياتي

عزيزي ابو جمانة حبذا فتح موضوع جديد وبالمشكلة الجديدة وبنفس الصور السابقة ! تحياتي

اضف في اول الكود : On Error GoTo 10 وفي اخر الكود 10: بالتوفيق

العفو

غير الرقم 30 الى: inputbox("ادخل عدد التكرار") بالتوفيق

جرب عزيزي ان تغير خاصية "تمكين طريقة عرض التخطيط" = لا ! من تبويب تنسيق ! بالتوفيق

تفضل عزيزي مع انه لايوجد اي امر اضافة للسجلات فقط ظهور الرسالة ! If (Eval("DLookup(""[CPR]"",""[Descrp]"",""[CPR] =form![txtSearchC] and [CPR]<>'000000000'"") Is Not Null ")) Then بالتوفيق

اضف هذا السطر في اول الكود السابق If MsgBox("استمرار ؟", vbYesNo) = vbNo Then: Exit Sub بالتوفيق

حياك الله اخوي ابراهيم ولا احراج ولا شي ! المنتدى مفتوح ولكن ربما كان حظك معي اكثر ! تحياتي

اخي حسام اشكرك من الاعماق وجزاك الله كل خير !

حياك الله اخوي الزهراني وتعمدت تنفيذه بهذه الاوامر لانها كلها اوامر جاهزة وسهلة ! اذهب لاخر سجل > حدد السجل > انسخ > (اذهب لسجل جديد > حدد السجل > الصق ) وتلاحظ مابين الاقواس هو مانحتاج تكراره 30 مرة فوضعناه داخل جملة دوران! بالتوفيق

سفراً سعيداً ورحلة موفقة اخوي جعفر ! اخينا نكرو ساحاول خلال الايام القادمة عمل فورم وسب فورم باستخدام ال ado ! حاب انبه فقط على ان البرامج الاخرى مثل الفيجول بيسك والتي تستخدم ال ado لديها كائنات جاهزة توفر الاكواد للتعامل مع ال ado اما في الاكسس سنعمل كل شي ! بالتوفيق

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

تفضل وبلصق هذا الكود خلف زر امر على النموذج ولعله ماتريد DoCmd.GoToRecord , , acLast DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy For i = 1 To 30 DoCmd.GoToRecord , , acNewRec DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdPaste Next i بالتوفيق

تفضل عزيزي : اذهب لخصائص النموذج ومن تبويب حدث: الفاصل الزمني لعداد الوقت اكتب 10000 عشرة الاف وعند حدث عند عداد الوقت الصق: docmd.save ثم اعرض النموذج يمكنك تغير السطر السابق ب msgbox لكي تتاكد من العمل وبظهور الرسالة كل 10 ثواني ! بالتوفيق

الله يعطيك العافية ! ولكن انبه اخي حسام انه ليس تنفيذ ماكتبت بالتمام ! حيث لم اجد معرف المجمع ومعرف العمائر ! تحياتي

شكرا لله ثم لكم احبتي واخوتي

حبيبي ورفيق دربي جعفر استسمح في الرد من وجهة نظري كذلك النموذج اذا مصدره استعلام او جملة استعلام اخذت من الجدول ما احتاج ! ولنعلم انها في الاصل تتحول ل dao recordset ! اعتقد هنا تركنا اهم مايميز الاكسس في التعامل مع الشبكة كاغلاق السجلات المحمود والمتشائم ! وكذلك في البيانات اللحظية مثلا لو كنت ايبع من صنف اليس مهم لحظيا مشاركة مع المستخدمين ؟! هنا لاتعليق : الكود واحد لمصادر متغيره! ال ado اتت مع الاصدار 2000 ! وكان هدفها محاكات قواعد البيانات السيرفرية ! هناك الاجراءات المخزنة ! هناك جداول دوال القيمة ! محاولة لانشاء بيئة اتصال native ! محاولة انشاء مايسمى disconnected data ! ولكن مع ado.net اتت كاملة ل disconnected data وبالكائن العجيب dataset ! ولكن هي تستخدم ado داخليا ! يمكن كررت محاولة ! نعم هي ميكروسوفت تحاول تقليد التقنيات الاخرى ! توصيات: 1. عندما تريد انشاء كائنات في الذاكرة فان التحكم بها صعبا من خلال المستخدم فاترك الاكسس يتحكم اكثر ! ادارة الذاكرة ليست بحجم البيانات فقط ! 2. يجب ان نعرف ان الاكسس نفيسه يتخاطب مع jet بهذه المكتبات فلماذا تكرر السيناريو ! هل تجاكر الاكسس ؟! 3. اعتقد ان استخدام ال ado بالتحديد ل : التخاطب مع قواعد البيانات السيرفرية لتشغيل الاجراءات المخزنة فهي ميزة كبيرة والا لم تستفد من القواعد السيرفرية غير حجم البيانات! فاالاكسس يستخدم الاستعلام التمريري العقيم في التعامل هنا ! اذا كنت اريد اتعامل مع بيئة منفصلة ! يعني اسحب البيانات واتعامل معها ثم ارجعها للسيرفر ! انشاء تركيبة recordset كجدول مؤقت ومن الصفر وربطه بالنموذج ! استخدام الوظائف الكثيرة والمفيدة بل واختلاف الميزات مع شبيهتها في ال dao مثل recordset.move تعطي موقع التحرك وكم اتحرك! اخيرا اعيد ماكتبت في البدء هذا واتمنى ان اثرينا الموضوع تحياتي