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

ابو تراب

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

  • Posts

    393

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

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

  • Days Won

    5

Community Answers

  1. ابو تراب
    ابو تراب's post in انتقال تلقائى بعد زمن محدد للخلية التالية was marked as the answer   
    هلا فخفخينا
     
    عملت لك كلاس باسم SuperTimer 
     
    جرب المرفق
     
     
    انتقال تلقائى بعد زمن محدد للخلية التالية.zip
  2. ابو تراب
    ابو تراب's post in مساعدة في تعديل كود was marked as the answer   
    =Nz(DSum("[mx1]";"[Qleader]";"[hx1]='y'"),0)  
  3. ابو تراب
    ابو تراب's post in طلب كود تامين حقل was marked as the answer   
    هل تقصد هذا
    Me.a.Locked = True  
  4. ابو تراب
    ابو تراب's post in الغاء فتح النموذج الفارغ was marked as the answer   
    هلا اخي
    جرب المرفق
     
    New_Microsoft_Access_Database.accdb
  5. ابو تراب
    ابو تراب's post in الاستعلام عن اخر سعر شراء was marked as the answer   
    هلا اخي
    جرب المرفق
    New Microsoft Access Database.zip
  6. ابو تراب
    ابو تراب's post in مساعدة بعمل تفاضل was marked as the answer   
    هلا اخي
    هل هذا ماتريد
    New Microsoft Access Database.accdb
  7. ابو تراب
    ابو تراب's post in طريقة لبحث عن قيم تقريبة مثل vlookup في excel was marked as the answer   
    هلا اخي
    جرب المرفق
    test.accdb
  8. ابو تراب
    ابو تراب's post in المساعدة في عملية طرح الكمية الكلية حسب الصورة المرفقة للتوضيح was marked as the answer   
    هلا اخي
    جرب الكود
    من المهم لكي يعمل الكود ان يكن التسلسل صحيح ... اذا كان اخر دفعة لكارت هو رقم 4 فدفعة الجديدة يجب ان تكن 5
    db2card_UPDATED2.mdb
  9. ابو تراب
    ابو تراب's post in مساعدة في حفظ جدول was marked as the answer   
    هلا اخي
    جرب هذا الكود
    DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentProject.Path & "\TESTDB_BACKUP.accdb", acTable, "TABLE1", "TABLE1" مرفق مثال
    بالتوفيق
    TEST.zip
  10. ابو تراب
    ابو تراب's post in رسالة تحذير عند تغيير البيانات was marked as the answer   
    هل هذا المطلوب اخي
     
    TEST5.accdb
  11. ابو تراب
    ابو تراب's post in تلوين حقل بناء على قيمة حقل اخر was marked as the answer   
    جرب التالي
     
    TEST (1).accdb
  12. ابو تراب
    ابو تراب's post in فلترة ثنائية بشرطين was marked as the answer   
    لسبب ما لا استطيع تحميل الملف
    على كلا تستطيع اضافة زر للتقرير في النموذج
    كذلك انسخ التالي للاستعلام q_dawar_defat1
    SELECT dawar.bar, dawar.nfousi, NoufousTable.Field, dawar.datein, dawar.n_istimara, dawar.n_mortajaa, dawar.type, dawar.hala, dawar.MORTAJAA, dawar.timy, [n_istimara]-[n_mortajaa] AS ss FROM hala INNER JOIN (type INNER JOIN (dawar INNER JOIN NoufousTable ON dawar.nfousi = NoufousTable.NoufousName) ON type.IrselyehTypeID = dawar.type) ON hala.fieldid = dawar.hala WHERE (((hala.fieldid)=Nz([Forms]![F1]![tsearch],0))) GROUP BY dawar.bar, dawar.nfousi, NoufousTable.Field, dawar.datein, dawar.n_istimara, dawar.n_mortajaa, dawar.type, dawar.hala, dawar.MORTAJAA, dawar.timy, [n_istimara]-[n_mortajaa] HAVING (((dawar.datein)>=[Forms]![F1]![d1] And (dawar.datein)<=[Forms]![F1]![d2]) AND ((dawar.type)=IIf([Forms]![F1]![chkFirstOrder],1,0)) AND ((dawar.MORTAJAA)=False) AND ((dawar.timy)="1")) OR (((dawar.type)=IIf([Forms]![F1]![chkRenew],2,0))) OR (((dawar.type)=IIf([Forms]![F1]![chkReplacement],3,0))) ORDER BY dawar.type;  
  13. ابو تراب
    ابو تراب's post in رسالة تنبيه was marked as the answer   
    هلا اخي
    جرب المرفق
    test.accdb
  14. ابو تراب
    ابو تراب's post in مساعدة في تعديل كود was marked as the answer   
    جرب المرفق
    TEST -UPDATED.accdb
  15. ابو تراب
    ابو تراب's post in مشكلة في امان المعلومات was marked as the answer   
    عملت لك مثال و كلمة السر  1234
    كما نصح الاخوة الكرام يجب تامين الكود
    بالتوفيق
    Test.accdb
  16. ابو تراب
    ابو تراب's post in عدم ظهور السجلات كاملة في استعلام مشترك was marked as the answer   
    هلا اخي
    تم التعديل
    الفكرة هى ضم كل الاسطر في الجدولين...اضفت سطر 8  لجدول IN للتوضيح
     
    بالتوفيق
    TEST-UPDATED.accdb
  17. ابو تراب
    ابو تراب's post in استخلاص التاريخ من خليه بعد اضافة 24 شهر له was marked as the answer   
    ماشاء الله تبارك الله اعجبتني المعادلة فعلا
     
    قمت فقط باضافة بسيطة جدا الا وهى الدالة Trim وذلك لتجاوز الخطأ من وجود الفراغ و ذلك في حالة وجود تاريخ ليوم بين 1 الى 9
     
    مثلا:  ahmed.moh  8/1/2015 1:09 PM
    =1*VALUE(TRIM(RIGHT(B3,LEN(B3)-SEARCH("/",B3)+3))+DATE(2,1,0))
  18. ابو تراب
    ابو تراب's post in مساعدت في تصميم على اكسيل was marked as the answer   
    تفضل اخي
     
    Example.zip
  19. ابو تراب
    ابو تراب's post in تلوين الخلايا بحسب الكومنت was marked as the answer   
    مشكوووووووووور اخي الغالي ياسر على التنبية...حفظت الملف بالصيغة الخطأ
     
     
    تفضلوا الملف المرفق ..
     
    ملاحظة:
     
    الملف المرفق يلون الخلاياء من A2 الى A5 ... اما اذا اردت ان يغير جميع الخلاياء التي تحتوي على كومنت .. يمكنك استخدم الكود التالي:
    For Each cell In Cells.SpecialCells(xlCellTypeComments) بدلا عن:
    For Each cell In Range("A2:A5") Color By Comment.zip
  20. ابو تراب
    ابو تراب's post in ترحيل خلية الى خلية اخرى في شيت اخر وفق الله من ساعدني في حل هذا :( was marked as the answer   
    وعليكم السلام
     
    جرب المرفق
     
     
    Sheet.zip
  21. ابو تراب
    ابو تراب's post in هل يمكن تنفيذ الكود على خلايا محمية في مصنف مشترك ؟ was marked as the answer   
    هلا باخي ابوعبيد
     
    ان شاء الله ستحل
     
    عملت لك بعض التغييرات بحيث تعمل و الملف مشارك ...جرب الكود هذا وخبرنا
     

     
    كلمة السر 111 كما في الملف المرفق
    With ActiveWorkbook     Application.DisplayAlerts = False     .ExclusiveAccess     Application.DisplayAlerts = True     ActiveSheet.Unprotect 111         [A2] = [A1]     ActiveSheet.Protect 111     Application.DisplayAlerts = False     .KeepChangeHistory = True     .SaveAs Filename:=ActiveWorkbook.FullName, AccessMode:=xlShared     Application.DisplayAlerts = True End With  
    تشغيل ماكرو في ملف مشارك.zip
  22. ابو تراب
    ابو تراب's post in الربط بين مربع نص و مربع قائمة was marked as the answer   
    وعليكم السلام عليكم ورحمة الله وبركاته 
     
    هلا ماجد
     
    جرب جميع الازرار في المرفق
     
     
    LISTBOX.zip
  23. ابو تراب
    ابو تراب's post in اين المشكلة في معادلة IFالشرطية was marked as the answer   
    وعليكم السلام
     
    فقط اضف علامتي - - في الخلاياء تبع العمود B
    =--IF(A2<>"",TRUNC((A2-$E$1))&" ","") جرب المرفق
     
    ملف.zip
  24. ابو تراب
    ابو تراب's post in رسالة خطأ ارجو تصحيحها was marked as the answer   
    هلا حسام
     
    جرب المرفق
    HOSAM ABDEL MOHSEN.zip
  25. ابو تراب
    ابو تراب's post in مساعدة في تعديل علي فورم بحث was marked as the answer   
    وعليكم السلام
     
    اخي محمد تم التعديل كما في الصورة
     

     
    انظر للمرفق
     
     
    مساعدة في تعديل علي فورم بحث.zip
×
×
  • اضف...

Important Information

  I accept