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

ابو ياسين المشولي

الخبراء
  • Posts

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

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

  • Days Won

    24

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

  1. اخي الكريم اعلم انه هنا ليس يوجد تميز او عنصريه ولكن للامانه انه اذا احد فهم السوال او يعلم بالحل اتكاد يقيننا انه لن يبخل به ستجده يتابع مابدا به وانت اذا اردت ان يحل مشكله لديك ما عليك بالاتي اولا البحث عن نفس المشكله اذا لم تجد شبه ما تبحث عنه ارفاق مثال مصغر مع شرح المطلوب واذا لم تجد احد رد عليك فعليك بكلمه للرفع حتى تظر للاعضاء هذا وبالله التوفيق تحياتي
  2. لا اخي انا كمان رسلت لك الكود الاول انا كنت اقصد هذا On Error Resume Next DoCmd.SetWarnings False Dim Q As Recordset 'هذا الكود يلغي الخفظ التلقائ عند التراجع و' Set Q = CurrentDb.OpenRecordset("SELECT * from AJRD;") While Not Q.EOF If Q!Xsave = False Then Q.Delete End If Q.MoveNext Me.frm_JRD_Sub.Requery Me.Refresh Wend DoCmd.SetWarnings True Me.Refresh
  3. انا لم اجربه ولكن اظنه اسمح لاني لو لحظت انا اضفت فيه مجلد +برنامج ماكان فيه اي مشكلة
  4. طيب هذا مضغوط http://www.mediafire.com/file/q7clvcexa60ajbd/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC_%D8%A7%D9%84%D8%AE%D9%8A%D8%A7%D8%B7_%D8%A7%D9%84%D8%AC%D8%AF%D9%8A%D8%AF.rar/file
  5. كلام سليم انا الان سويت خروج من الميديا وطلع نفس طريقتك لازم تسجل بميديا حتى يطلع والله غريبه انا مجرد ما غرجن مت حسابي تغير الرابط
  6. اذا المشكله عندك اخي وليس عندي
  7. اتفضل لانه ما عملت شير جرب هذا http://www.mediafire.com/file/i640viel9xcj074/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC_%D8%A7%D9%84%D8%AE%D9%8A%D8%A7%D8%B7_%D8%A7%D9%84%D8%AC%D8%AF%D9%8A%D8%AF.exe/file
  8. شوف اخي هذا برنامجي انا عامله في نفس البرنامج http://www.mediafire.com/file/i640viel9xcj074/برنامج+الخياط+الجديد.exe
  9. هذا تطبيق لما تفضل به الاخ أبو إبراهيم الغامدي bb.rar
  10. انا استخدم هذا البرنامج وهو ممتازجدا Setup Factory 9
  11. هذا كافي كي تعرف طلب منك توضح اكثر وانت لم ترد حتى
  12. اتفضل جرب هذا SELECT num.num, num.n1 AS s, Nz(DLookUp("c1","com","[num]=" & [num]),"0") AS f, Nz([s],0)+Nz([f],0) AS [sum] FROM num; qnew.rar
  13. شوف اخر كود ارسلته لك شغال ميه في الميه انا كلمك على هذا لم تشتاف كلمه محذوف On Error Resume Next DoCmd.SetWarnings False Dim Q As Recordset 'هذا الكود يلغي الخفظ التلقائ عند التراجع و' Set Q = CurrentDb.OpenRecordset("SELECT * from AJRD;") While Not Q.EOF If Q!Xsave = False Then Q.Delete End If Q.MoveNext Me.frm_JRD_Sub.Requery Wend DoCmd.SetWarnings True
  14. شوف اخر كود ارسلته لك شغال ميه في الميه
  15. اتفضل هل هذا ينفع On Error Resume Next DoCmd.SetWarnings False Dim Q As Recordset 'هذا الكود يلغي الخفظ التلقائ عند التراجع و' Set Q = CurrentDb.OpenRecordset("SELECT * from AJRD;") While Not Q.EOF If Q!Xsave = False Then Q.Delete End If Q.MoveNext Me.frm_JRD_Sub.Requery Wend DoCmd.SetWarnings True
  16. اخي Khalf لازم بعد الامر Me.Requery جرب وشوف بنفسك
  17. اتفضل عند الاغلاق اضفMe.Requery On Error Resume Next DoCmd.RunCommand acCmdSaveRecord DoCmd.SetWarnings False Dim Q As Recordset 'هذا الكود يلغي الخفظ التلقائ عند التراجع و' Set Q = CurrentDb.OpenRecordset("SELECT * from AJRD;") While Not Q.EOF If Q!Xsave = False Then Q.Delete End If Q.MoveNext Wend DoCmd.SetWarnings True Me.Requery اضف هذا
  18. اخي الكريم جرب هذا البرنامج فهو من تصميم الاستاذ صالح حمادي
  19. لم افهم قصدك اخي ياليت لو توضح اكثر
  20. نعم اخي Shivan Rekany هو هذا اللي يدور في عقلي انا كنت عملت هذه الطريقه Print.accdb
  21. جزاك الله خير سبقتني بالتنزيل وهذا يحسب لك لكن انا تاخرت لاني اود عند معرفه اسماء الطابعات يضيفها تلقائي ممكن نتعاون جميعا انا الان نجعت انه عند اختيار طابعه يضيفها الى الجدول وانا اريد يضفها كلها للجدول بارقام متسلسله
  22. اتفضل اتمنى يكون المطلوب SearchRpt (2).rar
×
×
  • اضف...

Important Information