• الإعلانات

    • فيصل الحربي

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

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

adnan94

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

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

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

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

9 عادي

عن adnan94

  • الرتبة
    عضو

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

  • الجنس ذكر
  1. كل الشكر والتقدير لمعلمتنا الفاضلة أم عهود بارك الله بك وجزاك الله كل خير والشكر موصول لصاحب هذه المبادرة والدكتورة تستاهل كل خير لما لها من بصمات رائعة في هذا القسم تحياتي وتقديري للجميع :)
  2. جزاك الله خير اخي الكريم وبارك الله بك لو تكرمت علينا بشرح مستفيض عن الجزء الخاص بالتحاليل الطبية بملف صور أو شرح فديو وذلك لمعرفة تفاصيل وآلية البرنامج تحياتي
  3. السلام عليكم و رحمة الله و بركاته قد اطلعت على اصداراتك السابقة وهي بصراحة ممتازة وما شاء الله عليك وأجزم أن هذ الأصدار سيكون الأجمل :) جزاك الله خير يا أبو مريم ولك من الدعاء ما طلبت وأكثر تقبل تحياتي
  4. أفضل الكلام جزاك الله كل خير يا دكتورة وبارك الله بك تحياتي وتقديري لك والله يعطيك الصحة والعافية :)
  5. السلام عليكم هناك مشاركة لمشرفنا العزيز محمد فؤاد تركي طرح فيها برنامج Instant Demo Flash Player وهو خاص بتسجيل عروض الفديو المطلوب عنوان المشاركة أو إعادة رفع البرنامج المذكور مرة ثانية لكم مني كل الشكر والاحترام
  6. استخدمت الكود التالي : btn1.Properties("Caption") = 100 وأيضا لم يأتي بالنتيجة المطلوبة بثبيت القيمة في التسمية التوضيحية لدي 224 زر في النموذج عبارة عن أسماء خدمات وأسعار أستخدمهم في برنامجي وليس لدي مشكلة ولكن تشغيل كود التسمية يأخذ وقت كلما فتحنا النموذج علما أنني لا أستطيع تثبيتها بالتصميم لأنها متغيرة فهي أسعار وأسماء خدمات. فهل هناك حل لتثبيت الأسماء وتشغيل كود التسمية كلما دعت الضرورة لذلك ؟ أرجوا المساعدة في الحل لكم تحياتي
  7. شكرا لك أختي أم عهود مسمى المفتاح يتغير حسب منطق المثال لدي ولكن هل ممكن تغييره عندما أريد وتثبيته أيضا ؟؟ علما أنني نجحت في ذلك ولكنني فقدت الكود ولم أستطيع عمله مرة ثانية شكرا لك وبارك الله فيك
  8. السلام عليكم لدي أربعة مفاتيح btn1 و btn2 و btn3 وbtn4 أريد كود يثبت قيمة محددة داخل ( captionشرح زر الأمر) وقد أستطغت عرض القيمة في (captionشرح زر الأمر) عن طريق الكود التالي : btn1.Caption = 100 btn2.Caption = 200 btn3.Caption = 300 btn4.Caption = 400 ولكن السؤال كيف يمكن تثبيت هذه القمية في أزرار المفاتيح عند الخاصية caption دون الحاجة لتنفيذ هذا الكود كلما تم تحميل النموذج لان هذه القيمة متغيرة ولكن في حالات معينة ولا اريد تنفيذها كلمت دخلت الى النموذج ملاحظة :يمكن عمل ذلك والتعديل على تصميم النموذج كلما أحتجنا ذلك وفي خاصية (caption ) بالذات علما أنني تمكنت من ذلك ولكن عن طريق الصدفة ولم أستطيع إعادة صياغة الأمر مرة ثانية. أرجوا أن يكون طلبي واضحا وشاكر لكم مجهودكم الكريم تحياتي db2.rar
  9. بارك الله بجهودك دكتورة زهرة وجزاك الله كل خير ليس هذا ما أريده وأنا آسف ربما لم أقم بشرح المطلوب كما يجب المطلوب أختي الكريمة ما حذرتيني منه أريد مسح القيمة من الحقل الأول المسمى Item وأريد كود للتراجع بشكل آلي أو وضع 100 في الحقل نفسه عوض القيمة الممسوحة وذلك بشكل آلي أيضا دون ظهور هذه الرسالة المزعجة فهل هذا ممكن برمجيا وإذا كان لا فأنا مضطر أن أستخدم الأمر DLookup لأحضار البيانات والأستغناء عن الربط بين الجدولين الذي يحدث لدي مشكلة في هذه النقطة بالذات. شكرا لك وبارك الله فيك
  10. السلام عليكم ورحمة الله وبركاته لدي نموذج اسمه btn1 ومصدر بياناته جدولين مرتبطين عند الغاء قيمة الحقل item تخرج لدي الرسالة التالية : طبعا هذا طبيعي لوجود ربط بين الجدولين ولكني أريد التخلص من الرسالة السابقة ما أريده بالظبط كود تراجع عن التسجيل عند الغاء قيمة الحقل item الى قيمة فارغة أو أن يضع قيمة 100 في الحقل item تقبلوا تحياتي db7.rar
  11. أخي الكريم استعمل الكود في الحدث عند الطباعة او عند التسيق في التقرير وفي الجزء الخاص بالحقل المطلوب التعامل معه وللأسف لا املك الآن جهازكمبيوتر لوضع لك مثال كل عام وانتم بخير
  12. تسجيل أداة أكتيف إكس برمجياً

    بارك الله بك أخي عزام على هذه المشاركة الطيبة اختنا الفاضلة الدكتورة زهرة العبد الله السلام عليكم ورحمة الله وبركاته كل عام وأنت وجميع أحبابك بألف خير تقبل الله منا ومنكم صالح الأعمال وجزاك الله خير الجزاء على هذا العمل الطيب والمبارك كل عام والجميع بألف خير
  13. أخي الموضوع بسيط .... كلام أخي مالك صحيح فقد تغير الفنط بالتقرير حسب المحدد بالتصميم ...على كل الأحوال جرب هذه الأكواد : لتغيير نوع الخط استعمل الكود : Me![txt].FontName = "Arial Black" لتغيير حجم الخط استعمل الكود : Me![txt].FontSize = 12 لتغيير لون الخط استعمل الكود التالي : Me![txt].ForeColor = vbRed لتغيير أرضية مربع النص استعمل الكود : Me![txt].BackColor = vbYellow حيث txt هو اسم الحقل المراد التحكم به * يمكنك وضع شرط قبل الأمر والتلاعب بهذا الحقل كما تريد
  14. أخي العزيز ليس لدي خبرة بـ PHP وأعتقد أنك تقصد ربما اختصار الكود وذلك للحصول على النتيجة في الاستعلام مباشرة فأرجو ان تمشي معك الطريقة التالية في المحاولة بتوظيفها في دالة تعمل داخل استعلام : On Error Resume Next Dim flag As Integer Dim MsField(15) As String Dim I As Integer flag = 0 Me.TN = Null For I = 0 To 15 MsField(I) = Mid(([FName]), (I), 1) If flag = 1 Then Me.TN = Me.TN & "" & MsField(I) If MsField(I) = "-" Then flag = 1 Next I Exit Sub تم تنفيذ المطلوب الآن عن طريق مصفوفة ربما نكون أختصرنا بعض الشئ من الكود السابق واذا كنت تريد تنفيذ استعلام بالمطلوب فخزن النتيجة في حقل اثناء الادخال او ربما هناك طريقة أخرى لجعل هذا الكود يعمل مباشرة بالاستعلام فإذا توصلت لشئ أفضل من هذا فسأطرحه بإذن الله هذا ما استطعت مساعدتك به مرفق الطريقتين بالمثال وبالتوفيق test1.rar
  15. أخي أبو احمد انا من خلال التعديل السابق اردت أن اعرفك على الطريقة فقط دون الخوض بتفاصيل المثال وعلى كل الأحوال حصل خير واليك الملف بعد التعديل مرة أخرى لكي تبدأ بالعمل على تطويره والذي تم اضافته بالنموذج لجلب مسار ملف الصور بشكل آلي الأمور التالية : عند الحدث عند الحالي فقط أضفت هذا الكود لادخال مسار ملفي الصور [ImagePath1] = CurrentProject.Path & "\empid" & [ImageID] & ".jpg" [ImagePath2] = CurrentProject.Path & "\empid" & [ImageID] & "-" & [ImageID] & ".jpg" وفي مفتاح الطباعة تم اضافة هذا الكود للتأكد من وجود الصورة في المجلد If Len(Dir(ImagePath1)) = 0 Then وذلك عوض الكود السابق : If IsNull(ImagePath1) Or IsNull(ImagePath2) Then أما اضافة الصورة فتابع هذه المشاركة للاستاذة الفاضلة زهرة مأجورة مشكورة http://www.arabteam2000-forum.com/index.php?showtopic=170595 وبالتوفيق اخي الحبيب EMP.rar