بحث مخصص من جوجل فى أوفيسنا
Custom Search
  • اعلانات

    • محمد طاهر

      الكلمات المفتاحية   10 يون, 2017

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

أبو عبدالله الحلوانى

الخبراء
  • Content count

    807
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    3

أبو عبدالله الحلوانى last won the day on March 3

أبو عبدالله الحلوانى had the most liked content!

السمعه بالموقع

290 Excellent

7 متابعين

عن العضو أبو عبدالله الحلوانى

  • تاريخ الميلاد 20 أغس, 1984

Profile Information

  • Job Title
    محاسب بشركة مياه الشرب والصرف الصحى
  • Location
    صعيد مصر

اخر الزوار

984 زياره للملف الشخصي
  1. السلام عليكم قمت بتجربت مرفق حضرتك منذ قليل الذى يحمل عنوان new على أوفيس 2010 نظام 64 بت وقد حدثت عندى المشكلة التى ذكرتها تماما - واليك الآن ملاحظاتى: 1- المشكلة الآن لا علاقة لها بكون الفورم Pupup - أو Module نعم أو لا 2- سوى أنك تحاول الأنتقال داخل سجلات جملة sql بكود الانتقال داخل الفورم وهذا السبب وراء المشكلة فلكى تنتقل داخل جملة sql نستخدم sql.movefirst - أو sql.movenext وهكذا. جرب هذا التعديل ووافنا بالنتائج DoCmd.OpenForm "Robot2" DoCmd.GoToRecord , , acNewRec Forms![Robot2]![Doc] = Me.T7 Forms![Robot2]![Warehouse] = Me.T9 Forms![Robot2]![Order] = Me.t0 Forms![Robot2]![orient] = Me.T13 Forms![Robot2]![Zdate] = Me.T6 Forms![Robot2]![Type] = "صرف" Forms![Robot2]![entrydate] = Me.Text80 Forms![Robot2]![Ameen] = Me.com DoCmd.Close Dim sql As Recordset Set sql = CurrentDb.OpenRecordset("Transactions", dbOpenDynaset) 'DoCmd.GoToRecord , , acFirst sql.MoveLast: sql.MoveFirst For m = 1 To T8 With sql .AddNew !Code = Code1 !Item = T1 !Doc = T12 !Out = T2 !Notes = T5 .Update End With sql.MoveNext Next m MsgBox "تم الصرف بنجاح", vbInformation, "تم الصرف" T6 = "" T7 = "" T3 = "" T9 = "" T10 = "" T13 = "" Me.Requery
  2. وهنا بهذا الموضوع أداة لصنع شريط القوائم للأكسس وبه رابط لهدية أبى غفران (أستاذنا @صالح حمادي) حفظه الله وهى أداة مصنوعة بالأكسس أيضا
  3. السلام عليكم ورحمة الله بداية أشكر صاحب الموضوع على سلاسة الطرح واسلوبه المميز - وكذلك تلك الأدوات المفيدة ولا شك من كون هذه الأدوات تسهل كثير من الأعمال وتختصر كثير من الأوقات - ولكنى أرى (كرأى شخصى فحسب ) أن مجرد المحاولة لصنع ما تريد بنفسك لابد وأن يكسبك المزيد من الخبرة . ثانيا أشكر لأستاذنا @Shivan Rekany حسن ظنه بى - فانى مجرد طويلب علم بمدرستكم ثالثا - كمساهمة صغيرة على قدر علمى : هنا بهذا الموضوع أداة مساعدة مفيدة لحصر ولم شمل أكود vba وتيسير استدعائها طبعا الموضوع لأستاذنا @Shivan Rekany (كده خالصين ) وهنا بهذا المرفق أداة صغيرة من كنوز المنتدى وظيفتها ضبط خاصية الشفت للبرنامج أرجو أن تفيد بشىء هذا هو المرفق Shift.zip
  4. جزاك الله خيرا
  5. بحث مخصص

    لا خطأ كبير ولا شيء فما قلته من باب الطرفة وفرصة للتعارف أعتقد أن البحث كما تم طرحه بالموضوع هنا جيد ويفي بالغرض وكذلك ما تم طرحه من قبل أستاذنا جعفر في هذا الموضوع فهو مثال ممتاز ويفى جدا بالغرض أما وان كنت مصر على الطريقة المصورة فلا مانع من ذلك ولكن أرفق لنا مثالا يمكن التعديل عليه
  6. جزاك الله خيرا وكما قال أستاذنا جعفر تسلم ايدك وهذه فائدة صغيرة لعلك تحتاجها بوقت ما بالإمكان استبدال أسماء أجزاء الفورم بالجملة (Section(Index)) وهذه ثوابتها : Setting Constant 0 acDetail 1 acHeader 2 acFooter 3 acPageHeader 4 acPageFooter ويتحول الكود الى هذا الشكل frm.Section(0).BackColor = Color_Bu_D frm.Section(1).BackColor = Color_He_D frm.Section(2).BackColor = Color_fo_D
  7. اعتقد ان كلا الموضوعين يدورا حول نفس الفكرة وقد تمت الإجابة هنا لربط المواضيع
  8. بحث مخصص

    أولا - هلا بعودتك سالما وعساك بخير ثانيا - أنا اسمى محمد أما عبدالله فهو ابنى - وعلى كل لا بأس كل اللى يجى منك حسن أو حسين - وأخيرا - تفضل أرجو أن يكون هذا قريبا مما تريد 7-5-2017 بحث الفوائد بقائمة منسدلة.zip
  9. جرب هذا الكود لعله يفى بالغرض Private Sub Form_Current() Forms![الشهر الحالي 2]![نموذج1].Form.Refresh End Sub
  10. لا لا كدا اتفهم كلامى خطأ كنت أقصد لن يضيف المتطوعين شيئا سوى الاطراء فالعمل يبدو عليه أثر الجهد المبذول وكما قلت ثم صحيح نحن زبائن مجانا - ولكن نسأل الله أن يعظم لكم الأجر عنا لا لم يكن ما تبذلونه بدون نتيجة أبدا - والله ما أذكر برنامجا صنعته إلا واقتبست فيه من عطاياكم شيئا , طبعا بدون استأذان - وها أنا أنتهز الفرصة لأستأذن منكم فى ذلك . وعلى كل ورغم أن اسمى لم أجده فى المعلن عنهم الا أنى سأجرب وأوافيكم بالنتائج إن شاء الله. مع إنى عارف النتيجة مسبقا 100 %
  11. السلام عليكم جرب هذا ووافنا بالنتائج ملاحظة : ان ظهر خطأ بالعملية الحسابية استبدل الفاصلة "," بالفاصلة المنقوطة ";" الحساب التراكمي1.zip
  12. بالهناء والشفاء - كان ودى أشاركك القهوة ولكنها تسبب لى الأرق - ليس بالجديد علينا أبداعاتكم أستاذى الحبيب جعفر - ولكن ما الداعى للمتطوعين هما مطلوبين بالجيش ولا ايه . بارك الله فيك. استاذنا جعفر وجزاك الله خيرا
  13. بحث مخصص

    السلام عليكم تفضل جرب هذا ووافنا بالنتائج ولا تنسانا من دعوة بظهر الغيب b.zip
  14. السلام عليكم جهد كبير جزاكم الله خيرا ولكن أعتقد أن هنالك فكرة أيسر من هذا وستوفر علينا كل هذا العناء وقد تم طرحها بالمنتدى من قبل وهى استخدام الـ Combo Box مع فلترة البيانات داخل الكمبوبكس حسب الحروف المدخلة مع التحكم بخاصية DrowpDown أثناء البحث بهذا الموضوع توضيح للفكرة www.officena.net/ib/topic/36947-البحث-في-مربع-تحرير-وسرد/
  15. السلام عليكم مشاركة بسيطة لعلها تفيد بشىء من مزايا اضافة تخطيط لعناصر التحكم على الفورم أو التقرير أن أى تغير يتم على أبعاد أحد العناصر داخل التخطيط ينسحب على باقى العناصر بشكل آلى. دون الحاجة لأضافة أكواد اضافية. بمعنى: لو أضفنا تخطيط لكل عناصر التحكم بداية من StuName الى s8 فضبط أبعاد StuName فقط سيغنينى عن اضافة أكواد اضافية