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

الاخ Io Emad انت من يقدر يحدد سعره لانك انت من صنعته بيدك وتقدر تقارنه بسعر ماهو مثله او شبيه له في بلدك وكما قال الاخ ابو خليل ليس سعر العرض كسعر الخاص اذا صممته لجه خاصه بيكون سعره مخصوص ومتفق عليه سابقا ام اذا كان معروض للجميع فسعرة ما يحدده السوق تحياتي

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

الله يسلمك اخي عبد اللطيف سلوم انت الرائع

وهذه طريقه اخرى pass_code (1).accdb

اتمنى يكون حسب طلبك شوف المرفق 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

راجه هذا الرابط

وهذا حل اخر في امر زر التاكد 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

اظن يوضع هذا الكود قبل التحديث

والله استاذي بالنسبه للجدول انتم لها الاخ salimboub24 ممكن يكون هكذا If i > 17 Or z = "BR3" Or z = "BR44" Or z = "BR5" Then

اجابه في الصميم استاذي ابو خليل بارك الله فيك

بصراحه لم افهم شي من ملفك انا ولكن شوف المرفق للعله يصيب او يخيب ttt1 (2).rar

جرب هذا المعيار Between DateSerial(Year(Date());Month(Date());1) And DateSerial(Year(Date());Month(Date())+1;0)

نرجو اختيار عنوان مناسب شوف المرفق Filter.rar

شوف هذا test.accdb

انت تكلمت عن التقرير والجواب بيكون مصدر عنصر التحكم فى التقرير شوف المرفق اسم التقرير.mdb

جرب هذا #If VBA7 Then Public Function aDialogColor(ByVal hwnd As Long) As Long Dim x As Long, CS As COLORSTRUC, CustColor(16) As Long #ElseIf Win64 Then Public Function aDialogColor(ByVal hwnd As Long) As LongPtr Dim x As Long, CS As COLORSTRUC, CustColor(16) As LongPtr CS.lStructSize = Len(CS) If hwnd <> 0 Then CS.hwnd = hwnd Else CS.hwnd = Application.hWndAccessApp End If CS.flags = CC_SOLIDCOLOR CS.lpCustColors = String$(16 * 4, 1) x = ChooseColor(CS) If x = 0 Then ' ERROR - use Default White 'prop = RGB(255, 255, 255) ' White aDialogColor = "112112125" 'False Exit Function Else ' Normal processing aDialogColor = CS.rgbResult End If #End If End Function

اجعل مصدر عنصر التحكم =[Forms]![Report]![cmd_edara].[Column](1)

لا يوجد اي خطاء عندي اتاكد من المكتبات الغي اي مكتبه فيها خطاء

اتفضل اتمنى يكون المطلوب ProgV7.rar

احذف محتوايات الجدول واعمل ضغط واصلاح ويبدا الترقيم التلقائي

في حدث Me.shaher = Format(Date, "mmmm") Me.zeara_date = Date Me.day_name = Format(Date, "dddd")

العفو اختي ام ناصر وبارك الله فيك

اتفضل Me.tel = Me.edara.Column(1) Me.shaher = Me.edara.Column(2) Me.shaher = Format([shaher], "mmmm") وهذا السنه واسم الشهر وتاريخ اليوم Me.shaher = Format([shaher], "yyyy/mmmm/dd")

في الاستعلامه عند قيمه NValue اعمل فرز تصاعدي

اذا كان نص بيكون هكذا Set rs2 = CurrentDb.OpenRecordset("select * from skills where id='" & rs1(0) & "'")