ابو جودي

فضلا وليس امرا تيسيرا على من يريد تقديم المساعدة ارفاق مرفق جاهز بالبيانات الازمة

جزانا الله واياكم خير الجزاء الحمد لله الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل ثانيا كل الشكر والامتنان لاستاذى القدير ومعلمى الجليل الاستاذ رمهان ــــــــــــــــــــــــــــــــــــــــــــــ وقت الشرح بسم الله الرحمن الرحيم انا فى اول الفكرة اتعاملت مع الموضوع بحيلة النسخ واللصق وسوف اشرح فكرة الحيلة الموجودة فى المشاركة شرح الكود على زر امر فى النموذج الذى يحمل اسم form3 Me.txt_no.SetFocus هنا يقوم بعمل تركيز على مربع النص باسم : txt_no وهذا التركيز يحدد كل القيم داخل مربع النص ثم DoCmd.RunCommand acCmdCopy هذا الكود يقوم بعمل نسخ وبما اننا قمنا فى سطر الكود السابق بعمل اختيار لمحتوى مربع النص بالتركيز عليه ثم بهذا السطر من الكود قمنا بعمل نسخ للمحتوى اكتملت الحيلة ولم ينقصها سوى لصق ما قنا بنسخه من مربع النص باقى الكود Dim stFrmName As String Dim stLink As String stFrmName = "form4" DoCmd.Close acForm, "form3" DoCmd.OpenForm stFrmName, , , stLink هو اغلاق النموذج الحالى ثم فتح النموذج الجديد ولاكمال العمليه وذلك بلصق القيم فى النموذج الجديد والذى يحمل اسم form4 استخدمت الكود الاتى على مربع النص المراد لصق القييم فيه مربع النص باسم Text0 الحدث عن التركيز على مربع النص DoCmd.RunCommand acCmdPaste وهذ الكود يقوم بخطوة لصق ما قمنا بنسخه سابقا ثم باقى الكود Text2.SetFocus نقل التركيز الى المربع الذى يليه ... ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ وبعد الحوار مع استاذى الجليل ومعلمى القدير الاستاذ رمهان جرت الامور فى مجرى مختلف تمام وبعد ان تشتت افكارى بطرح سؤال الاستاذ رمهان تخبطت افكارى قليلا وخفقت دقات قلبى قليلا واختفت من على وجهى الابتسامة بالفرحة من مشاركة استاذى الحبيب وتسارعت بداخلى الافكار بالنزعة الرمهانية حتى فتح الله تعالى على بالفكرة فى المرفق رقم 2 copy txt v.2.rar وقت الشرح قمت بعمل موديول باسم"mod_copey_txt" وللامانة العلمية وإحقاقا للحق نقلت الموديول من احد الامثلة من مكتبتى وقمت بإختزال الكود حتى صار على النحو التالى Public Function when_Open_form(ByVal strFormName As String) As Boolean Const conDesignView = 0 Const conObjStateClosed = 0 when_Open_form = False If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> _ conObjStateClosed Then If Forms(strFormName).CurrentView <> conDesignView Then when_Open_form = True End If End If End Function وهذا الموديول يجعل قيم الحقول متساوية لبعضها طبقا لاسم النموذج المصدر والنموذج الهدف كما سيلى فى الشرح ولكن دون الابقاء على النموذجين مفتوحين ولا حتى فتح نموذج بشكل مخفى الية العمل داخل القاعدة فى النموذج الاول باسم frm1 تم وضع كود برمجى على زر الامر وشرحه تفصيلا كالاتى DoCmd.OpenForm "frm2" وهذا السطر نريد منه فتح النموذج الثانى باسم frm2 ثم If when_Open_form("frm2") Then وهنا فى هذا السطر القاعدة if ثم قمت باستدعاء الموديول والذى من خصائصه كما سبق تنفيذ نسخ ولصق القيم من الحقول من النموذج المصدر frm1 الى النموذج الهدف frm2 وذلك بناء على قيم الحقول بين النموذجين فى الكود التالى بالاسطر القادمة [Forms]![frm2]![Text0] = [Forms]![frm1]![Text0] [Forms]![frm2]![Text2] = [Forms]![frm1]![Text2] [Forms]![frm2]![Text4] = [Forms]![frm1]![Text4] Else End If وبعد ذلك باقى الكود اغلاق النموذج الحالى"النموذج المصدر" frm1 ونفس الفكرة بين النموذجين الثالث والرابع الا اننى حددت مرع واحد فقط لنسخ القيم منه من نموذج المصدر الى نموذج الهدف الا اننى ذت فى نموذج الهدف النموذج الذى يحمل اسم frm4 هذا الكود فى حدث عند الفتح Private Sub Form_Open(Cancel As Integer) Text2.SetFocus End Sub وبما ان قيمة المربع الاول اصبحت موجوده بناء على القيمة من نموذج المصدر لا اريد التركيز عليه عند الفتح فوضعت هذا الكود لنقل التركيز الى المربع التالى فكرة خطرت على بالى اثناء الشرح ممكن استخدام قاعدة if لو ان المربع الاول لا يحتوى على قيم يتم وضع التركيز عليه عند الفتح لو اردنا ذلك ☺ بالتوفيق

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

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

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

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

