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

نجوم المشاركات

  1. ابو عارف

    ابو عارف

    الخبراء


    • نقاط

      1

    • Posts

      484


  2. ابو زين

    ابو زين

    03 عضو مميز


    • نقاط

      1

    • Posts

      110


  3. محمد أبوعبدالله

    • نقاط

      1

    • Posts

      1,998


  4. قرطاسية الشيوخ

    قرطاسية الشيوخ

    عضو جديد 01


    • نقاط

      1

    • Posts

      17


Popular Content

Showing content with the highest reputation on 27 ديس, 2018 in all areas

  1. مميزات الفورم السحرى 1-الفورم يستكشف جميع الجداول المصممة فى اى ملف اكسل 2- التعامل مع تلك الجداول من حذف واضافة وبحث وترحيل 4- ضبط عرض أعمدة اليست بوكس من خلال ضبط أعمدة الجدول 3- الفورم يكتشف المعادلات ويحميها تلقائيا 5- الفورم السحرى يكتشف اعمدة التواريخ تلقائيا 6- الفورم يقبل تدعيم الجداول بالصور تلقائيا 7- الفورم يحدد اوتوماتيكيا المكان الجغرافى للجداول داخل ملف الاكسل وهناك كثير للميزات ستكتشفها بنفسك عند العمل على الفورم السحرى هذا شرح مصور الاخ الرائع عماد الغازي بالمناسبة أشكره من كل قلبي على هذا الشرح جزاه الله خيرا الفورم_السحرى.rar
    1 point
  2. برنامج بيع بالاكسيل vba مجاني اسم المستخدم :مدير الرقم السري:5555 برنامج الافق __.rar
    1 point
  3. و عليكم السلام تفضل اليك التعديل Random.accdb
    1 point
  4. بعد اذن اخي محمد ابو عبد الله في المربع في الصورة ضع المسار التالي .\iconName.ico على ان تكون الصورة موجودة جانب قاعدة البيانات بحيث ان iconName هو اسم الايقونة
    1 point
  5. ضع الكود التالي في وحدة نمطية Function AddAppProperty(strName As String, _ varType As Variant, varValue As Variant) As Integer Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo AddProp_Err dbs.Properties(strName) = varValue AddAppProperty = True AddProp_Bye: Exit Function AddProp_Err: If Err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strName, varType, varValue) dbs.Properties.Append prp Resume Else AddAppProperty = False Resume AddProp_Bye End If End Function Function Xicon() Dim intX As Integer Const DB_Text As Long = 10 ' AppTitle intX = AddAppProperty("AppTitle", DB_Text, "عنوان البرنامج") ' AppIcon intX = AddAppProperty("AppIcon", DB_Text, CurrentProject.Path & "\N.ico") CurrentDb.Properties("UseAppIconForFrmRpt") = 1 End Function ثم استدعي الدالة في النموذج الرئيسي للبرنامج Private Sub Form_Load() Call Xicon End Sub او عن طريق ماكرو والافضل تسميته autoexec ليبدأ مع عمل البرنامج RunCode ثم اسم الدالة Xicon() تحياتي
    1 point
  6. يمكنك دمج الكود بإنشاء ماكرو جديد وتكتب فيه اسم الماكرو الأول ثم اضغط انتر واكتب اسم الماكرو الثاني هكذا: Sub a() kh_Start code End Sub وإليك الملف المرفق amine.xls
    1 point
  7. 1 point
  8. القي نظرتا اليه تقرير فرعى.accdb
    1 point
  9. السلام عليكم ورحمة الله تفضل أخي الملف وفيه الحل مع بعض الشرح للتعديلات التي أُجريت... بن علية حاجي شيت كنترول.rar
    1 point
  10. مساهمه منى لاثراء الموضوع طبعا الملفات ليست لى فبارك الله فى اصحابها وجزاهم الله كل خير اول ملف ده شرح لاخفاء وحماية المعادلات والتانى كود لحماية الخلايا التى بها معادلات فقط دون اخفائها ولكن لا يستطيع العبث بها بالتوفيق اخوانى Hemayaحماية معادلات الاكسيل من الضياع بدون قصد مع جعل بعض الخلايا قابلة للتعديل والكتابة في نفس الشيت.rar كود يقوم بالحماية التلقائية للخلايا التى بها معادلات دون تدخل من المستخدم.rar
    1 point
×
×
  • اضف...

Important Information