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

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

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

  • Posts

    1757

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

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

  • Days Won

    24

 نوع المحتوي 

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

  1. ابو ياسين المشولي
    SELECT tb1.nam, tb1.salry, tb1.dy_work, tb1.hor_dy, tb1.apsnt, tb1.lat, Round(Nz([salry]/[dy_work],2),"0") AS amo_per, Round(Nz([amo_per]/[hor_dy],2),"0") AS amo_hor, Round(Nz([amo_per]*[apsnt],2),"0") AS amo_apsnt, Round(Nz([amo_hor]*[lat],2),"0") AS amo_lat, Round([amo_apsnt]+[amo_lat],2) AS amo_ded, Round([salry]-[amo_ded],2) AS net_salry, tb1.tak, Round([net_salry]-[tak],2) AS amo_def FROM tb1; استخدم داله nz
  2. ابو ياسين المشولي
    استخدم داله nz
  3. ابو ياسين المشولي
    اجعل الكود عند ضغط جديد
  4. ابو ياسين المشولي
    في حدث بالنموذج الحالي 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 ضع هذا
  5. ابو ياسين المشولي
    في حدث بالنموذج عند التحميل ضع هذا 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
  6. ابو ياسين المشولي
    بعد اذنك اخي شيفان اظنه قال اذا وجد الصنف يضاف له اللي في النموذج بيكون هكذا StrSql = "UPDATE Alsnaf SET Alsnaf.Sanf =[Forms]![ÇÝÊÊÇÍí]![Sanf], Alsnaf.rsdaolalmdh =rsdaolalmdh+ [Forms]![ÇÝÊÊÇÍí]![rsdaolalmdh]WHERE (((Alsnaf.ID_Sanf)=[Forms]![ÇÝÊÊÇÍí]![ID_Sanf]));"
  7. ابو ياسين المشولي
    والمشكله انه كل اوفيس وله رقم 10 يعني 2003 12 يعني 2007 14 يعني 2010
  8. ابو ياسين المشولي
    انا جربت هذا شوفه واعطيني خبر SandAll5.rar
  9. ابو ياسين المشولي
    لم الاحظ اي خلل فيما قلت
  10. ابو ياسين المشولي
    لم تجي بجديد الملف اللي ارفقته هو نفس الملف اللي انا ارفقته انت لو ركزت انا غيرت تقريرك واستبدلت بتقرير جديد
  11. ابو ياسين المشولي
    بالتوفيق والحمدلله انك وصلت للحل
  12. ابو ياسين المشولي
    هنا اضفت اكثر من 8 مكتبات Database25.accdb
  13. ابو ياسين المشولي
    جرب هذا Me.Frm1.SetFocus DoCmd.GoToRecord , , acLast واذا اردت التسجيل باخر حقل بيكون هكذا Me.Frm1.SetFocus DoCmd.GoToRecord , , acLast DoCmd.GoToRecord , , acNext
  14. ابو ياسين المشولي
    هذا ما قدرت اوصل له لعل احد الاخوه يفيدك
  15. ابو ياسين المشولي
    اتفضل test951159.mdb
  16. ابو ياسين المشولي
    بالتوفيق اخي
  17. ابو ياسين المشولي
    اتفضل [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
  18. ابو ياسين المشولي
    Me.Requery [Forms]![SandExpense_F]![Amount] = [Forms]![SandExpense_F]![ExpenseDate_Sub]![Total1] Me.Refresh هذا لتحديث الاجمالي
  19. ابو ياسين المشولي
    للرفع
  20. ابو ياسين المشولي
    في حدث عند الفتح docmd.Maximiz
  21. ابو ياسين المشولي
    اكتب امري طباعة لكل تقرير على حدة في نفس حدث الزر
  22. ابو ياسين المشولي
    استبدل DoCmd.CancelEvent بهذا Exit Sub
  23. ابو ياسين المشولي
    جرب هذا If IsNull(DLookup("[Sanf]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'")) Then MsgBox " المـعـذرة يـرجـاء الـتـأكـد .... لا تـو جـد صـنـف بـهـذا الـرقـم ", vbInformation, "رساله" DoCmd.CancelEvent End If
  24. ابو ياسين المشولي
    بالتوفيق اول كتبته بالمبايل فعكس الاقواس هههههه تحياتي لك
  25. ابو ياسين المشولي
    بعتذر انا اخطائت If Not IsNull(Me.n12) Then
×
×
  • اضف...

Important Information

  I accept