اذهب الي المحتوي
أوفيسنا

Barna

الخبراء
  • Posts

    960
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    24

كل منشورات العضو Barna

  1. مشاركة مع الاستاذ @دروب مبرمج في حدث الحالي للنموذج الفرعي الاول ضع هذا الحدث ...... 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
  2. اخي محمد جرب الكود التالي في حدث تحت الزر .... Dim a As Integer a = Forms![test1]![NumberEnd] Me("LastNumberx" & a) = Forms![test1]![NumberEnd]
  3. لعل هذا ما تريد .... ضع هذا الحدث تحث زر 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
  4. لم افهم عليك ؟؟؟؟؟ عند الضغط على GO يعطي خطأ ... انظر ...
  5. استاذ سعيد لم تساعدنا كي نساعدك لان برنامجك لا نعرف كيف يتم فتح التقرير من اي نموذج ............. فلذلك لم تجد اجابة .... لاننا لم نستخدم برنامجك ولم نعرف الية عمله ... المفروض تشرح لنا من اي النماذج ندخل حتى نصل الى التقرير المطلوب
  6. اذا كان فهمي صحيح انظر الصورة =DMax("[NumberX]";"[SUBX]";"[id] ="& [Forms]![test1]![id1] &"")
  7. هل اخي محمد برنامج الواتس مثبت لديك ....... اذا كانت الاجابة نعم ..... جرب هذا التحايل !!!! Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "whatsapp://send?phone=" & "&text=" ملاحظة انتظر عدة ثواني لعمل البرنامج .................... اخي محمد حاول فهم الية عمل الكود لأن الشركة تقوم بتحديث برنامجها باستمرار .... فلذلك فهم الية عمل الكود يسهل عليك تعديل الكود كل ما احتجت اليه ....
  8. في النموذج وفي حدث بعد التحديث لمربع النص الخاص بالرقم ضع هذا الكود If [Forms]![نمودج1]![الرقم] <= [Forms]![نمودج1]![نص12] Then Me.الرقم = "" MsgBox "الرقم مكرر" End If
  9. اخي الكريم ابحث في المنتدى تجد العديد من هذه الافكار مثل هذه
  10. هل انت تسخدم مفتاح الادخال ( Enter ) للانتقال ..... اذا كانت الاجابة نعم ..... جرب المرفق ....... تحديث المجاميع.rar
  11. كل من استفيد منه فيعتبر استاذي وتاج رأسي ايضا .... بارك الله في تواضعك اخي الكريم
  12. مشاركة مه استاذي الكريم @Eng.Qassim استخدم في حدث بعد التحديث هذا .... Me.Recalc
  13. طبق الموجود في الصورة ...........
  14. كان المفترض ان تملاء الجدول ببيانات تعطى سالب حتى نرى النتيجة..................
  15. ووجهك ابيض اخي الكريم انظر الصورة وغير اسم الورقة حسب ما تريد 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
  16. جرب هذا ................. Dim ExcelObj As Excel.Application Set ExcelObj = CreateObject("Excel.Application") ExcelObj.Workbooks.Open "C:\file1.xlsx" ExcelObj.Sheets.PrintOut ExcelObj.Quit Set ExcelObj = Nothing
  17. فكرة ::::::: ممكن تعمل حقل شيك ... هذا الحقل عند الاعتماد يتعلم بعلامة صح ... وفي نفس الوقت في النموذج تعمل كود تاكد بحيث ان السجلات المؤشر عليها بعلامة صح يجعلها غير قابل للتعديل او غير ممكن او مؤمن .. جرب طبقها واعلمنا ...............
  18. شوف كده الهدية القيمة من استاذي الفاضل @Moosak مفيدة وتختصر لك الجهد
  19. وعليكم السلام من اعدادات القرير .... تابع الصور ....
  20. وعليكم السلام ورحمة الله وبركاته هناك العديد من طرق اعطاء الصلاحيات في المنتدى هل بحث عنها استاذي الفاضل ؟؟
  21. بعد اذنك استاذي الغالي @kanory يمكن اختصار العدد الكبير من هذه الاكواد بهذه الصورة ...... Database1.mdb
  22. ماشاء الله تبارك الله ... تستاهل @Ahmed_J الف مبروك
×
×
  • اضف...

Important Information