ابو جودي

واين يوضع الكود ؟ للعلم وضعته على زر امر اعطى خطأ ولم بظهر الجدول

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

حاولت الفتح فعلا بالامر ده ولم استتطع فتحه

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

اه فتح ايون انا فتحت محرر البيزك ما فى اى اكواد لان ما فى اى نماذج وانا بصراحه مش عارف اظهر الجدول لكن انا عرفت ان فى جدول باسم tab1 انا بصراحه حتى الان فشلت كل محاولاتى فى اظهار او استخراج اى بيانات من الجدول

فعلا فى جدول باسم tab1 لكن انا لازلت احاول اظهاره او استخراج المعلومات منه الباسورد على vba كان بالاسكى كود تقريبا

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

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

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

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

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

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

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