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

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

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

  • Posts

    1757

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

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

  • Days Won

    24

 نوع المحتوي 

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

  1. ابو ياسين المشولي
    بالتوفيق اخي
  2. ابو ياسين المشولي
    جرب هذا الامر الاول If Not IsNull(Me.text1) Then Me.Frm1.Form!Qty_Total = Me.text1 End If الامر الثاني If Not IsNull(Me.text1) Then Me.Frm1.Form!Qty_Spece = Me.text1 End If
  3. ابو ياسين المشولي
    بالتوفيق اخي حسين
  4. ابو ياسين المشولي
    وهذا تطبيق لما اشرت نسخة اوفيسنا تنسيق التقرير.rar
  5. ابو ياسين المشولي
    الكود واضح اخي هي داله موجوده في المدويل ثم يتم استعها في حدث عند الطباعه Call DrawBoxes(Me, acDetail)
  6. ابو ياسين المشولي
    جرب هذا If Nz(DCount("*", "Data")) > 0 Then MsgBox " الجدول غير فارغ", , "خطأ" End If Data هو اسم الجدول
  7. ابو ياسين المشولي
    بارك الله فيك اخي حربي العنزي
  8. ابو ياسين المشولي
    لتسجبل اي اداه في نظام وتدوز7 عند قئما ابدا اكتب cmd ثم افتحه تشغيل كمسؤل ثم اكتب هذا الامر مع مراعه تحديد المسار regsvr32 "C:\Windows\System32\MSCOMCTL.OCX ثم اضغط انتر
  9. ابو ياسين المشولي
    بالتوفيق
  10. ابو ياسين المشولي
    انا رديت عليك ضع هذا الكود في حدث بدل المكرو DoCmd.GoToRecord , , acNewRec Me.Text10 = Format(Date, "dddd") Me.Text12 = Time() Me.Text14 = Date
  11. ابو ياسين المشولي
    ضع هذا الكود في حدث بدل المكرو DoCmd.GoToRecord , , acNewRec Me.Text10 = Format(Date, "dddd") Me.Text12 = Time() Me.Text14 = Date
  12. ابو ياسين المشولي
    انا حملت لك الكود في حدث عند التحميل تقدر تحطه حيث تشاء نحن هنا نوصل المعلومه كي يستفيد الاخرين Me.Text10 = Format(Me.Text14, "dddd") Me.Text12 = Time() Me.Text14 = Date
  13. ابو ياسين المشولي
    اتفضل اليوموالتأريخ والوقت.accdb
  14. ابو ياسين المشولي
    عدل على ملف ابو محمد بما اشرت اليه اتفضل test age (1).rar
  15. ابو ياسين المشولي
    التغير صار هنا اضفنا abs Else Months = Abs(Months - 1) اتفضل test age (2).rar
  16. ابو ياسين المشولي
    استبدل هذة بسم حقل رقم الفاتورة Format(Now(), "mmmyyyy")
  17. ابو ياسين المشولي
    بارك الله فيك اخي ابو محمد الله يوفق الجميع
  18. ابو ياسين المشولي
    المعذرة اخي ابو محمد لم انتبه لمشاركته test age.rar والاخ ابو محمد اظن كمان هو جاب الحل ولكن سهو منه كتب الشهر مرتين وهذا تعديل للاخ ابو محمد Me.tt = Years Me.rr = Months Me.ff = Days
  19. ابو ياسين المشولي
    من تصميم التقرير اعمل في حقل التاريخ فرز تصاعدي انا بالمبيال ولم استطيع اشوف المرفق
  20. ابو ياسين المشولي
    لايمكن هو شرطه الاي دي والمفترض لا يتشابه الاي دي وهذا هو الصح
  21. ابو ياسين المشولي
    هذا ماتم بالفعل exam 1.accdb
  22. ابو ياسين المشولي
    هذا حسب مافهمت 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]));"
  23. ابو ياسين المشولي
    شوف هذا المحل.rar
  24. ابو ياسين المشولي
    اتفضل 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
  25. ابو ياسين المشولي
    اجعل الربط بدل رقم العميل اجعله رقم المورد
×
×
  • اضف...

Important Information

  I accept