adnan94

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

جزاك الله خير اخي الكريم وبارك الله بك لو تكرمت علينا بشرح مستفيض عن الجزء الخاص بالتحاليل الطبية بملف صور أو شرح فديو وذلك لمعرفة تفاصيل وآلية البرنامج تحياتي

السلام عليكم و رحمة الله و بركاته قد اطلعت على اصداراتك السابقة وهي بصراحة ممتازة وما شاء الله عليك وأجزم أن هذ الأصدار سيكون الأجمل :) جزاك الله خير يا أبو مريم ولك من الدعاء ما طلبت وأكثر تقبل تحياتي

أفضل الكلام جزاك الله كل خير يا دكتورة وبارك الله بك تحياتي وتقديري لك والله يعطيك الصحة والعافية :)

السلام عليكم هناك مشاركة لمشرفنا العزيز محمد فؤاد تركي طرح فيها برنامج Instant Demo Flash Player وهو خاص بتسجيل عروض الفديو المطلوب عنوان المشاركة أو إعادة رفع البرنامج المذكور مرة ثانية لكم مني كل الشكر والاحترام

استخدمت الكود التالي : btn1.Properties("Caption") = 100 وأيضا لم يأتي بالنتيجة المطلوبة بثبيت القيمة في التسمية التوضيحية لدي 224 زر في النموذج عبارة عن أسماء خدمات وأسعار أستخدمهم في برنامجي وليس لدي مشكلة ولكن تشغيل كود التسمية يأخذ وقت كلما فتحنا النموذج علما أنني لا أستطيع تثبيتها بالتصميم لأنها متغيرة فهي أسعار وأسماء خدمات. فهل هناك حل لتثبيت الأسماء وتشغيل كود التسمية كلما دعت الضرورة لذلك ؟ أرجوا المساعدة في الحل لكم تحياتي

شكرا لك أختي أم عهود مسمى المفتاح يتغير حسب منطق المثال لدي ولكن هل ممكن تغييره عندما أريد وتثبيته أيضا ؟؟ علما أنني نجحت في ذلك ولكنني فقدت الكود ولم أستطيع عمله مرة ثانية شكرا لك وبارك الله فيك

السلام عليكم لدي أربعة مفاتيح btn1 و btn2 و btn3 وbtn4 أريد كود يثبت قيمة محددة داخل ( captionشرح زر الأمر) وقد أستطغت عرض القيمة في (captionشرح زر الأمر) عن طريق الكود التالي : btn1.Caption = 100 btn2.Caption = 200 btn3.Caption = 300 btn4.Caption = 400 ولكن السؤال كيف يمكن تثبيت هذه القمية في أزرار المفاتيح عند الخاصية caption دون الحاجة لتنفيذ هذا الكود كلما تم تحميل النموذج لان هذه القيمة متغيرة ولكن في حالات معينة ولا اريد تنفيذها كلمت دخلت الى النموذج ملاحظة :يمكن عمل ذلك والتعديل على تصميم النموذج كلما أحتجنا ذلك وفي خاصية (caption ) بالذات علما أنني تمكنت من ذلك ولكن عن طريق الصدفة ولم أستطيع إعادة صياغة الأمر مرة ثانية. أرجوا أن يكون طلبي واضحا وشاكر لكم مجهودكم الكريم تحياتي db2.rar

بارك الله بجهودك دكتورة زهرة وجزاك الله كل خير ليس هذا ما أريده وأنا آسف ربما لم أقم بشرح المطلوب كما يجب المطلوب أختي الكريمة ما حذرتيني منه أريد مسح القيمة من الحقل الأول المسمى Item وأريد كود للتراجع بشكل آلي أو وضع 100 في الحقل نفسه عوض القيمة الممسوحة وذلك بشكل آلي أيضا دون ظهور هذه الرسالة المزعجة فهل هذا ممكن برمجيا وإذا كان لا فأنا مضطر أن أستخدم الأمر DLookup لأحضار البيانات والأستغناء عن الربط بين الجدولين الذي يحدث لدي مشكلة في هذه النقطة بالذات. شكرا لك وبارك الله فيك

السلام عليكم ورحمة الله وبركاته لدي نموذج اسمه btn1 ومصدر بياناته جدولين مرتبطين عند الغاء قيمة الحقل item تخرج لدي الرسالة التالية : طبعا هذا طبيعي لوجود ربط بين الجدولين ولكني أريد التخلص من الرسالة السابقة ما أريده بالظبط كود تراجع عن التسجيل عند الغاء قيمة الحقل item الى قيمة فارغة أو أن يضع قيمة 100 في الحقل item تقبلوا تحياتي db7.rar

أخي الكريم استعمل الكود في الحدث عند الطباعة او عند التسيق في التقرير وفي الجزء الخاص بالحقل المطلوب التعامل معه وللأسف لا املك الآن جهازكمبيوتر لوضع لك مثال كل عام وانتم بخير

بارك الله بك أخي عزام على هذه المشاركة الطيبة اختنا الفاضلة الدكتورة زهرة العبد الله السلام عليكم ورحمة الله وبركاته كل عام وأنت وجميع أحبابك بألف خير تقبل الله منا ومنكم صالح الأعمال وجزاك الله خير الجزاء على هذا العمل الطيب والمبارك كل عام والجميع بألف خير

أخي الموضوع بسيط .... كلام أخي مالك صحيح فقد تغير الفنط بالتقرير حسب المحدد بالتصميم ...على كل الأحوال جرب هذه الأكواد : لتغيير نوع الخط استعمل الكود : Me![txt].FontName = "Arial Black" لتغيير حجم الخط استعمل الكود : Me![txt].FontSize = 12 لتغيير لون الخط استعمل الكود التالي : Me![txt].ForeColor = vbRed لتغيير أرضية مربع النص استعمل الكود : Me![txt].BackColor = vbYellow حيث txt هو اسم الحقل المراد التحكم به * يمكنك وضع شرط قبل الأمر والتلاعب بهذا الحقل كما تريد

أخي العزيز ليس لدي خبرة بـ 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

أخي أبو احمد انا من خلال التعديل السابق اردت أن اعرفك على الطريقة فقط دون الخوض بتفاصيل المثال وعلى كل الأحوال حصل خير واليك الملف بعد التعديل مرة أخرى لكي تبدأ بالعمل على تطويره والذي تم اضافته بالنموذج لجلب مسار ملف الصور بشكل آلي الأمور التالية : عند الحدث عند الحالي فقط أضفت هذا الكود لادخال مسار ملفي الصور [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