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

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

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

  • Posts

    1,752

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

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

  • Days Won

    24

 نوع المحتوي 

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

  1. ابو ياسين المشولي
    جرب هذا If Nz(DCount("*", "Data")) > 0 Then MsgBox " الجدول غير فارغ", , "خطأ" End If Data هو اسم الجدول
  2. ابو ياسين المشولي
    بارك الله فيك اخي حربي العنزي
  3. ابو ياسين المشولي
    لتسجبل اي اداه في نظام وتدوز7 عند قئما ابدا اكتب cmd ثم افتحه تشغيل كمسؤل ثم اكتب هذا الامر مع مراعه تحديد المسار regsvr32 "C:\Windows\System32\MSCOMCTL.OCX ثم اضغط انتر
  4. ابو ياسين المشولي
    بالتوفيق
  5. ابو ياسين المشولي
    انا رديت عليك ضع هذا الكود في حدث بدل المكرو DoCmd.GoToRecord , , acNewRec Me.Text10 = Format(Date, "dddd") Me.Text12 = Time() Me.Text14 = Date
  6. ابو ياسين المشولي
    ضع هذا الكود في حدث بدل المكرو DoCmd.GoToRecord , , acNewRec Me.Text10 = Format(Date, "dddd") Me.Text12 = Time() Me.Text14 = Date
  7. ابو ياسين المشولي
    انا حملت لك الكود في حدث عند التحميل تقدر تحطه حيث تشاء نحن هنا نوصل المعلومه كي يستفيد الاخرين Me.Text10 = Format(Me.Text14, "dddd") Me.Text12 = Time() Me.Text14 = Date
  8. ابو ياسين المشولي
    اتفضل اليوموالتأريخ والوقت.accdb
  9. ابو ياسين المشولي
    عدل على ملف ابو محمد بما اشرت اليه اتفضل test age (1).rar
  10. ابو ياسين المشولي
    التغير صار هنا اضفنا abs Else Months = Abs(Months - 1) اتفضل test age (2).rar
  11. ابو ياسين المشولي
    استبدل هذة بسم حقل رقم الفاتورة Format(Now(), "mmmyyyy")
  12. ابو ياسين المشولي
    بارك الله فيك اخي ابو محمد الله يوفق الجميع
  13. ابو ياسين المشولي
    المعذرة اخي ابو محمد لم انتبه لمشاركته test age.rar والاخ ابو محمد اظن كمان هو جاب الحل ولكن سهو منه كتب الشهر مرتين وهذا تعديل للاخ ابو محمد Me.tt = Years Me.rr = Months Me.ff = Days
  14. ابو ياسين المشولي
    من تصميم التقرير اعمل في حقل التاريخ فرز تصاعدي انا بالمبيال ولم استطيع اشوف المرفق
  15. ابو ياسين المشولي
    لايمكن هو شرطه الاي دي والمفترض لا يتشابه الاي دي وهذا هو الصح
  16. ابو ياسين المشولي
    هذا ماتم بالفعل exam 1.accdb
  17. ابو ياسين المشولي
    هذا حسب مافهمت DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _ "SELECT Students.ID, [Forms]![Form]![Text2] AS Expr1, Students.tel, Students.Degree, Students.class " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text1]) AND (([Forms]![Form]![Text2])=[Forms]![Form]![Text2]));"
  18. ابو ياسين المشولي
    شوف هذا المحل.rar
  19. ابو ياسين المشولي
    اتفضل DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _ "SELECT Students.ID, [Forms]![Form]![Text2], Students.tel, Students.Degree, Students.class " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text1])) ;" DoCmd.SetWarnings True
  20. ابو ياسين المشولي
    اجعل الربط بدل رقم العميل اجعله رقم المورد
  21. ابو ياسين المشولي
    في حدث عند التحميل DoCmd.Rename "الاصناف", acTable, "colors" وفي حدث عند الاغلاق DoCmd.Rename "colors", acTable, "الاصناف" ويطبق على بقيه الجداول
  22. ابو ياسين المشولي
    انت تحدد ما تشاء نحن اعطينا طريقه الشرط وانت ابحر كما تشاء
  23. ابو ياسين المشولي
    اتفضل الاوائل.accdb
  24. ابو ياسين المشولي
    جرب هذا IIf([المجموع]>=0 And [المجموع]<40;"الخامس";IIf([المجموع]>=40 And [المجموع]<45;"الرابع";IIf([المجموع]>=45 And [المجموع]<40;"الثالث";IIf([المجموع]>=40 And [المجموع]<35;"الثاني";IIf([المجموع]>=49.5 And [المجموع]<=50;"الاول";"خطاء")))))
  25. ابو ياسين المشولي
    اتمنلى من لديه خلفيه يفيدني بهذا http://www.mediafire.com/file/optfoyqi5uomoww/sendingapi_2.pdf/file
×
×
  • اضف...

Important Information

  I accept