ممكن مرفق من قاعدة البيانات لو تكرمت حتى يسهل على اساتذتنا الكرام الافاضل او من يريد مد يد العون الامر

اخى الحبيب تم تجربة القاعدة المرفقه والقاعدة تعمل تمام وما فى اى مشاكل طيب انا جربت اعمل قاعدة وقمت باستيراد كل الكائنات من القديمة الى الجديده عل هناك خلل قم بتجربة المرفق ووافنا بالنتيجة نسال الله تعالى الفلاح والصلاح الصندوق.rar

للاسف الطريقة لم تنجح معى بهذا الشكل أو قد يكون لاختلاف إصدار الأوفيس ولكن قمت بتعديل الكود الى على النحو التالى [Forms]![frm4]![Text0] = [Forms]![frm3]![Text0] كل الشكر للاستاذ الفاضل Shivan Rekan كل الشكر والتقدير والامتنان والعرفان للاستاذ الجليل والمعلم القدير صاحب اللمسات الرمهانية الاستاذ رمهان

كن في الحياة كشآرب القهوة !.. يستمتع بهــا رغم سوآدها ومرآرتهآ وتذكر قول الخشب للمسمار: لقد كسرتني وألمتني فرد المسمار قائلاً : لو كنت رأيت الدق فوق رآسي لكنت عذرتني فليعذر النآس بعضهم البعض فكل شخص لآيعرف ظروف الآخر إذآ إستمريت بـ هذه الحسآسية الزآئدة . . والحزن علي كل تصرف , فـ إنك ستحوّل حيآتك إلي جحيم ! تذكَر .. أن النآس تختلف في تفكيرهآ وطبآعهآ فما ترآه أنت جآرحاً .... قد يرآه غيرك أمراً تآفهاً هنآك موآقف مؤلمة قد تتعرض لهآ ولكن , إلي متي تجتر الموقف وتقف عليه ! إن أصآبك الألم ! عشه في لحظته .. ثم تجآوزه وكآفح من أجل تجاهله أشغل نفسك .. تنآسآه حتي يغيب عن ذآكرتك ! إحفظ لسانك أيها الإنسان لا يلدغـنـّك .. إنه ثعبان فكم في المقابرمن قتيل لسانه كانت تهاب لقاءه الشجعان وإذا حار أمرك في معنيين ولم تدرِ أين الخطا والصواب فخالف هواك فإن الهوى يقود النفوس إلى ما يعاب ولا تحاسب النآس عندما يخطئوآ ولا تذهب لغيرهم لتشكوا منهم .. لسانك لا تذكر به عورة امرئ فكلك عـورات وللــناس ألـســــــن وعينك إن أبدت إليك من الناس مساوءً فقل يا عيني للنـاس كذلك أعين واقضى حاجة المحتاج حتى لو كان اليك مسيئاً فأفضل الناس مابين الورى رجل تقضى على يده للناس حاجات لا تمنعن يد المعروف عن أحد ما دمت مقتدرا فالسعد تارات واشكر فضائل صنع الله إذ جعلت إليك لا لك عند الناس حاجات مهما إختفت من حياتك أمور ظننت أنها سبب سعادتك ! تأكد أن اللـه صرفها عنك قبل ان تكون سبباً في تعاستك عليك بتقوي الله ان كنت غافلاً أنظر لحالك كيف تعصاه ويأتيك بالارزاق من حيث لا تدري فكيف تخاف الفقر والله رازقاً فقد رزق الطير و الحوت في البحر و من ظن ان الرزق يأتي بقوة ما اكل العصفور شيئاً مع النسر تزول عن الدنيا فانك لا تدري اذا جنّ عليك الليل هل تعيش الي الفجر فكم من صحيح مات من غير علة و كم من سقيم عاش حيناً من الدهر وكم من فتي امسي و اصبح ضاحكاً وأكفانه في الغيب تنسج وهو لا يدري فمن عاش الفاً و الفيـــــــــــــن فلا بد من يوم يسير الـــــي القبـــــــــــر صافح وسامح .. ودع الخلق للخالق .. {فأنت****** .. وهم****** ..ونحن****** .. كلنا راحلوون إفعل الخير مهما استصغرته .. فلآ تدري أي حسنة تدخلك الجنة

عندما يكون المعلم رمهانى ☺ حتما يحاول ويجتهد التلميذ ان تكون النتيجة رمهانية صورة توضح الية العمل داخل قاعدة البيانات النموذج الثانى تكون كل قيم مربعات النصوص فيه مساوية لقيم مربعات نصوص النموذج الاول النموذج الرابع قية مربع النص الاول فقط تساوى قيمة مربع النص الاول فى النموذج الثالث copy txt v.2.rar

انا قلت لك ايه ما هو دى تقدر تقول عليها لمسة رمهانية لكنها مش لمسة رمهانية ولا حاجة بس اللى بيحب حد بيحاول يفكر زيه وبيتأثر بيه اهو السؤال ده بقه هو اللمسة الرمهانية فعلا افكر شوية وممكن واحاول ارد على حضرتك

ما هو دى تقدر تقول عليها لمسة رمهانية

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

دى صورة من واقع تجربة من داخل القاعدة المرفقة تم نسخ القيمة مع الاغلاق والفتح والتبديل بين الفورم copy txt val.rar للعلم انا لم اربط مربع النص باى مصدر بيانات بيانات وللعلم ايضا لو اننا نريد عند فتح النموذج الثانى اضافة سجل جديد سوف يتم تغير طفيف انا فقط كنت اقوم بالتجربة للوصول الى النتيجة المرجوة وبفضل الله تعالى اعتقد تلك النتيجة مرضية ووافية وكافية فقط يتم التعديل حتى يتماشى مع الية عمل قاعدة البيانات ممكن اشرح كل شئ ومستعد للنقاش ان شاء الله تعالى

ممكن مرفق اسهل

ممكن مرفق لو تكرمتى عندى حيله ممكن تنفع سوف احاول تحويل تلك الفكرة بهذه الحيلة الى قاعدة بيانات لى عودة ان يسر لى ربى

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

جزاكم الله خيرا استاذ رمهان وابشركم بكل الخير الان خلصنا منه فعلا كان ! كان شبح بالنسبه لي موضوع الفلتره اثناء البحث وتضليل النص ولكم كل الفضل بعد رب العزة سبحانه وتعالى كل الشكر والتقدير لمن حاول مساعدتى فى هذا الموضوع ولم يوفق او لم يستطع او لم يسعفه الوقت او لم يهده الله عزوجل لذلك فكل شئ عنده بمقدار ☻☺♥أخص بالذكر وبالشكر الاستاذ yousef ☻☺♥أخص بالذكر وبالشكر الاستاذ رمهان ☻☺♥أخص بالذكر وبالشكر الاستاذ أبو عبدالله الحلوانى مع العلم بأن كل كلمات الشكر لن تكفيهم ولكن اختص بالذكر الاستاذ القدير رمهان فلقد اتعبته وأجهدته حتى وصلنا الى تلك الحالة التى من رأى المتواضع اعتقد انها حد الكفاف والكمال بكل ما تقتضيه المعانى فيما يخص الية وطرق البحث المتعدد فى اكثر من حقل او فى كل الحقول وكما قال صلى الله عليه وسلم من يسر على مسلم طريق يلتمس به علم يسر الله له به طريقا الى الجنه فاللهم يسر لكل اساتذتى الكرام دون ذكر احد حتى لا ينسينى الشيطان احد اساتذتى الكرام طرقا الى الجنان اللهم اكرم كل من تعلمت على يديهم حرفا فى هذا المنتدى العظيم اللهم زدهم علما اللهم زدهم علما اللهم زذهم علما اللهم اجعل علمهم حجة لهم يارب العالمين اللهم سهل ويسر لهم طرقات الى الجنان اللهم انفعهم بما علمتهم اللهم بارك لهم فى علمهم وعملهم اللهم قربهم اليك وبارك فى اعمارهم واجعل الله كل اعمالهم خالصة لوجهك الكريم اللهم امين امين... امين SearchHighlight.rar

هل من حل لمشكلة ظهور #Type! فى الحقول الفارغة اثناء البحث SearchHighlight.rar

السلام عليكم ورحمة الله تعالى وبركاته اخى الحبيب من قواعد وقوانين المشاركة فى المنتديات هناك قاعدة وهى جعل موضوع لكل سؤال على حدة اما وبخصوص عنوان الموضوع جرب البحث بهذه الطريقة قد يعجبك هيكلة جديدة للجداول 4-10-2016_UP_.rar

طيب يا قمر بص المشكلة دى مش فى القاعدة اما فتحت القاعدة على ويندوز 10 اكسس 2016 32 بيت وكل شئ تماااام اعتقد لو حضرتك جربت الخطوات دى المشكله راح تنحل ان شاء الله http://www.mediafire.com/view/6cmx27xjp2jtsym/01.gif

انا استخدم 2010 وافضله عن 2007 و استخدمن 2013 ولكن كذلك افضل 2010 ولسه اليوم مسطب 2016 راح اجرب ولى عودة معاك ولكن واضح ان 2016 سيكون ممتاز مبدئيا وجدت به كل ما اريد

المرفق لو تكرمت حتى استطيع المساعدة بما يفتح الله به على

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