اذهب الي المحتوي
أوفيسنا

أبوبسمله

الخبراء
  • Posts

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

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

  • Days Won

    32

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

  1. اخى الفاضل @husseinharby لقد قمت المرفق الاخير لاهى صالح ويعمل عندى بكفائه فى التعديل والاضافه والحذف متى يظهر هذا الخطأ عندك ؟
  2. احسنت اخى واستاذى صالح @ابوآمنة جزاك الله خيرا اخى حسين @husseinharby لاتنسى بارك الله فيك👇 ولما تحصل على اجابة لسؤال موضوعك ، فرجاء اختيار افضل اجابة ، هكذا (حتى مستقبلا يسهل معرفة الاجابة الصحيحة) : . شكرا 🙂
  3. احسنت اخى الحبيب @kanory جزاك الله خيرا
  4. رابط الموضوع تجده بداخل المرفقات فى جزء التعليقات http://arabteam2000-forum.com/index.php?/topic/281770-اجمالى-الكشوف-فى-صفحه-جديده/&do=findComment&comment=1356971 بالتوفيق ان شاء الله
  5. اتفضل مثال لاختنا العزيزه زهره جزاها الله كل خير بالتوفيق ان شاء الله za-SumPage-اجمالى الكشوف فى صفحه جديده.rar
  6. وعليكم السلام اخى الفاضل احمد استخدام خاصيه البحث سيوفر عليك عناء الانتظار عالعمو اطلع على الرابط التالى وان شاء الله يفى بالغرض تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق
  7. وعليكم السلام اتفضل اخى الفاضل ان شاء الله يكون ما تريد تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق تجربة_4.rar
  8. وعليكم السلام جزاك الله خيرا اخى واستاذى العزيز جعفر حتى وان كان قليل فخبرتكم بالمجال تكفينا فنحن طلاب علم نتعلم من خبراتكم بارك الله فيك تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق
  9. جزاك الله خيرا عالمجامله اخى حسين اخوك طالب علم مبتدئ على قد حاله وفيك بارك الله وجزاهم الله اخوانى واساتذتى وفى انتظار تعقيب اخى واستاذى العزيز @jjafferr جزاه الله خيرا على استخدام هذه المكتبه والتصحيح ان كان هناك شىء ما جزاهم الله خيرا اخوانى واساتذتى
  10. ولم الاسف اخى واستاذى محمد وكما قال اخى واستاذنا العزيز جعفر في اعتقادي ، مشاركة أكثر من شخص في الرد على السؤال ، يفتق الاذهان ويدمج التجارب ويبلور الافكار وفائدة للجميع ، فمنه نتعلم الطرق الاخرى للإجابة على السؤال اعلم جيدا اخى واستاذى انكم تقدمون المساعدات لقاء دعوه صالحه واسال الله لكم الاجر والثواب وان يرزقكم العلم النافع والعمل الصالح والبركه فى الاهل وحسن الخاتمه والفردوس الاعلى اخوك الصغير احمد طالب علم مبتدئ فى مدرستكم اوفيسنا
  11. الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا اخى الفاضل @zubair1aid يرجى تعديل افضل اجابه لاخى واستاذى محمد @ابا جودى لانه هو اللذى قدم اليك الحل جزاه الله خيرا بارك الله فيك بالتوفيق اخى
  12. مشاركه مع اخى واستاذى محمد @ابا جودى جرب الان ووافنا بالنتيجه تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق تجربة_2.rar
  13. اخى @husseinharby هذا لانك لم تقم بجميع التعديلات المطلوبه فالكود يعتمد على التاج او العلامه افتح الجدول revision وانظر اليه ستجد به سجلات الان قم بالتعديل على الحقول اللتى تريدها باضافه القيمه Audit كما بالصوره تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق De55sktop.rar
  14. اللهم آمين واياكم اخى بالتوفيق ان شاء الله
  15. مشاركه لاخى العزيز @محمد ابوعبد الله جزاه الله خيرا على حسب ما فهمت واضافه طريقه جميله لاخى واستاذنا العزيز @jjafferr جزاه الله خيرا على تعليمنا اياها ان شاء الله يكون طلبك بالتوفيق ان شاء الله Option Compare Database Private Sub aa_AfterUpdate() N = DLookup("[type]& '|'&[name]& '|'& [code]", "save", "[barcode]= [aa]") x = Split(N, "|") Me.typea = x(0) Me.nameb = x(1) Me.codec = x(2) End Sub Private Sub أمر28_Click() xx = Me.codec N = DLookup("[barcode]& '|'&[type]& '|'&[name]", "save", "[code]=" & xx & "And [type] ='كارتون'") x = Split(N, "|") Me.aa = x(0) Me.typea = x(1) Me.nameb = x(2) End Sub 12.rar
  16. وعليكم السلام اخى حسين اخى واستاذى العزيز @jjafferr هذه الصوره المرفقه من مثال اخى حسين بعد ان تمنت من تحميل الملف لسوء جوده الانترنت حاليا اخى حسين يجب ان تقوم بتفعيل المكتبه كما الصوره التاليه وان شاء الله اخى واستاذى @jjafferr يشاركنا بالتوفيق ان شاء الله De55sktop.rar
  17. وعليكم السلام سيتم تحديث الصف المركز عليه بالنموذج الفرعى يالقيمه التى تختارها هل هذا ما تريد ؟ تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق تجربة.accdb
  18. جزاك الله خيرا استاذ @محمد طاهر نعم تم ابلاغى من قبل الاستاذ @صلاح بلعلا الان انه تم حل المشكله عن طريق استاذ احمد ماهر @محمد طاهر جزاكم الله خيرا
  19. اخى واستاذى العزيز محمد @ابا جودى للتغلب على مشكله عدم ظهور البيانات بعد الحذف قمت بوضع الكود التالى كمصدر للسجلات عند الفتح Private Sub Form_Open(Cancel As Integer) strSql = "SELECT TOP 10 tblData.ID, tblData.[NO], tblData.Locatin, tblData.SecName, tblData.DepName, tblData.RegDate FROM tblData;" Me.RecordSource = strSql Call RecordCount Call RecordCount End Sub
  20. وعلام الاعتذار اخى واستاذى محمد فكلنا نخطىء ومن اخطائنا نتعلم الكثير بارك الله فيك وماهى المشكله التى ظهرت معك ؟ ان كانت مشكله اعاده الترقيم فهذه امرها سهل فيمكن اعاده الترقيم مره اخرى ام هناك مشكله اخرى لم الاحظها ؟
×
×
  • اضف...

Important Information