Barna

جرب هذا ............... 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

جرب هذا ................. Dim ExcelObj As Excel.Application Set ExcelObj = CreateObject("Excel.Application") ExcelObj.Workbooks.Open "C:\file1.xlsx" ExcelObj.Sheets.PrintOut ExcelObj.Quit Set ExcelObj = Nothing

فكرة ::::::: ممكن تعمل حقل شيك ... هذا الحقل عند الاعتماد يتعلم بعلامة صح ... وفي نفس الوقت في النموذج تعمل كود تاكد بحيث ان السجلات المؤشر عليها بعلامة صح يجعلها غير قابل للتعديل او غير ممكن او مؤمن .. جرب طبقها واعلمنا ...............

شوف كده الهدية القيمة من استاذي الفاضل @Moosak مفيدة وتختصر لك الجهد

وعليكم السلام من اعدادات القرير .... تابع الصور ....

وعليكم السلام ورحمة الله وبركاته هناك العديد من طرق اعطاء الصلاحيات في المنتدى هل بحث عنها استاذي الفاضل ؟؟