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

Barna

الخبراء
  • Posts

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

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

  • Days Won

    26

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

  1. اخي الكريم .... جرب تصدير البيانات الموجودة في برنامجك من التكست بكس ( الأرقام المختارة للجوالات ) الى ملف تكست المطلوب ؟ ضع لنا مثال مصغر للتعديل عليه ( أفضل من الشفوي ) ؟؟؟
  2. هذه الطريقة غير مجدية ( وجة نظر ) : لأن المستخدم لو دخل الى الجدول وحذف حقل ID يعمل معه البرنامج دون توقف ؟؟؟؟؟؟
  3. جرب هذا ........
  4. نفذ هذا على التقرير ......
  5. انظر المثال المرفق ...
  6. أشكرك أخي @Khalf على اهتمامك بالموضوع ... النماذج عددها 7 نماذج بارك الله فيك
  7. أشكرك أخي محمد .... الكود يعمل ميه ميه .... بارك الله فيك
  8. جزاك الله خيرا على محاولتك وكتب الله أجرك
  9. الاخوة الافاضل ..... السلام عليكم ورحمة الله وبركاته لدي وحدة نمطية لأخفاء اطار الاكسس .... كيف أجله يظهر الأطار بعد اخفاءه ... أي يعمل العكس ... Option Compare Database Global Const SW_HIDE = 0 Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Function fSetAccessWindow(nCmdShow As Long) Dim loX As Long Dim loForm As Form loX = apiShowWindow(hWndAccessApp, nCmdShow) End Function
  10. هل هذا الحل مناسب لعمل برنامجك ....... test30.rar
  11. بارك الله فيك أخي @Shivan Rekany مجهود كبير ...... لكن ماذا بعد الاسبوع هل يمكن تفعيل البرنامج اسبوع اخر .... أو شهر أو .....
  12. هذا ما أفكر به تماما .... وهو تحديد الفترة بعدد معين من الايام ويتوقف البرنامج لطلب تفعيل مرة أخرى.....
  13. أفكار قابلة للتنفيذ : 1-نجعلها كاداة يختار منها المبرمج ما يشاء من حماية أما : -حماية بتحديد فترة زمنية -حماية برقم الهارد والريجيستري -حماية بهما معا ويتم تنفيذ الاوامر على البرنامج المختار أليا دون تدخل من المبرمج ويتم تصدير البرنامج بعد اضافة هذه الاكواد والنماذج في مجلد جديد ...................
  14. هل ممكن أن نحاول نحن في وضع بعض النقاط كعصف ذهني للموضوع
  15. أشكرك أخي على التوضيح .....
  16. ' انظر لموقع عبارة Barna في الاسطر التالية If (IsNull(strDBPassword) = True) Or (strDBPassword = "Barna") Then tdf.Connect = ";DATABASE=" & strNewMDB Else tdf.Connect = ";DATABASE=" & strNewMDB & ";PWD=" & strDBPassword End If tdf.RefreshLink
  17. اخي الفاضل انت واضع السؤال في المنتدى الخطأ .... لان هذا منتدى الاكسس وليس الاكسل . بارك الله فيك
  18. استخدم هذا الكود تحث امر الكود Me.su = DLookup("[sum]", "q1", "num=" & [numm] & "") على افتراض su هو اسم مربع النص المراد اظهار الجمع فيه
  19. اجعله في رأس التقرير وليس رأس الصفحة حتى يظهره مره واحدة في بدابة التقرير ولا يتكرر
  20. لا يوجد برنامج ... حاول أخي احمد ارفاق البرنامج حتى يتم التعديل عليه
×
×
  • اضف...

Important Information