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

AlwaZeeR

الخبراء
  • Content Count

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

  • Days Won

    17

AlwaZeeR last won the day on يوليو 11

AlwaZeeR had the most liked content!

السمعه بالموقع

642 Excellent

عن العضو AlwaZeeR

  • الإسم الفعلي
    Abu Elkaram
  • تاريخ الميلاد 22 أغس, 1970

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    School secretary
  • بلد الإقامة
    Palestain-Hebron
  • الإهتمامات
    Everything Good 4 Others

اخر الزوار

1,481 زياره للملف الشخصي
  1. عزيزي القاضي قم بتشغيل الاكسس كاملا كمسؤول ثم قم بالضغط على ملف فتح واختر الاداة هكذا تعمل وليس هي نفسها التشغيل كمسؤول
  2. البرنامج يعمل مقارنة بالرقم المدخل من قبلك مع ما تم انزاله من ملف التكست في الصورة التي ارفقتها لم يتم انزال الرقم لانك استخدمت رابط جوجل درايف ارفع الملف الخاص بك على دروب بوكس وطبق ما جاء في رابط اخي صالح وسوف ترى انه تم الاغلاق في حال لم تتشابه القيم
  3. رائع اخي صالح دائما مبدع جعله الله في ميزان حسناتك تحياتي لشخصك الكريم الطيب ملف التكست يجب ان يحفظ بترميز UTF-8 وليس ANSI اضف الى ذلك ان الرابط على الجوجل درايف ولا اعلم ان كان يدعم التحميل المباشر مثل الدروب بوكس ام لا
  4. حبيبي أبا جودي بما ان الاسطر تضاف برمجيا فيجب إبقاء بعض هامش الصفحة من الأسفل عند المعاينة تظهر الورقة طبيعية لكن عند الطباعة يتجاوز حجم الورقة فيعطي صفحات متعددة ولا يتم طباعة البيانات انظر المرفق اطبع ووافني بالنتيجة Consumable Material Check List (30).rar
  5. لانك عامل إيقاف لاهم شيء في الكود يعتمد على كم سطر تريد اظهار في الصفحة Consumable Material Check List waz (1).accdb
  6. اتعرف ما يزيد العمل جمالا اخي العزيز جعفر وجودك هو ما يزين أي مشاركة في هذا الصرح الرائع تحياتي لشخصك الكريم
  7. تفضل أيها العبد الفقير المسكين الطيب ليس لدي الوقت للابداع والتصميم لكن هذا مثال بسيط واعتقد انك ستصل به الى ما تريد Consumable Material Check List waz.accdb
  8. وعليكم السلام ورحمة الله وبركاته ضع في حدث بعد التحديث للحقل (الجنسية) الامر التالي: Select Case [الجنسية] Case "اجنبية" [المنطقة].Visible = False [العنوان].Visible = False Case Else [المنطقة].Visible = True [العنوان].Visible = True End Select
  9. الظاهر انني نسيت ان اخبرك انها تعمل عندي اوفيس 365
  10. لدي فضول في معرفة كيف ستقرأ اون لاين بدون تنزيل ملف التكست من الانترنت وبدون ان يكون هناك قاعدة على سيرفر او إضافة لانني قمت بتطبيق مشاركتك السابقة بخصوص التحديث من ملف التكست بعد تحميله على جهاز العميل وتعمل بشكل جميل ورائع فسيكون الامر اجمل واروع بدون ملف تكست 🙂
  11. واضافة لحل الأخ العزيز كاسر تعديل على نفس الوحدة Public Function DisplayImage(Imge As Control, Txtbxt As TextBox) As String On Error Resume Next Dim sImgPath As String Dim CopmN As String Dim Pic As DAO.Recordset Dim Tbl As String Set dbs = CurrentDb Tbl = "SELECT * FROM [PicTable]" Set Pic = dbs.OpenRecordset(Tbl) sImgPath = Pic.Fields("PictureFld") CopmN = Pic.Fields("CompName") '===============She3araaat============ If IsNull(sImgPath) Or sImgPath = "" Then Imge.Picture = "" Imge.Visible = False Else Imge.Visible = True Imge.Picture = sImgPath End If Txtbxt = CopmN End Function AzizN.accdb
×
×
  • اضف...