Jump to content

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

05 عضو ذهبي
  • Content Count

    1,308
  • Joined

  • Last visited

  • Days Won

    24

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

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

Community Reputation

745 Excellent

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

  • Birthday 08/05/1982

Profile Information

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

Recent Profile Visitors

1,646 profile views
  1. اخي kaser906 يعلم الله اني مشغول جدا وحاولت معك كي اوصلك لبدايه الطريق وانا عارف انك بتكمل لذلك اعذرني على تاخر الرد لاني بالفعل والله هذه الايام مشغول جدا
  2. اتمنى يكون المطلوب Dim FirstDayInWeek, LastDayInWeek As Variant Dim dtmDate As Date dtmDate = Date FirstDayInWeek = dtmDate - Weekday(dtmDate, vbUseSystem) + 1 Me.weekfir = FirstDayInWeek LastDayInWeek = dtmDate - Weekday(dtmDate, vbUseSystem) + 7 Me.weekend = LastDayInWeek FirstDayInWeek = dtmDate - Weekday(dtmDate, vbUseSystem) - 1 Me.txtV_DATE1 = FirstDayInWeek LastDayInWeek = dtmDate - Weekday(dtmDate, vbUseSystem) - 14 Me.txtV_DATE2 = LastDayInWeek Me.firstdaymonth = DateSerial(Year(firstdaymonth), DatePart("m", Enddaymonth), 1) UMfirestWeekandlastweek.rar
  3. نعم هو نفس الكود ولكن كا ينقصه هذا المتغير Dim StrFileParh As String
  4. الاخ Io Emad انت من يقدر يحدد سعره لانك انت من صنعته بيدك وتقدر تقارنه بسعر ماهو مثله او شبيه له في بلدك وكما قال الاخ ابو خليل ليس سعر العرض كسعر الخاص اذا صممته لجه خاصه بيكون سعره مخصوص ومتفق عليه سابقا ام اذا كان معروض للجميع فسعرة ما يحدده السوق تحياتي
  5. Dim StrFileParh As String 'تحديد مسار الملف StrFileParh = CurrentProject.Path & "\booksindex\" With Me.List1 ' فتح الملف بعد أخذ اسمه من قائمة التحرير والسرد Me.AcroPDF1.Object.LoadFile (StrFileParh & Trim(Str(.Column(0))) & ".PDF") ' الانتقال إلى الصفحة المطلوبة lngPageNo = CLng(Mid(.Column(2), 1, 3)) Me.AcroPDF1.setCurrentPage (lngPageNo) End With
  6. اتمنى يكون حسب طلبك شوف المرفق Dim varFilter As Variant varFilter = Null If Not IsNull(Me.search) Then varFilter = (varFilter + " AND ") & "[اسم الطالب] LIKE '*" & [Forms]![search].[Form]![sub_stu]![اسم الطالب] & "*'" End If With Me.sub_stu.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .FilterOn = False End If .Requery End With varFilter = Null If Not IsNull(Me.search) Then varFilter = (varFilter + " AND ") & "[النتيجة] LIKE '*" & [Forms]![search].[Form]![sub_stu]![النتيجة] & "*'" End If With Me.sub_stu.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .FilterOn = False End If .Requery End With stu.accdb
  7. وهذا حل اخر في امر زر التاكد Dim X X = Nz(DLookup("[KararNom]", "TblKararat", "[KararNom]='" & Me.KararNom & "'"), 0) If Not IsNull(X) = True Then MsgBox "تـنـبـيـه الـرقـم الـمـدخـل " & " ( " & X & " ) " & " هـذا الـرقـم تـم تـسـجـيـلـه مـسـبـقـا ُ جـرب رقـم آخـر سـوف تنـتـقـل الـى الـتـفـاصـيـل", vbInformation, "تـنـبـيـه" Undo DoCmd.OpenForm "TblKa", , , "[KararNom] = '" & Me.KararNom & "'" End If
  8. والله استاذي بالنسبه للجدول انتم لها الاخ salimboub24 ممكن يكون هكذا If i > 17 Or z = "BR3" Or z = "BR44" Or z = "BR5" Then
×
×
  • Create New...