AlwaZeeR

تفضل استخدم الكود أيضا في حدث الحالي If Me.Field1.Value = -1 Then Me.[الوزن النسبي].Locked = True Else Me.[الوزن النسبي].Locked = False End If 1212121212.accdb

وعليكم السلام ورحمة الله وبركاته تفضل فقط عدل امر المعاينة بما يلي DoCmd.OpenReport stDocName, acPreview, , "[numberp]=" & List2.Column(1) اسم في قائمة.mdb

وعليكم السلام ورحمة الله وبركاته ضع هذا الكود تحت امر تحديث في النموذج لديك Dim rst As Recordset Set rst = Me.RecordsetClone With rst .MoveLast .MoveFirst Do Until .EOF Me.Bookmark = .Bookmark Me.Refresh Me.End = Text1 .MoveNext Loop .MoveFirst Me.Bookmark = .Bookmark End With Khalaf2018.rar

وعليكم السلام ورحمة الله وبركاته ضع هذا الكود تحت امر تحديث في النموذج لديك Dim rst As Recordset Set rst = Me.RecordsetClone With rst .MoveLast .MoveFirst Do Until .EOF Me.Bookmark = .Bookmark Me.Refresh Me.End = Text1 .MoveNext Loop .MoveFirst Me.Bookmark = .Bookmark End With

قم بالغاء عداد الوقت للساعة في شاشة Home

استخدم التنسيق الشرطي لحقل اسم المريض [دخول المريض]=صواب New Microsoft Access Database-waz.accdb

وعليكم السلام ورحمة الله وبركاته استبدل الكود لديك بهذا Dim strReportName As String Dim strCriteria As String If NewRecord Then MsgBox "الرجاء ادراج صوره جديده" _ , vbInformation, "Invalid Action" Exit Sub Else strReportName = "rptImage" strCriteria = "[musal]= '" & Me![musal] & "'" DoCmd.OpenReport strReportName, acViewPreview, , strCriteria End If

السلام عليكم ورحمة الله وبركاته اخي العزيز هناك نهاية للاشتراك وبناء على طلبك تحتاج الى استعلامين واحد للمشتركين الذين انتهت مدة اشتراكهم وواحد لاشتراكاتهم الآن طبعا لا حاجة لاظهار السنة والشهر ووو ضع المعادلة التالية في الاستعلامين Greater3Years: IIf(DateAdd("yyyy",3,[DateEshtrakend])>Date(),True,False) في المعيار الخاص بحقل المعادلة السابقة ضع false او صفر ،،، نفس النتيجة قم بالمعاينة وسوف ينتج البيانات التي تجاوزت الثلاث سنوات ان كانت النتائج صحيحة اخبرني لننتقل الى ادراج البيانات في الجداول الجديدة :: تحياتي

ضعه في حدث النموذج الحالي Private Sub Form_Current()

عزيزي في الاستعلام المصدر الخاص بالمبيعات او المشتريات لديك حسب متطلبات برنامجك هذه معادلة لتحويل الطن الى كيلوات

بما ان الطن الواحد يساوي الف كيلو قم بتحويل الكمية من الطن الى الكيلوات m(kg) = m(t) × 1000 ثم اعمل معادلة لانقاص المباع بالكيلوات من الكمية المحولة

تفضل Dim strFrm1 As String, strFrm2 As String strFrm1 = "Cus_Sub" strFrm2 = "Y2017" Sub_Manth_Casher_V = Forms(strFrm1)(strFrm2)(Boxname) & "_Casher" DoCmd.RunSQL "INSERT INTO Test ( Test ) SELECT Sub_Manth_Casher() AS Expr1 ;" waztest.rar

قم بتغييرها الى مربع نص ثم اجعل محاذاة مربع النص في المنتصف ثم قم بتغيير مربع النص الى لست بوكس

تفضل =Sum([الاهلاك]*CCur(Nz(Nz([يوم],0)+Nz([ساعات العمل],0)+Nz([كيلومتر],0)))) التكلفة.rar

وعليكم السلام ورحمة الله وبركاته هناك اكثر من طريقة تفضل: Rs1: IIf([nm] Mod 6,([nm]\6+1)*6,([nm]\6)*6) Rs2: (([nm]+5)\6)*6 ضعها في الاستعلام مع تغيير nm الى اسم الحقل الخاص بك

اخي العزيز ابو احمد chr(13) Chr(10) نقل ما بعدها الى سطر جديد ابحث في المنتدى وسوف تجد شروحات كثيرة بهذا الخصوص بخصوص تقريرك: لماذا تضع حقل الرقم No ضمن الرسالة ؟؟ 2w.rar

حياك الله عزيزي لان حقل التجميع فيه بيانات في هذه الحالة يجب عمل حقل تجميع فارغ من اي بيانات تفضل إظهار رؤس عمودين في تقرير واحد أكسس.rar

قم باضافة حقل تجميع واجعل تكرار المقطع نعم إظهار رؤس عمودين في تقرير واحد أكسس.rar

لماذا النتيجة 18 وليست 21؟

وعليكم السلام ورحمة الله وبركاته حسب ما فهمت اخي ابو خليل dbCountDays.rar

ضع هذا الكود تحت امر معاينة مع تغيير ما يلزم Dim InviceFiltR As String InviceFiltR = "[Issuance ID] ='" & Me.[Issuance ID] & "'" DoCmd.OpenReport "YrRep", acPreview, , InviceFiltR ولا حاجة للفلتر في الاستعلام

هل تقصد الجمع بمعيار اخر تاريخ مدخل؟ يرجى التوضيح

تفضل A2.rar

ما نوع الحقل؟ Issuance ID هل هو رقم ام نص؟؟؟

استخدم هذا الكود تحت أمر التراجع If Me.Dirty Then Me.Undo