• الإعلانات

    • فيصل الحربي

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

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

غرّام العقول

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

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

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

كل شيء نشر بواسطة غرّام العقول

  1. السلام عليكم ورحمة الله وبركاته لم أكن أتوقع أن يكون إخفاء زر خيارات الخصوصية في اكسس 2010 بهذه الصعوبة. أرجو ممن لديه فكرة عن ذلك أن يشرحها لنا .. والشكر موصولٌ سلفاً.
  2. السلام عليكم ورحمة الله وبركاته أحياناً نضطر إلى استخدام المكتبات في برامجنا .. وطالما أن المكتبة مسجلة لدينا, فالبرنامج يعمل بشكل جيد, لكن المشكلة عندما ننقل البرنامج إلى جهاز العميل, عندها يجب تسجيل المكتبة في جهازه. السؤال هو: كيف يمكن تسجيل المكتبة لدى العميل برمجياً أثناء فتح البرنامج مثلاً .. بدون أن نشق عليه بالذهاب إلى ابدأ ثم تشغيل ثم كتابة الأمر .....regsver32 أرجو ممن لديه معلومات عن هذا الموضوع أن لا يبخل علينا بالإجابة, وجزاكم الله خيراً.
  3. تفضل أخي الكريم بعد إدخال الرقم الاستدلالي للصنف والدرجة سيتم إظهار الرقم الاستدلالي للموظف   الموظفين2.rar
  4. اكتب الكود التالي في حدث عند التنسيق لقسم التفصيل في التقرير: 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
  5. توزيع الطلاب على الباصات

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

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

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

    للرفع
  14. إخفاء زر الخيارات في اكسس 2010

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

    أشكركم أستاذتي ومعلمتي الفاضلة/ أم عهود ووالله إني لأخجل من مدى جهلي بالكود السابق وكيفية ربطه بالحدث التالي: 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 اللذين يربطان أداة أكتيف اكس بمسار الصورة. ================================ أخي عصام عبود .. أشكرك جزيل الشكر على تفاعلك معي, لكن الكود السابق لا يحل مشكلتي. شكراً مرة أخرى
  16. السلام عليكم ورحمة الله وبركاته عندما يقوم الماسح الضوئي أو الكاميرا بأخذ صورة للموظف أو المشروع, ويتم حفظها في مجلد الصور التابع للبرنامج .. هل يمكن لبقية المستخدمين على الشبكة المحلية استعراض سجلات الموظفين مع صورهم؟!! .. كيف يكون ذلك بعد تقسيم قاعدة البيانات إلى جداول وواجهات؟!! هذا المثال -للأسف- قبل التقسيم .. لأنني أعاني من مشكلة صغيرة بعد التقسيم سيتم معالجتها لاحقاً. أقدم شكري وعظيم امتناني للأستاذة الفاضلة/ زهرة العبدالله على ما قدمته لي من مساعدة سابقة تتعلق بهذا المثال المرفق. za-RegLib.rar
  17. التقاط الصور ومشاركتها عبر شبكة محلية

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

    للرفع
  19. التقاط الصور ومشاركتها عبر شبكة محلية

    سأوضح المطلوب بشكل أكثر دقة. توجد دالة في المثال السابق وظيفتها تعريف البرنامج بمسار الصور في نفس مجلد قاعدة البيانات .. لكن لو تم تقسيم قاعدة البيانات وتم وضعها على شبكة, فمن البديهي أن تعطينا هذه الدالة رسالة خطأ .. فالمطلوب هو تصحيح هذه الدالة لكي تدل على مجلد الصور الموجود في مجلد قاعدة البيانات على السيرفر, وليس مجلد الصور الموجود لدى المستخدم .. وهذه هي الدالة المراد تعديلها: Private Function GetImageFolder() As String Dim DBFullPath As String Dim I As Integer DBFullPath = CurrentDb().Name For I = 1 To Len(DBFullPath) If Mid(DBFullPath, I, 1) = "\" Then GetImageFolder = Left(DBFullPath, I) & "Images\" End If Next End Function
  20. التقاط الصور ومشاركتها عبر شبكة محلية

    أتمنى أن توضح ذلك بتفصيل أكثر -أستاذ عصام- لو سمحت
  21. تسجيل أداة أكتيف إكس برمجياً

    أستاذتي الفاضلة الدكتورة/ زهرة العبدالله يعجز اللسان عن الشكر .. لكني لا أعجز عن الدعاء لكم .. أسأل الله الكريم رب العرش العظيم في هذا اليوم العظيم يوم الوقوف بعرفة أن يجعل الفردوس الأعلى مأواكم, وأن ينيلكم أسمى وأغلى أمانيكم في الدنيا والآخرة, إنه وليّ ذلك والقادر عليه. تمت الإجابة .. مع الشكر الجزيل
  22. تسجيل أداة أكتيف إكس برمجياً

    كلا ياعزيزي .. فكلنا أمام أستاذتنا القديرة/ أم عهود مبتدئون أما النقاط .. فعندما تمت الإجابة على معظم أسئلتي, شعرت بالامتنان ورفعتها إلى الحد الأقصى المسموح به, وليس في ذلك ضرر على أحد. أتمنى أن يتم الإجابة على أسئلتك, لأن في ذلك فائدة لي أيضاً لا تخش فقدان نقاطك المتوفرة عندما تقوم بطرح سؤال .. لأنها ستعود إليك في اليوم التالي
  23. تسجيل أداة أكتيف إكس برمجياً

    بارك الله بكم .. وحقق لكم كل ما تصبون إليه من الخيرات والبركات هل أستطيع كتابة الكود السابق بهذا الشكل للتأكد من نظام الويندوز إن كان 64 أو 32 بت ثم تشغيل الكود على أساس ذلك؟!! -وأرجو أن تغفروا لي كثرة الأسئلة-: Private Sub Form_Open(Cancel As Integer) Me.TimerInterval = 3000 If Not DoesFileExist("C:\Windows\SysWOW64") Then If Not DoesFileExist("C:\Windows\System32\DBPix20.ocx") Then CopyFile Application.CurrentProject.Path & "\DBPix20.ocx", "C:\Windows\System32\DBPix20.ocx" Call Shell("C:\WINDOWS\system32\regsvr32 DBPix20.ocx /s", vbMinimizedNoFocus) Else Call Shell("C:\WINDOWS\system32\regsvr32 DBPix20.ocx /s", vbMinimizedNoFocus) End If Else If Not DoesFileExist("C:\Windows\SysWOW64\DBPix20.ocx") Then CopyFile Application.CurrentProject.Path & "\DBPix20.ocx", "C:\Windows\SysWOW64\DBPix20.ocx" Call Shell("C:\WINDOWS\SysWOW64\regsvr32 DBPix20.ocx /s", vbMinimizedNoFocus) Else Call Shell("C:\WINDOWS\SysWOW64\regsvr32 DBPix20.ocx /s", vbMinimizedNoFocus) End If End If End Sub
  24. تسجيل أداة أكتيف إكس برمجياً

    هو كما قلتم -أستاذتي ومعلمتي- .. لقد عمل الآن المثال بشكل رائع .. لكن بعد أن قمت بتغيير اسم الملف المنسوخ والموجود في حدث عند الفتح للنموذج المنبثق. استبدلت السطر الثاني بالسطر الأول: 'CopyFile Application.CurrentProject.Path & "\MSCOMCTL.OCX", "C:\Windows\System32\DBPix20.ocx" CopyFile Application.CurrentProject.Path & "\DBPix20.ocx", "C:\Windows\System32\DBPix20.ocx" ===================================== أرجو التكرم بالإجابة على السؤال التالي: هل سيعمل الكود السابق في إصدار ويندوز7 أو فيستا دون رسائل أخطاء؟!! .. أقصد .. هل نحتاج إلى تغيير المسار Windows\System32 إلى مسار آخر في حال استخدام إصدار مختلف من ويندوز. تقبلوا خالص التقدير والاحترام.
  25. تسجيل أداة أكتيف إكس برمجياً

    بارك الله بكم أستاذتنا القديرة/ أم عهود جعل الله أيامكم كلها أعياد وأفراح. نعم هذا هو المطلوب تماماً. واسمحوا لي بسؤال أيضاً -أطال الله عمركم في طاعته- هل يعمل الكود السابق لجميع إصدارات الويندوز مثل فيستا, وويندوز7؟!! مرة أخرى أشكركم جزيل الشكر, وأسأل الله أن يجعل هذا في ميزان حسناتكم, وأن يجعل الفردوس الأعلى مأواكم, والنار لمن عاداكم. بقي لدينا النمط المعرف من قبل المستخدم المسمى SHFILEOPSTRUCT لم يتم تعريفه بارك الله بكم