اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Barna

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    1081

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

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

  • Days Won

    26

 نوع المحتوي 

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

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

Important Information

  I accept