• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

غرّام العقول

اعضاء
  • عدد المشاركات

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

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

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

27 عادي

عن غرّام العقول

  • الرتبة
    عضو

معلومات الملف الشخصي

  • الجنس ذكر
  1. تفضل أخي الكريم بعد إدخال الرقم الاستدلالي للصنف والدرجة سيتم إظهار الرقم الاستدلالي للموظف   الموظفين2.rar
  2. اكتب الكود التالي في حدث عند التنسيق لقسم التفصيل في التقرير: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)Dim ctl As ControlFor Each ctl In Me.Controls If ctl.ControlType = acCheckBox Then If ctl.Value = False Then ctl.Visible = False Else ctl.Visible = True End If End IfNextEnd Subوهذا مثالك بعد التعديل. HideFalseValues.rar
  3. توزيع الطلاب على الباصات

    وعليكم السلام ورحمة الله وبركاته هذا الحل بالكود -كما تطلب- وهو يخرج من مشكاة واحدة مع الحل السابق كما تعلمناه من أساتذتنا أم/عهود وأبي خليل ومحمد طاهر فجزاهم الله خيراً. ملاحظة: بعد إدخال اسم الطالب انقر زر التوزيع الآلي على الباصات SchoolBus.rar
  4. أستاذتنا الفاضلة/ زهرة العبدالله وعليكم السلام ورحمة الله وبركاته نعم .. بارك الله بكم .. لكأنكم تنظرون بنور الله تم حل المشكلة مع هذه الأداة .. فجزاكم الله خيراً.
  5. للأسف الشديد أحصل على رسالة خطأ أثناء التشغيل تابعة للفيجوال بيسيك برقم 53 مفادها: Run-time error '53' : File not found بالرغم من أن الملف وقاعدة البيانات موجودان على نفس المجلد .. القاعدة من نوع mdb. وغير مقسمة ولا يوجد قاعدة أخرى في المجلد كما لا توجد مجلدات فرعية بداخل المجلد الرئيسي.
  6. هذا -والله- غاية المنى .. وعلامة من علامات السعادة سيكون ذلك حدثاً غير مسبوق من قبل أي مبرمج .. وسيعزى الفضل في ذلك إليكم كعلامة مسجلة لا تقبل التزوير.
  7. بارك الله بكم أستاذتنا الفاضلة/ زهرة العبدالله الفضل كله لله ثم لكم في هذا المنتدى .. وجميع أعضاء المنتدى هم تلاميذكم وتلاميذٌ لتلاميذكم
  8. تخفيض مستوى الأمان في اكسس2010 برمجياً

    أستاذتنا الفاضلة الكريمة/ زهرة العبدالله لو كان للأمة العربية والإسلامية عشرٌ مثلكم .. لكنا سادة العالم .. فواحدةٌ منكن تعدل ألوفاً حفظكم الله لأهلكم ووطنكم وأمتكم تمت الإجابة مع الشكر الجزيل
  9. تخفيض مستوى الأمان في اكسس2010 برمجياً

    أستاذتي الفاضلة/ زهرة العبدالله وعليكم السلام ورحمة الله وبركاته لديّ إصداران من أوفيس 2003 و 2010 وأعمل برامجي على إصدار 2003 لسهولة عمل أشرطة القوائم ولأن اكسس 2010 يمكن أن يشغل جميع الإصدارات السابقة له .. لكن بعد أن أرسلت للعميل نسخة مبدئية من البرنامج -(وهو لديه اكسس2010 فقط)- شكى لي من ظهور رسالة تحذيرية عند تشغيل البرنامج هذه صورتها: فقمت بتعديل الكود الخاص بتخفيض الأمان إلى كود آخر موجود في مشاركة لكم على هذا الرابط: http://www.arabteam2...dpost&p=1258721 لكن الطريقة لم تنجح وظلت الرسالة تظهر باستمرار .. قمت بعمل مثال شبيه بما قمت به -قبل إضافة الكود الأخير- تجدونه في المرفقات DecreaseSecurity.rar
  10. تخفيض مستوى الأمان في اكسس2010 برمجياً

    للرفع
  11. السلام عليكم ورحمة الله وبركاته لقد تقطعت بي السبل لإيجاد كود يمنع ظهور رسالة الأمان التحذيرية لدى مستخدم اكسس 2010 .. بدون ظهور الأعراض الجانبية: (مثل عدم تفعيل أزرار نموذج الواجهة). هل هذا الكود موجود فعلاً؟!! .. أم لابد من الطلب من المستخدمين تخفيض الأمان يدوياً؟!!. الشكر موصولٌ سلفاً.
  12. إخفاء زر الخيارات في اكسس 2010

    أستاذتنا القديرة الفاضلة الدكتورة/ زهرة العبدالله جزاكم الله عنا أفضل ما جزى معلماً عن تلامذته. كلتا الطريقتين آتت أكلها ولم تظلم منه شيئاً. تمت الإجابة
  13. السلام عليكم ورحمة الله وبركاته لم أكن أتوقع أن يكون إخفاء زر خيارات الخصوصية في اكسس 2010 بهذه الصعوبة. أرجو ممن لديه فكرة عن ذلك أن يشرحها لنا .. والشكر موصولٌ سلفاً.
  14. التقاط الصور ومشاركتها عبر شبكة محلية

    أشكركم أستاذتي ومعلمتي الفاضلة/ أم عهود ووالله إني لأخجل من مدى جهلي بالكود السابق وكيفية ربطه بالحدث التالي: Private Sub DBPix204_ImageModified() Dim ImageFilename As String Me!mPath = "" If DBPix204.ImageBytes < 1 Then DBPix204.ImageViewBlob (Null) Else If DBPix204.ImageFormat = 2 Then ImageFilename = Me!pID & "_" & Me!id & ".png" Else ImageFilename = Me!pID & "_" & Me!id & ".jpg" End If If DBPix204.ImageSaveFile(GetImageFolder & ImageFilename) Then Me!mPath = ImageFilename End If End If End Sub وهذا الحدث: Private Sub Form_Current() Dim Path As String Path = GetImageFolder If IsEmpty(Me!mPath) Or IsNull(Me!mPath) Then DBPix204.ImageViewBlob (Null) Else DBPix204.ImageViewFile (Path & Me!mPath) End If End Sub اللذين يربطان أداة أكتيف اكس بمسار الصورة. ================================ أخي عصام عبود .. أشكرك جزيل الشكر على تفاعلك معي, لكن الكود السابق لا يحل مشكلتي. شكراً مرة أخرى
  15. التقاط الصور ومشاركتها عبر شبكة محلية

    أستاذتي الكريمة/ زهرة العبدالله وعليكم السلام ورحمة الله وبركاته وبارك الله بكم ونوّر أبصاركم وبصائركم وأفئدتكم بنور الإيمان والتقوى. سيدتي الفاضلة .. كما تعلمين فإنه توجد لدينا الدالة GetImageFolder -(في مشاركة رقم 5 في هذا الموضوع)- فهل نستطيع الاستغناء عنها وحذفها ؟!! .. أم أنها ستظل كما هي في البرنامج, ولن يحصل تعارض معها ؟!! .. مرة أخرى أكرر شكري وامتناني لكم, وأسأل الله أن يحفظكم -وجميع أهليكم- من كل مكروه.