نجوم المشاركات

احكي من اول بدك فورم على العموم شاهد هذا البحث بكتابة اول حرف من الاسم المراد البحث عنة ولا تكمل الاسم ارجوك لاني ابحث عن حل هذه المشكلة هههههههه تعديل نسخة من ترحيل وبحث.rar

يبدو ان زميلنا قد فسر كل شيئ بارك الله لك علي المساعدة وتشرفت بك

اخواني الكرام اضع بين ايديكم الجزء الاول من شرح الترحيل وبإنتظار تعليقاتكم واستفسارتكم ابواحمد الجزء الاول من الشرح ملف شرح الجزء الاول الترحيل.rar الجزء الثاني من الشرح ملف شرح الجزء الثانى الترحيل2.rar الجزء الثالث من الشرح (ترحيل القيم - ترحيل محدوود) ملف شرح الجزء الثالث الترحيل3.rar الجزء الرابع من شروحات الترحيل ملف شرح الجزء الرابع ترحيل حسب اسم الشيت.rar لا تنسوني أخوتي من الدعاء لي بظهر الغيب

الاخوة الكرم السلام عليكم بمناسبة قرب قدوم عام ميلادي جديد ( اعادة الله علينا وعليكم وعلي امة سيدنا محمد بالخير واليمن والبركات ) اقدم لكم تقويم ميلادي شهري ( وهو من النمازج الجاهزة في برنامج الاكسل 2010 ) وهذا التقويم شهري وبه عمل فني من انتاج طلابي في المدرسة وهم في المرحله الثانوية ... يمكنك بكل سهولة تغير الصورة ووضع الصور الشخصية الخاصه بك وهذا التقويم يصلح لعمل تقويم مكتبي ... وان شاء الله سوف أقوم برفع صورة العمل بعد الانتهاء منه .... لكبر حجم الملف تم رفعة علي موقع خارجي ارجو ان ينال اعجابكم تقويم 2017 ... عام سعيد ان شاء الله

تفضل وهذا الكود يضيف لك السجل الجديد: Private Sub cmd_Add_Record_to_SubForm_Click() Forms!frm_Q1!sub_swet.SetFocus DoCmd.GoToRecord , , acNewRec End Sub جعفر 451.مثال.accdb.zip

وعليكم السلام هذه امثلة عن الطريقة: http://arabteam2000-forum.com/index.php?/topic/282771-استيراد-البيانات-من-صفحة-ويب/ و http://arabteam2000-forum.com/index.php?/topic/243087-استيراد-البيانات-من-النت-إلى-قاعدة-أكسس/ وطبعا لازم تشمر عن ساعديك وتدخل فيها بالمليان جعفر

وعليكم السلام، على حسب اكسل فان الخطا في الورقة 3 المعادلة في P5 : =SI(O5<$H$4;O5;$H$4-SOMME($P$4:P$5))

اخي الكريم شاهد المرفق تعديل 3نسخة من ترحيل وبحث.rar

الحمد لله وصلت للحل للمشكله‌ اللي مكتوب اعلاه اتفضل مع تقدير 111 (1).rar

عفوا أخي لم أفهم كلامك متى يظهر عندك الخطأ ؟ أرحو الشرح أكثر

جزاك الله عنا كل خير استاذنا الغالي ولا يحرمنا منك ولا من طرقك الرمهانية كل الشكر والتقدير

العفو أخي لا عليك أشكرك على المشاركة

هام جدا للمحاسبين والمديرين الماليين تحديد نقطة التعادل في حالة تعدد المنتجات ************************************************* تخطط شركة شارب لإنتاج ثلاثة أنواع من التكييفات فماهي مبيعات التعادل التي ينبغي على الشركة تحقيقها بفرض ان التكاليف الثابتة 95000 جنية تم استخدام تقرير مدير السيناريو تحديد-التعادل-فى-حالة-تعدد-المنتجات(1).rar

::: شكرا هذا ما كنت انتظره منك ... كود رمهاني جميل .. 100% . ... احسنت اخي الكريم ... وجعل الله عاقبتك على خير .

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

جرب Private Sub priceDn_AfterUpdate() priceDr = priceDn * Parent!exch End Sub Private Sub priceDr_AfterUpdate() priceDn = priceDr / Parent!exch End Sub

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

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

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

الفضل لله سبحانه وتعالى ثم لاساتذتنا الكرام الذين لم يبخلوا علينا يوما ما

البرنامج مرة اخرى وان شاء الله تعالى بعمل على اكسس 2010 Shift2002-2010 فتح وإغلاق شفت.rar

ان شاء الله يكون المطلوب وبمساعدة الاستاذ اباجودي taqteet.rar

ان شاء الله تجد ضالتك ان شاء الله وزياده فتح اى شئ من خلال زر امر.rar

انشاء الله تعالى يكون هو ده المطلوب taqteet- UP.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

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

أثــــــــــــــــــــــــــابكم الله

السلام عليكم =========== ابو محمد يجب ضغط الكتاب لان الكتاب اكيد امتداده "pdf"