ابو جودي

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

لازلت انتظر المرفق استاذنا الحبيب

طيب انا غيرت الصورة ما اتغيرت فى التقرير الاول ؟! هل هذا صحيح

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

you welcome in times to come, please try to choose a suitable name for the subject because it bases posts in forums and we must all respect for those rules do not put your address is not suitable for the subject, as it did and you would have your own e-mail regarding the arabization list you can search the internet for the arabization of office suit version you are using, and so are all the menus to translate the arabic language that you want it as he can switch between languages when you want to after that with ease

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

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

ابدأ بالضغط على زر الامر اضافة سجل جديد وعند تعديل المبلغ دوبل كليك على مربع النص الخاص يالمبلغ الرقم السرى 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