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

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

الخبراء
  • Posts

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

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

  • Days Won

    24

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

  1. اتفضل هذا حسب طلبك انظر للمرفق شرط.accdb
  2. اخي الفاضل لم افهم قصدك ولكن الكود لازم يكون بهذا الشكل If Forms![InvoiceHF]![InvoiceTF]!QAvilable = 0 Then MsgBox "الصنف الذي تريد اضافتة منتهي من المستودع" End If Forms![InvoiceHF]![InvoiceTF]!QSold.SetFocus
  3. اخي الكريم اعلم انه هنا ليس يوجد تميز او عنصريه ولكن للامانه انه اذا احد فهم السوال او يعلم بالحل اتكاد يقيننا انه لن يبخل به ستجده يتابع مابدا به وانت اذا اردت ان يحل مشكله لديك ما عليك بالاتي اولا البحث عن نفس المشكله اذا لم تجد شبه ما تبحث عنه ارفاق مثال مصغر مع شرح المطلوب واذا لم تجد احد رد عليك فعليك بكلمه للرفع حتى تظر للاعضاء هذا وبالله التوفيق تحياتي
  4. لا اخي انا كمان رسلت لك الكود الاول انا كنت اقصد هذا 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
  5. انا لم اجربه ولكن اظنه اسمح لاني لو لحظت انا اضفت فيه مجلد +برنامج ماكان فيه اي مشكلة
  6. طيب هذا مضغوط 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
  7. كلام سليم انا الان سويت خروج من الميديا وطلع نفس طريقتك لازم تسجل بميديا حتى يطلع والله غريبه انا مجرد ما غرجن مت حسابي تغير الرابط
  8. اذا المشكله عندك اخي وليس عندي
  9. اتفضل لانه ما عملت شير جرب هذا 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
  10. شوف اخي هذا برنامجي انا عامله في نفس البرنامج http://www.mediafire.com/file/i640viel9xcj074/برنامج+الخياط+الجديد.exe
  11. هذا تطبيق لما تفضل به الاخ أبو إبراهيم الغامدي bb.rar
  12. انا استخدم هذا البرنامج وهو ممتازجدا Setup Factory 9
  13. هذا كافي كي تعرف طلب منك توضح اكثر وانت لم ترد حتى
  14. اتفضل جرب هذا 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
  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. شوف اخر كود ارسلته لك شغال ميه في الميه
  17. اتفضل هل هذا ينفع 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
  18. اخي Khalf لازم بعد الامر Me.Requery جرب وشوف بنفسك
  19. اتفضل عند الاغلاق اضف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 اضف هذا
  20. اخي الكريم جرب هذا البرنامج فهو من تصميم الاستاذ صالح حمادي
  21. لم افهم قصدك اخي ياليت لو توضح اكثر
  22. نعم اخي Shivan Rekany هو هذا اللي يدور في عقلي انا كنت عملت هذه الطريقه Print.accdb
×
×
  • اضف...

Important Information