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

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

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    1755

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

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

  • Days Won

    24

 نوع المحتوي 

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

  1. ابو ياسين المشولي
    اجعل الكود عند ضغط جديد
  2. ابو ياسين المشولي
    في حدث بالنموذج الحالي If [Cocher43] = 0 And IsNull(Me.N°_Carte_Nationale) Then Me.N°_Carte_Nationale.Enabled = False Else Me.N°_Carte_Nationale.Enabled = True End If ضع هذا
  3. ابو ياسين المشولي
    في حدث بالنموذج عند التحميل ضع هذا If [Cocher43] = 0 And Me.N°_Carte_Nationale = Null Then Me.N°_Carte_Nationale.Enabled = False Else Me.N°_Carte_Nationale.Enabled = True End If
  4. ابو ياسين المشولي
    بعد اذنك اخي شيفان اظنه قال اذا وجد الصنف يضاف له اللي في النموذج بيكون هكذا StrSql = "UPDATE Alsnaf SET Alsnaf.Sanf =[Forms]![ÇÝÊÊÇÍí]![Sanf], Alsnaf.rsdaolalmdh =rsdaolalmdh+ [Forms]![ÇÝÊÊÇÍí]![rsdaolalmdh]WHERE (((Alsnaf.ID_Sanf)=[Forms]![ÇÝÊÊÇÍí]![ID_Sanf]));"
  5. ابو ياسين المشولي
    والمشكله انه كل اوفيس وله رقم 10 يعني 2003 12 يعني 2007 14 يعني 2010
  6. ابو ياسين المشولي
    انا جربت هذا شوفه واعطيني خبر SandAll5.rar
  7. ابو ياسين المشولي
    لم الاحظ اي خلل فيما قلت
  8. ابو ياسين المشولي
    لم تجي بجديد الملف اللي ارفقته هو نفس الملف اللي انا ارفقته انت لو ركزت انا غيرت تقريرك واستبدلت بتقرير جديد
  9. ابو ياسين المشولي
    بالتوفيق والحمدلله انك وصلت للحل
  10. ابو ياسين المشولي
    هنا اضفت اكثر من 8 مكتبات Database25.accdb
  11. ابو ياسين المشولي
    جرب هذا Me.Frm1.SetFocus DoCmd.GoToRecord , , acLast واذا اردت التسجيل باخر حقل بيكون هكذا Me.Frm1.SetFocus DoCmd.GoToRecord , , acLast DoCmd.GoToRecord , , acNext
  12. ابو ياسين المشولي
    هذا ما قدرت اوصل له لعل احد الاخوه يفيدك
  13. ابو ياسين المشولي
    اتفضل test951159.mdb
  14. ابو ياسين المشولي
    بالتوفيق اخي
  15. ابو ياسين المشولي
    اتفضل [Forms]![SandExpense_F].Refresh [Forms]![SandExpense_F]![Amount] = [Forms]![SandExpense_F]![ExpenseDate_Sub]![Total1] [Forms]![SandExpense_F]![Amount].Requery Me.Refresh Total1.Requery Me.notes.SetFocus
  16. ابو ياسين المشولي
    Me.Requery [Forms]![SandExpense_F]![Amount] = [Forms]![SandExpense_F]![ExpenseDate_Sub]![Total1] Me.Refresh هذا لتحديث الاجمالي
  17. ابو ياسين المشولي
    للرفع
  18. ابو ياسين المشولي
    في حدث عند الفتح docmd.Maximiz
  19. ابو ياسين المشولي
    اكتب امري طباعة لكل تقرير على حدة في نفس حدث الزر
  20. ابو ياسين المشولي
    استبدل DoCmd.CancelEvent بهذا Exit Sub
  21. ابو ياسين المشولي
    جرب هذا If IsNull(DLookup("[Sanf]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'")) Then MsgBox " المـعـذرة يـرجـاء الـتـأكـد .... لا تـو جـد صـنـف بـهـذا الـرقـم ", vbInformation, "رساله" DoCmd.CancelEvent End If
  22. ابو ياسين المشولي
    بالتوفيق اول كتبته بالمبايل فعكس الاقواس هههههه تحياتي لك
  23. ابو ياسين المشولي
    بعتذر انا اخطائت If Not IsNull(Me.n12) Then
  24. ابو ياسين المشولي
    حاول هكذا if (not null)me.n12 then
  25. ابو ياسين المشولي
    اذا كان هذا طلبك فالله المستعان انت قلت لاتريدها تتكرر الاصناف وانا عملت لك كما طلبت وهذا اللي عملته انت هو استعلام الحاق ماله صله بالنموذج اما بالنسبه للرقم فهو عند فتح النموذج هو يضيف سطر على العموم بالتوفيق اهم شي انك توصلت للحل
×
×
  • اضف...

Important Information

  I accept