ابو جودي

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

اسلوب ممتع فى الشرح حزاكم الله خيرا انتظر تلك المشاركات الرائعه دائما بفارغ الصبر اسال الله تعالى لكم العفو والعافية والصلاح والفلاح واسال الله تعالى ان يرزقكم البركة فى العمر والعلم والاهل امين امين امين

ابدأ بالضغط على زر الامر اضافة سجل جديد وعند تعديل المبلغ دوبل كليك على مربع النص الخاص يالمبلغ الرقم السرى 123 ☺ عدم تغيير قيمة حقل.rar

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

انا مجرد هاوى فى هذا المنتدى اساتذة افاضل وهذا مجال علمهم وعملهم

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

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

ودى فكرة تانية مع اخوية حسام تعتمد على نقل التركيز ممكن اخفاء العنصر لو حضرتك عاوز النموذج بنفس الشكل وللعلم فكرة الاستاذ حسام لم تعمل معى على اكسس 2016 Test.rar

جرب هذا المرفق كلمة المرور للضافة او التعديل 123 عدم تغيير قيمة حقل.rar

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

جزانا الله واياكم خير الجزاء الحمد لله الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل ثانيا كل الشكر والامتنان لاستاذى القدير ومعلمى الجليل الاستاذ رمهان ــــــــــــــــــــــــــــــــــــــــــــــ وقت الشرح بسم الله الرحمن الرحيم انا فى اول الفكرة اتعاملت مع الموضوع بحيلة النسخ واللصق وسوف اشرح فكرة الحيلة الموجودة فى المشاركة شرح الكود على زر امر فى النموذج الذى يحمل اسم 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 للعلم انا لم اربط مربع النص باى مصدر بيانات بيانات وللعلم ايضا لو اننا نريد عند فتح النموذج الثانى اضافة سجل جديد سوف يتم تغير طفيف انا فقط كنت اقوم بالتجربة للوصول الى النتيجة المرجوة وبفضل الله تعالى اعتقد تلك النتيجة مرضية ووافية وكافية فقط يتم التعديل حتى يتماشى مع الية عمل قاعدة البيانات ممكن اشرح كل شئ ومستعد للنقاش ان شاء الله تعالى

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