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

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

وهذه طريقه اخرى 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) & "'")

لوبحثت عن الكود لوجدته بنفس النموذج Sub SendGMail() Dim Msg As String On Error GoTo ErrHandler: ' Object creation Set objmsg = CreateObject("CDO.Message") Set msgConf = CreateObject("CDO.Configuration") ' Server Configuration msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = [mail] msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = [Texte6] msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 msgConf.Fields.Update ' Email objmsg.To = [Texte1] objmsg.From = [mail] objmsg.Subject = [Texte3] objmsg.HTMLBody = [Texte4] objmsg.Sender = [mail] objmsg.AddAttachment [Texte5] Set objmsg.Configuration = msgConf ' Send objmsg.Send ' Clear Set objmsg = Nothing Set msgConf = Nothing Exit Sub ErrHandler: If Err.Number = -2147220975 Then MsgBox "تأكد من البريد الالكتروني و كلمة المرور الخاصه بك", vbCritical + vbOKOnly + vbMsgBoxRight, "خطأ في الارسال" Else If Err.Number = -2147220973 Then MsgBox "تأكد من الإتصال بالإنترنت", vbCritical + vbOKOnly + vbMsgBoxRight, "خطأ في الاتصال" Else If Err.Number = -2147220980 Or Err.Number = -2147220977 Then ErrList.AddItem Texte1, ErrList.ListCount ErrList.Requery Resume Next Else If Err.Number <> 0 Then MsgBox Err.Description & vbNewLine & Err.Number, vbCritical + vbOKOnly + vbMsgBoxRight, "رسالة خطأ" Resume Next End If End If End If End If End Sub

بارك الله فيك اخي عربي