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

أبو عبدالله الحلوانى

الخبراء
  • Content count

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

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

  • Days Won

    4

أبو عبدالله الحلوانى last won the day on July 7

أبو عبدالله الحلوانى had the most liked content!

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

324 Excellent

9 متابعين

عن العضو أبو عبدالله الحلوانى

  • تاريخ الميلاد 20 أغس, 1984

Profile Information

  • Job Title
    محاسب بشركة مياه الشرب والصرف الصحى
  • Location
    صعيد مصر

اخر الزوار

1,091 زياره للملف الشخصي
  1. وعليكم السلام ورحمة الله وبركاتة قم بعمل ضغط واصلاح لقاعدة البيانات
  2. الحمد لله هلا أخبرتنا كيف لتتم الفائدة
  3. السلام عليكم 1- هل قمت بفتح النموذج بدون زرار هل تحدث مشكلة عند فتح النموذج 2- هل قمت بتغير خصائص هذا الزرار (تمكين الى لا بتبويب بيانات) Enable = False وأخيرا حاول كما ذكر لك استاذ عبدالله ( ضغط المرفق أو تحميله بأحد مواقع رفع الملفات).
  4. السلام عليكم أما عن الرسالة الأولى : فهى تنبيه بعدم كفاية الذاكرة - وهذا يدل على كبر حجم قاعدة البيانات ولعلك تستخدم الصور كثيرا داخل الفورم والتقارير ....... حاول أن تجعل الصور داخل فولدر مستقل واجعل الصور مرتبطة وليست مضمنة. أما عن الرسالة الثانية : 1- مبدأيا حاول تغير اعدادات اللغة بالجهاز. 2- جرب أن تنشىء قاعدة بيانات فارغة وتسترد اليها كل الكائنات من القاعدة القديمة. 3- وانصحك بتقسيم قاعدة البيانات الى قاعدة تضم الجداول فقط وقاعدة تضم النماذج والقارير والاستعلامات.
  5. جزاكم الله خيرا وزادكم فضلا وعلما وبركة فى العمر والمال والأهل تم
  6. السلام عليكم الموضوع باختصار أنه لدينا لست بوكس listBox يتم الاختيار منه لملأ مربع نص textBox والمطلوب عند التراجع عن الاختيار من الليست listBox كيف يمكن حذف القيمة من التكست textBox أرجو أن تكون الفكرة واضحة وهنا مرفق TestList.rar
  7. أستاذنا جعفر @jjafferr شكرا لثقتكم التى أعتز بها مشاركتم بعمل ما لأمر جدير أن يحرص عليه المرؤ - ولكن حسب ما اتسع الوقت لو سمحتم لى وبعد أما بالنسبة للنقطة الثانية وخصوصا بشأن اجراء تغيرات على الجداول اعتقد أنه دار حوله نقاش بأحد موضوعات أستاذنا أبو خليل وقد أسفرت بالنهاية على مرفق ممتاز يؤدى الغرض يمكن الاستفادة به هنا اذا احتاج الأمر لذلك. واعتقد أن هذا رابط موضوع أستاذنا @ابوخليل أما بشأن فكرة سيادتكم بشأن اضافة ملف نص txt او xml أعتقد أننا الآن ابتعدنا بهذه الفكرة عن مضمون الموضوع الأصلى ( ولكنى أعتقد أنها فكرة متميزة وتستحق أن تفرد بموضوع مستقل ) فما فهمته من موضوع أستاذ @sandanet أنه ما يريد ألا تنزيل ملف واحد فحسب وهو الخاص بكراك التنشيط والذى يرغب بتغيره وفقا لأختلاف البرامج الموزعة على العملاء . عودا لفكرة تحديث البرنامج وفقا لرقم الاصدار الأحدث للنسخة الجديدة اعقد أننا بحاجة للسير وفقا لتسلسل عمل كهذا: 1- نحتاج لوضع كود لتحميل هذا الملف النصى عند بداية فتح البرنامج كل مرة - ومن ثم استيراد هذا الملف ومقارنة رقم رقم الاصدار برقم الاصدار المخزن بجدول مسبق بالبرنامج 2- فان كان رقم الاصدار أكبر من الاصدار الحالى تم العمل على تحميل نسخة البرنامج الأحدث والتى يوجد رابطها بجوار رقم النسخة داخل الملف النصى - وان لم تكن الاصدار أكبر من النسخة الحالية يتم حذف الملف النصى وحذف البيانات التى تم استيرادها بالجدول. 3- ولكن نحن بحاجة لسؤال وتنبيه المستخدم قبل تحميل النسخة الأحدث هل يريد الاستمرار بالتحديث أم لا (حتى لا نفرض عليها قرارات ) هذه بعض الأفكار التى تدور بخاطرى الآن ان لم ترو خللا بها عملت على تنفيذها متى اتسع الوقت ان شاء الله. ولكن هنالك سؤالا يؤرقنى واحاول منع نفسى منه ولكن لم استطع ؟ بالنسبة لمبرمج مبتدأ مثلى فى الغالب يتم تحديث البرنامج وفقا لطلب العميل واعتقد أن امر التحديث التلقائى هذا خاص بشركات كبرى تطرح نسخا لبرنامجها الواحد الذى يقبل عليه اعداد كبيرة من العملاء (كتحديثات الويندوز الدورية وكسبرانتى فيرس وهكذا) ... وليس عميل واحد يتعامل مع مبرمج واحد بشأن برنامج واحد ؟ أرجو أن لا يكون كلامى مزعجا ولا معوقا للمواصلة بتنفيذ الفكرة. تحياتى
  8. جرب هذا ووافنا بالنتائج هذا لأجل من سند رقم : (توضع بمصدر سجلات مربع النص - Control Source) =Nz(Dmin("SandNo";"SandatTable";"SandDate=#" & [Date] & "#");0) وهذا لأجل الى سند رقم: =Nz(Dmax("SandNo";"SandatTable";"SandDate=#" & [Date] & "#");0) طبعا مع تغير المسميات التالية لما يتفق مع تصميمكم sandNo = حقل رقم السند SandatTble = اسم الجدول الذى يحتوى على بيانات السندات SandDate = حقل تاريخ السند ملاحظة: 1- لأن المعيار تاريخ أضفنا هذه العلامة "#" وان كان المعيار نص سنستخدم بدلا منها هذه " ' " 2- يمكن استخدام أكثر من معيار باضافة "And" بين المعاير كتاريخ السند ونوع السند مثلا مع مراعات اختلاف نوع البيانات لكل معيار.
  9. وجزاك الله خيرا أخى قد نبهنى بعض الناصحين أن هذا الدعاء غير صحيح (وقد كنت كثيرا ما أدعوا به) وأخبرنى أن أحدهم قال للشيخ بن عثيمين "الله يخليك" فقال: "ومن يتولانى إن خلانى ربى!" أحبكم بالله حفظكم الله وحفظ الله أستاذنا جعفر .
  10. جزاك الله خيرا أستاذى وأخى @jjafferr هذا الفارق دائما بين عطاء الأستاذ والتلميذ أحببت اضيف معلومة صغيرة طبعا حفظ الأرقام المقابلة للمفاتيح أمر بغاية الصعوبة وربما البحث عن هذه الأكواد عند الحاجة اليها ربما استقطع جزءا كبيرا من الوقت - لذا اتبع عادا استخدام هذا الكود لاظهار أرقام المفاتيح Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) MsgBox KeyCode End Sub وهكذا يخبرنا الأكسس بالأرقام من دون عناء
  11. وعليكم السلام جرب المرفق اعتقد أنه يعمل على نطاع الفورم لا على نطاق الأبلكيشن StopF4.rar
  12. استاذ @sandanet عند تنفيذ الكود ظهر هذا الخطأ وقد تم اضافة هاتين الجملتين الى الكود وعمل بنجاح والحمد لله Dim fShellRun As Object Set fShellRun = CreateObject("Wscript.Shell") strPing = fShellRun.Run(strCommand) الا انه عند عدم وجود اتصال بالانتر نت لا يوجد اعتراض من قبل الكود وتم اهمال ارسال الرسالة التنبيهية بعدم وجود اتصال
  13. السلام عليكم جرب هذا وافنا بالنتائج برنامج التقسيط.rar
  14. وهنا أداة صغيرة بها زيادة فائدة لعلك تنتفع بها