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

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

05 عضو ذهبي
  • Content Count

    1,263
  • تاريخ الانضمام

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

  • Days Won

    24

ابو ياسين المشولي last won the day on January 28

ابو ياسين المشولي had the most liked content!

السمعه بالموقع

725 Excellent

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

  • تاريخ الميلاد 05 أغس, 1982

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    طالب علم
  • الإهتمامات
    https://www.officena.net/ib/profile/79342-%D8%A7%D

اخر الزوار

1,523 زياره للملف الشخصي
  1. اسال الله العظيم رب العرش العظيم ان يشفيك شفاءا لا يغادر سقما وان يتمم عمليتك الجراحية على خير وان يردك الى اهلك سالما معافا باذن الله وان يبلغك رمضان اعواما عديدة وان يجعل كل مساعدتك لاخوانك بالمنتدى فى ميزان حسناتك والله ولى ذلك والقادر عليه
  2. بالتوفيق اخي محمد التميمي ولكن هذا يطبع جميع الفواتير
  3. اتفضل Dim RepName As String Dim stDocName As String RepName = Me![رقم الفاتورة] stLinkCriteria = "[رقم الفاتورة]=" & Me![رقم الفاتورة] stDocName = "وصل بيع" DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, CurrentProject.Path & "\" & RepName & ".PDF", False DoCmd.Close acReport, "وصل بيع"
  4. طيب اخي محمد شوف الحقل اللي تسجل فيه رقم الفاتورة العشوائي بدل مي فاتورة او ارفع ملف مختصر
  5. اهلا بك اخي m_fouad0003 في المنتدى اتفضل Dim RepName As String RepName = Me![ ضع هنا رقم الفاتورة] DoCmd.OutputTo acOutputReport, "اسم التقرير ضعه هنا", acFormatPDF, CurrentProject.path & "\" & RepName & ".PDF", False
  6. بارك الله فيك وجعله في ميزان حسناتك
  7. Select Case Me!إطار102 Case 1 1 Case 2 2 Case 3 3 Case 4 4 Case Else End Select Me.Repaint If DCount("*", "الزبائن", "[customer]='" & Me.txtName & "'") > 0 And Me!إطار102 = False Then MsgBox "هذا الاسم موجود بالفعل", vbCritical, "التكرار ممنوع" Me.Undo Cancel = True End If شكلك مستعجل شوف هل هذا طلبك تقييم.accdb
×
×
  • اضف...