Barna

لاحظ الاجمالي في الحالتين ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

طيب زودنا بالاتي حتى نحاول مساعدتك :::: تقريرك في الاكسس ليس فيه مجموع ... اكمل المجموع .... الشيئ الثاني اعطينا النسب المطلوبة ( اقصد متى يكون السهم احمر ومتى يكون اخضر ومتى يكون اصفر ... بارك الله فيك

غير التسمية التوضيحية للزر الى تحديد الكل بدلا من تغيير ثم استخدم هذا الكود ...... Select Case Me.chng.Caption Case Is = "تحديد الكل" CurrentDb.Execute "update tabl set prentss = True" Me.Refresh Me.chng.Caption = "الغاء الكل" Case Else CurrentDb.Execute "update tabl set prentss = False" Me.Refresh Me.chng.Caption = "تحديد الكل" End Select

طيب جرب هذا <|<><><><><><|> Dim rst As DAO.Recordset Set dbs = CurrentDb date_custom = Date If Len(Me.number_custom & "") <> 0 Then Exit Sub Me.number_custom = Nz(DMax("[number_custom]", "tbl_custom", "year([date_custom])=" & Year(date_custom)), 0) + 1 Set rst = dbs.OpenRecordset("FrmRretsQ") d = Me.number_custom DoCmd.RunCommand acCmdSaveRecord Do Until rst.EOF rst.Edit rst!number_custom = d rst!date_custom = Date rst!emp_company = DYear rst.Update d = d + 1 rst.MoveNext Loop Me.Requery

جرب هذا ............... If [Text16].Text Like "*Over*" Or [Text16].Text Like "*>*" Or [Text16].Text Like "*Positive*" Then [Text18] = "HIGH" ElseIf [Text16].Text Like "*LESS THAN*" Or [Text16].Text Like "*<*" Or [Text16].Text Like "*Negative*" Then [Text18] = "LOW" End If

اعتقد عندك مشكلة في العلاقات .... حاول ترتجعها .... على العموم هل هذا ما تريد ..... solaf2.accdb

هل هذا ما تريد .؟؟؟؟؟

مشاركة مع الاستاذ @دروب مبرمج في حدث الحالي للنموذج الفرعي الاول ضع هذا الحدث ...... Dim rs As DAO.Recordset On Error Resume Next Set rs = Me.RecordsetClone rs.FindFirst "[ItemNumber] = " & Me![ItemNumber] Me.Parent.FrmSubInvoice.Form.Bookmark = rs.Bookmark

اخي محمد جرب الكود التالي في حدث تحت الزر .... Dim a As Integer a = Forms![test1]![NumberEnd] Me("LastNumberx" & a) = Forms![test1]![NumberEnd]

لعل هذا ما تريد .... ضع هذا الحدث تحث زر GO واخبرنا ..... لأني لم افهم طريقتك في العمل .... Dim rs As Object Set rs = Forms![test1]![SUBX].Form.RecordsetClone rs.MoveLast Forms![test1]![SUBX].Form.Bookmark = rs.Bookmark Forms![test1]![LastNumberx] = Forms![test1]![SUBX].[Form]![NumberX] rs.Close DoCmd.Close

لم افهم عليك ؟؟؟؟؟ عند الضغط على GO يعطي خطأ ... انظر ...

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

اذا كان فهمي صحيح انظر الصورة =DMax("[NumberX]";"[SUBX]";"[id] ="& [Forms]![test1]![id1] &"")

هل اخي محمد برنامج الواتس مثبت لديك ....... اذا كانت الاجابة نعم ..... جرب هذا التحايل !!!! Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "whatsapp://send?phone=" & "&text=" ملاحظة انتظر عدة ثواني لعمل البرنامج .................... اخي محمد حاول فهم الية عمل الكود لأن الشركة تقوم بتحديث برنامجها باستمرار .... فلذلك فهم الية عمل الكود يسهل عليك تعديل الكود كل ما احتجت اليه ....

في النموذج وفي حدث بعد التحديث لمربع النص الخاص بالرقم ضع هذا الكود If [Forms]![نمودج1]![الرقم] <= [Forms]![نمودج1]![نص12] Then Me.الرقم = "" MsgBox "الرقم مكرر" End If

هل هناك مانع من ارفاق مثال مبسط به التقرير

اخي الكريم ابحث في المنتدى تجد العديد من هذه الافكار مثل هذه

طبع ما في الصورة ...............

هل انت تسخدم مفتاح الادخال ( Enter ) للانتقال ..... اذا كانت الاجابة نعم ..... جرب المرفق ....... تحديث المجاميع.rar

كل من استفيد منه فيعتبر استاذي وتاج رأسي ايضا .... بارك الله في تواضعك اخي الكريم

مشاركة مه استاذي الكريم @Eng.Qassim استخدم في حدث بعد التحديث هذا .... Me.Recalc

طبق الموجود في الصورة ...........

كان المفترض ان تملاء الجدول ببيانات تعطى سالب حتى نرى النتيجة..................

ووجهك ابيض اخي الكريم انظر الصورة وغير اسم الورقة حسب ما تريد Dim ExcelObj As Excel.Application Set ExcelObj = CreateObject("Excel.Application") ExcelObj.Workbooks.Open "C:\file1.xlsx" ExcelObj.Sheets("ورقة1").PrintOut ExcelObj.Quit Set ExcelObj = Nothing