• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

ebraheem-w

اعضاء
  • عدد المشاركات

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

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

كل شيء نشر بواسطة ebraheem-w

  1. السلام عليكم SYS.CopyFile "d:\post.mdb", "d:Save_db\" & Format("post") & "~" & Format(Date, "dd-mm-yyyy") & "~" & Format(Time, "hh-mm-ss") & ".mdb" & "" هذا الكود تم به تحديد مسار الملف المراد اخذ نسخة منه وهو post الموجود على السواقة d الى السواقة d في مجلد Save_db لكن السؤال اذا تم نقله الملف وتغيير مساره لا يعمل النسخ 1-فهل توجد طريقة لتحديد مسار الملف تلقائيا اذا لم يكن المجلد Save_dbموجودا على السواقة d فلن يتم النسخ 2- ماهي الطريقة لانشاء المجلد إذا لم يكن موجود وجزاكم الله عنا كل خير
  2. اشكرك اخي فيري على المتابعة هذه الصورة توضح المطلوب وهذا الرابط الملف الرابط الخاص بي جزاكم الله عنا كل خير
  3. نسخة احتياطية

    حصلت على هذا الكود Function InitialSetting() 'تغيير الدليل الافتراضي للاكسس الى الدليل الحالي لقاعدة البيانات ChDir (CurrentProject.Path) هل استطيع الاستفادة منه في موضوعي
  4. نسخة احتياطية

    اشكرك اختي زهرة على التفاعل جزاك الله كل خير
  5. اخي فيري ليس هذا المقصود عند عدم الوجود في القائمة يفتح لي نموذج اختار منه الصنف الذي اريد المطلوب اختيار الصنف من نموذج البحث يتم بواسطة زر الانتر وليس بالماوس وإن الملف المرفق يوضح المطلوب وشكرا
  6. نسخة احتياطية

    اشكرك اختي زهرة على الاجابة وتم انشاء المجلد اذا لم يكن موجودا بنجاح وجزاكي الله كل خير لكن بقي السؤال الاول لم يتم الاجابة عنه وهو اذا نقل الملف المراد نسخه مثلا على سطح المكتب عندها لن يتم النسخ المطلوب هل توجد طريقة لتحديد مسار الملف تلقائيا وجزاكم الله عنا كل خير
  7. زرع ملف dll

    اشكركم على الاجابة والمساعدة وجزاكم الله كل خير
  8. زرع ملف dll

    اشكرك اخي very على المتابعة حياك الله تقريبا وصلت الفكرة لكن ماذا تقصد بمكتبة dll حقيقية جزاك الله كل خير
  9. زرع ملف dll

    اشكرك اخي very على المساعدة لكن كيفية التعامل من ملف dll حاولت فتحه لم يفتح (اظهر لي نافذة اختيار البرنامج الملائم للفتح) هل هو ملف مثل المفكرة مخزن بها بيانات لماطبقتها مع ملف الاكسس او لمطابقة اسم الملف dll مع الكود الموجود في برنامج الاكسس المحمي اشكركم على التعاون
  10. زرع ملف dll

    اشكرك اخي TareqVB على الاجابة لكن عذرا مازلت مبتدا اني لا اعلم ما الهدف من الملف ولا اعلم ماذا تفعل لاحقة dll واثرت تساؤلا جديدا ماذا تقصد بالمكتبة وجزاكم الله عنا كل خير
  11. معاً لعمل برنامج محاسبي

    السلام عليكم سأكون من اول المتابعين إن شاء الله
  12. كود حساب السعر حسب الشرائح الموضحة بالشكل التالي: جزاكم الله عنا كل خير
  13. جزاك الله كل خير
  14. اشكر جميع من شارك بهذا الموضوع واني قد استفدت من مداخلات الاخ سلامنا لكم واوجه شكر خاص للاخ غرّام العقول على الاهتمام بهذا الموضوع وإن خبرته وحسن تعامله دفعتني لأكثر من الاسئلة 1 - هل يوجد متغير يصل 100 مليون 2 - اذا اردت تعديل سعر شريحة فإني استطتع بعد التعديل الذي قمت به، لكن اذا اردت تعديل كمية الشريحة فإنه لا يمكن التعديل جزاكم الله عنا كل خير
  15. ليس هو المعني ان استهلاك 1175 تحتسب حسب الشرائح اي 15*2.5 10*7 15*15 20*22 1115*30 يكون الناتج 1175 بالكمية ارجو ان يكون التوضيح في مكانه
  16. اشكركم اخواني على المشاركة بهذا الموضوع لقد واجهتني مشكلة عندما اضع كمية اعلى من 1175 يرجى الرد
  17. اختي في الله زهرة هذا الموضوع من اجمل المواضيع بارك الله بك كنت احاول دراسته من اكثر من اسبوعين لكن لي تساؤول على هذا الكود Private Sub HardiskNo_AfterUpdate() Sleft = Left(Me.HardDiskNo, 3) + 2669 Sright = Right(Me.HardDiskNo, 3) + 2669 Me.SerialNo = ([HardDiskNo] - 2669) * 2 Me.ProductNo = Sright & Sleft End Sub ماهو صلة الربط بين هذا الكود Me.SerialNo = ([HardDiskNo] - 2669) * 2 وهذا Sleft = Left(Me.HardDiskNo, 3) + 2669 Sright = Right(Me.HardDiskNo, 3) + 2669 Me.ProductNo = Sright & Sleft ألا يكفي هذا الكود لوحده Me.SerialNo = ([HardDiskNo] - 2669) * 2 وجزاك الله عنا كل خير
  18. اشكرك اخي غرام العقول وجزاك الله عنا كل خير واشكر جميع المشاركين بهذا الموضوع
  19. اختي الفاضلة ام العهود اشكرك على المتابعة لقد قام اخي غرام العقول بالمشاركة وقد شرح ما اريده بالفعل واشكره جزيل الشكر على هذه المشاركة المفيدة لكن هذه المعادلة غير قابلة لتعديل سعر الشرائح هل من طريقة لذلك اشكر تعاونكم جميعا وجزاكم الله عنا كل خير
  20. اشكرك اخي تلميذ الاكسس على الشرح وان هذه المشاركة كانت مفيدا جدا بالنسبة لي وجزلك الله عنا كل خير ووضعها في ميزان حسناتك
  21. اخواني في هذا المنتدى الكريم حاولت تجميع السجلات حسب الرقم لكنه اخذ كل رقم سجل منفرد وحاولت ايضا تجميعها بالاستعلام الجدولي نجحت لكنه ظهر لي بعض المشاكل لا استطيع وضع كل فاتورة على حدا واذا كانت الفاتورة يوجد بها نوع فارغ فإن التقرير يطلب هذا النوع وهذا الربط يوضح المطلوب الرابط الخاص بي وجزاكم الله عنا كل خير
  22. جزاك الله عنا كل خير لكني افضل ان اضع الكمية مثلا 80 تعطيني النتيجة فورا دون فرزها يدويا اشكرك اختي ام العهود
  23. اشكرك اخي RealWord على هذا المثال الرائع ولقد استفدت منه كثيرا لكن لي تساؤل عندما وضعت هذا الكود في زر النموذج عند فتح التقرير strSQL = "SELECT Hj_Au.ID_Au, Hj_Au.nm, Sum((IIf([KW_M]=2,[amu],Null))) AS nmJD, Sum((IIf([KW_M]=4,[amu],Null))) AS NMTN, Sum((IIf([KW_M]=6,[amu],Null))) AS NMMT, Sum((IIf([KW_M]=11,[amu],Null))) AS nmMG, Sum((IIf([KW_M]=8,[amu],Null))) AS nmNS, kw.kw, Hj_inv.dt, Sum(Hj_Au.amu) AS Balance FROM Hj_inv INNER JOIN (kw INNER JOIN Hj_Au ON kw.id_kw = Hj_Au.kw_m) ON Hj_inv.ID = Hj_Au.ID_Au GROUP BY Hj_Au.ID_Au, Hj_Au.nm, kw.kw, Hj_inv.dt, kw.kw HAVING (((Hj_Au.ID_Au)= " & xx & " ));" qdf.SQL = strSQL تم حل مشكلة التقرير ممكن ان تشرح لي ماذا تقصد بهذا الكود
  24. اشكرك اخي تلميذ الاكسس على المساعدة هذا ماطلبت بالفعل لكن مع قلت خبرتي حاولت اكتشاف الاستعلام وفتحه في عرض التصميم لكنه لم يفتح إلا عن طريق SQL ولم شكل ايوقونة الاستعلام مختلف وماذا تقصد بهاذا الكود WHERE (((0)<>0 And (0)<>0 And (0)<>0) AND ((0)<>0 And (0)<>0 And (0)<>0) AND ((0)<>0 And (0)<>0 And (0)<>0) AND ((0)<>0 And (0)<>0 And (0)<>0) AND ((0)<>0 And (0)<>0 And (0)<>0) AND ((0)<>0 And (0)<>0 And (0)<>0) AND ((0)<>0 And (0)<>0 And (0)<>0) AND ((0)<>0 And (0)<>0 And (0)<>0)); اشكركم جميعا وجزاكم الله عنا كل خير
  25. اشكرك اختي زهرة على المتابعة سوف اعطيكي مثال نفرض كان الاستهلاك 80 فإن حسابها على الشكل التالي 1____15 استهلاك * 2.5 سعر =37.5 قيمة 2____10*7=70 3____15*15=225 4____20*22=440 5____20*30=600 كمية الكليةللاستهلاك 80 اجمالي القيمة =1372.5 وهذا الرقم الذي اريد حسابه