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

Barna

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

  • Posts

    1076

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

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

  • Days Won

    24

 نوع المحتوي 

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

  1. Barna
    أشكرك أخي @Khalf على اهتمامك بالموضوع ... النماذج عددها 7 نماذج بارك الله فيك
  2. Barna
    أشكرك أخي محمد .... الكود يعمل ميه ميه .... بارك الله فيك
  3. Barna
    up
  4. Barna
    جزاك الله خيرا على محاولتك وكتب الله أجرك
  5. Barna
    الاخوة الافاضل ..... السلام عليكم ورحمة الله وبركاته لدي وحدة نمطية لأخفاء اطار الاكسس .... كيف أجله يظهر الأطار بعد اخفاءه ... أي يعمل العكس ... 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
  6. Barna
    هل هذا الحل مناسب لعمل برنامجك ....... test30.rar
  7. Barna
    بارك الله فيك أخي @Shivan Rekany مجهود كبير ...... لكن ماذا بعد الاسبوع هل يمكن تفعيل البرنامج اسبوع اخر .... أو شهر أو .....
  8. Barna
    هذا ما أفكر به تماما .... وهو تحديد الفترة بعدد معين من الايام ويتوقف البرنامج لطلب تفعيل مرة أخرى.....
  9. Barna
  10. Barna
  11. Barna
    أفكار قابلة للتنفيذ : 1-نجعلها كاداة يختار منها المبرمج ما يشاء من حماية أما : -حماية بتحديد فترة زمنية -حماية برقم الهارد والريجيستري -حماية بهما معا ويتم تنفيذ الاوامر على البرنامج المختار أليا دون تدخل من المبرمج ويتم تصدير البرنامج بعد اضافة هذه الاكواد والنماذج في مجلد جديد ...................
  12. Barna
    هذا ما قصدته بالفعل
  13. Barna
    هل ممكن أن نحاول نحن في وضع بعض النقاط كعصف ذهني للموضوع
  14. Barna
    أشكرك أخي على التوضيح .....
  15. Barna
    ' انظر لموقع عبارة Barna في الاسطر التالية If (IsNull(strDBPassword) = True) Or (strDBPassword = "Barna") Then tdf.Connect = ";DATABASE=" & strNewMDB Else tdf.Connect = ";DATABASE=" & strNewMDB & ";PWD=" & strDBPassword End If tdf.RefreshLink
  16. Barna
    اخي الفاضل انت واضع السؤال في المنتدى الخطأ .... لان هذا منتدى الاكسس وليس الاكسل . بارك الله فيك
  17. Barna
    استخدم هذا الكود تحث امر الكود Me.su = DLookup("[sum]", "q1", "num=" & [numm] & "") على افتراض su هو اسم مربع النص المراد اظهار الجمع فيه
  18. Barna
  19. Barna
    اجعله في رأس التقرير وليس رأس الصفحة حتى يظهره مره واحدة في بدابة التقرير ولا يتكرر
  20. Barna
    لا يوجد برنامج ... حاول أخي احمد ارفاق البرنامج حتى يتم التعديل عليه
  21. Barna
    بارك الله فيك أخي @kanory هذا هو المطلوب
  22. Barna
    جزاك الله خيرا واحسن اليك.... هو المطلوب
  23. Barna
    اشكرك أخي الفاضل ولكن عند استخدام ملف ذاي صيغة مثل accdb تختلف الامور ...
  24. Barna
    السلام عليكم ورحمة الله وبركاته اسعد الله مساءكم جميعا ....... لدي قاعدة بيانات ..... يظهر فيها المسار الكامل للملف المختار ... أريد أن يستخرج اسم الملف بدون امتداد الملف في مربع النص path3 barna_1.accdb
  25. Barna
    حاول حذف النموذج الفرعي الموجود في النموذج ثم جرب ...
×
×
  • اضف...

Important Information

  I accept