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

أبوبسمله

الخبراء
  • Posts

    3,240
  • تاريخ الانضمام

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

  • Days Won

    30

كل منشورات العضو أبوبسمله

  1. السلام عليكم مشاركه مع اخى @محمد احمد لطفى جزاه الله خيرا Private Sub x_Click() Call searchtext(Forms![fxm], Me.x) End Sub Sub searchtext(frm As Form, strtxt As String) Dim ctl As Control For Each ctl In frm.Controls If ctl.ControlType = acOptionButton Then If ctl.Name = strtxt Then ctl.Value = True Else ctl.Value = False End If End If Next End Sub testc_1.accdb
  2. فعلا حاجه غريبه قمت بالتجربه السجل الوحيد اللى رجع يعمل معاه كده قمت بعمل ضغط واصلاح فقط فظبطت الامور فقم بعمل ضغط واصلاح للبرنامج وجرب مره اخرى واخبرنا بالنتيجه بالتوفيق
  3. السلام عليكم السبب فى ذلك عدم تعريفك للمتغير frm وعند الدخول للنموذج Frm_Loans فان قيمه المتغير تكون فارغه فلذلك يدخل ع الشرط الثانى اتفضل 20240315_1.mdb
  4. الشكر لله واياكم بالنسبه للتاريخ تم عمله مثلما طلبت فى اول الموضوع وبما انك لا تريده هكذا قم لفتح الاستعلام فى وضع التصميم وقم بانزال حقل التاريخ واختار ماكس بالتوفيق
  5. السلام عليكم ورحمه الله وبركاته كل عام وانتم بخير مشاركه مع اخى @kkhalifa1960 جزاه الله خيرا اتفضل ان شاء الله يكون ما تريد بطريقه اخرى بالتوفيق PRindex_1.accdb
  6. السلام عليكم ورحمه الله وبركاته كيفك اخى ازهر كل عام وانت طيب اتفضل ان شاء الله يكون ما تريد بالتوفيق Q2_1.accdb
  7. جزاك الله خيرا اخى @Foksh ع التوضيح للاخ السائل وحقيقه لااعلم سبب التعارض ولاكن استكفيت بفتح النموذج بشرط ع السجل المطلوب وهو ما قام بايقاف الازرار لانه لا يوجد غير سجل واحد بالنموذج بالنسبه للحذف قم بغلق النموذج بعد الحذف وقبل اغلاق الرساله مع عمل ريفرش للنموذج المفتوح بالخلف عند العوده بالتوفيق
  8. وعليكم السلام ورحمه الله وبركاته وكل عام وانت وجميع الامه الاسلاميه بخير اتفضل بالتوفيق DATE_1.accdb
  9. واياكم اخى اعلم بانه اجتهاد من خلال ردك (طبعاً من تصوري لجملة الدالة DLookup ) ولذلك قلت بانه يوحى لانه نص جزاك الله خيرا ع ما تقدمه لاخوانك من مساعدات جعلها الله فى ميزان حسناتك
  10. السلام عليكم اتفضل تم التعديل ع الكود التالى فقط بايقاف السطر الاخير Private Sub ID_DblClick(Cancel As Integer) 'Dim teltoedit As Long 'teltoedit = Me.ID.Value DoCmd.OpenForm "telseditor", acNormal, , "[id]=" & ID 'DoCmd.SearchForRecord acDataForm, "telseditor", acFirst, "[id]=" & ID End Sub بالتوفيق dbtest.rar
  11. السلام عليكم ورحمه الله وبركاته مشاركه مع اخى @Foksh جزاه الله خيرا اتفضل استخدم التعديل التالى IIf(Len([اسم الخامة] & "")=0;"";Nz(DLookUp("[سعـــر البيع]";"المخزن";"[اسم الخامة]=" & [اسم الخامة]);0)) والاصل قبل الاضافه DLookUp("[سعـــر البيع]";"المخزن";"[اسم الخامة]=" & [اسم الخامة]) والخطأ لان اسم الخامه يوحى بانه نص فتم كتابه المعيار على انه نص وهو فى الحقيقه رقم بالتوفيق
  12. السلام عليكم ورحمه الله وبركاته مشاركه مع اخوانى واساتذتى جزاهم الله عنا كل خير وكل عام وانتم طيبيين اتفضل اطلع ع المرفق هل هذا ما تريد بالتوفيق copy value fom colum to another_1.rar
  13. الف مبروك استاذ موسى 💐 واعانك الله على مساعده اخوانك واسال الله لك وللجميع دوام التوفيق والنجاح
  14. قصدى ماهى عدد نتيجه السجلات بعد التصفيه ؟ جزاكم الله خيرا معلمينا الافاضل 💐
  15. مشاركه مع معلمنا العزيز وشيخنا الجليل @ابوخليل جزاه الله عنا كل خير 🌷 استاذى العزيز @SEMO.Pa3x سؤال ماهى النتيجه الفعليه عند اختيار ( عسل, غذاء سفري, غذائية ) ؟ ارجو ذكر النتيجه
  16. وعليكم السلام مشاركه مع الاستاذ @Moosak جزاه الله خيرا جرب الحل بالموضوع التالى لاخى العزيز @kanory جزاه الله خيرا بالتوفيق
  17. السلام عليكم مشاركه مع اخوانى واساتذتى جزاهم الله خيرا اتفضل ان شاء الله يكون ماتريد بالنسبه للتعديلات تمت فى اضافه المتغيرات التاليه فى الوحده النمطيه UserModule User_Name User_ID ثم فى زر الدخول فى الفورم frm-UserLogon تم اسناد القيم للمتغيرات User_Name = Me.user User_ID = Me.user.Column(1) ثم فى فورم MAIN عند الفتح تم اسناد قيم المتغيرات للحقول Me.Text17 = User_ID Me.us = User_Name بالتوفيق test AMA.rar
  18. وعليكم السلام اتفضل ان شاء الله يكون ما تريد sum.accdb
  19. وعليكم السلام اتفضل تم تعديل الكود الى Private Sub p1_Click() [Forms]![tb_bill]![tb_Billdetails]![codeitmes] = Me.[codeitmes] [Forms]![tb_bill].SetFocus [Forms]![tb_bill]![tb_Billdetails].SetFocus DoCmd.GoToRecord , , acNewRec End Sub بالتوفيق شاشة الاصناف.accdb
  20. مشاركه مع المهندس @Eng.Qassim جزاه الله خيرا بمعنى ايه ؟ لقد قمت بتجربه الفرز وهناك سجلان وبعد الفرز يصبح العدد 1 وضح اكثر لاخوانك حتى تجد المساعده ان شاء الله بالتوفيق
  21. جزاك الله خيرا اخى واستاذى محمد @ابو جودي 🌹💐 شرح وافى وان شاء الله احاول انفذه غدا فالعمل بالتوفيق
  22. السلام عليكم اتفضل استاذ احمد @Ahmed_J تم التعديل فقد كنت مستعجل عند المشاركه الاولى للنزول للعمل واستخدمت الموديول فحدث آخر لذلك لم يعمل وجزاه الله خيرا معلمنا العزيز جعفر 💐🌹 تم تعديل التقرير الثالث rpt_Ev3 بالتوفيق 1468.1.Lines in Report2.accdb
  23. ياريت يا ابوجودى وخلى الدفع عليا المرادى استاذ @Amr Ashraf 😀 وجزاك الله خيرا
  24. السلام عليكم معلمى العزيز @jjafferr جزاك الله خيرا على ما تقدمه لنا مساعدات ومعلومات 💐 استطعت جعلها كما يريد استاذ @Ahmed_J ولكن عالتقرير rpt_Ev2 ولم استطع تظبيطها مع التقرير الذى به الخطوط فلعلك تقدر ع ضبطها 1468.1.Lines in Report1.accdb
×
×
  • اضف...

Important Information