محمد احمد لطفى

افادك الله وزادك علمك

وفقكم الله برنامج جميل

جزاكم الله خيراٌ و جعله فى ميزان حسناتك

أستاذى @أبو إبراهيم الغامدي عندما اضفت Option Explicit الى النموذج الخاص بى توقف عمل أكواد كثيرة لجأت الى مسح أمر أمر الا أن توصلت الى أنه هو السبب هل يمكن دمج D:\Photo\123 دمجها مع الكود وابعادها عن ( عند التحميل ) لأن هناك الكثير من الاوامر و الامر فى الحال لا يتم تغيير اسم الصورة اذا مسحته هل يمكن دمجه ايضا بعد التحديث أنت أستاذى و أعلم منى أريد فقط أن لا يحدث مشاكل أثناء العمل الامر لا يتوقف عن الموظفين فاننى اعمل على نموذج ادخال دفع اليكترونى و اربط الصورة برقم الدفع الاليكترونى فيحدث احيانا ان اكتب رقم دفع مكان رقم دفع او تعديل على رقم الدفع أو حذفه فعند حذف الاسم نهائى حتى عن طريق الخطأ يتم حذف الاسم من الصورة و تم حلها عن طريق أن الكود يعمل اذا كانت الخليه غير فارغة و جزاك الله خيراً على سعة صدرك

أستاذى @أبو إبراهيم الغامدي لقد رجعت الى الكود الاول لأنه أفضل و قمت بعمل بعض التعديلات و لكن الأن عند تغيير الاسم باسم موجود تأتى رسالة ان الصورة موجودة و يرجع الى الاسم السابق ارجو من حضرتك تغييرها الى الرسالة التى بالكود التانى تغيير الاسم فقط حاولت كثيراً ولكنى فشلت If MsgBox(Dir(NewImage) & vbNewLine _ & "يوجد صورة سابقة بنفس الاسم.." _ & vbNewLine & "هل تريد تعديل الاسم فقط..", _ 1572868, "تنبيه") = vbYes Then Me.imgWorker.Picture = CurImage Else Me.Undo End If Else Name CurImage As NewImage Me.imgWorker.Picture = NewImage End If مرفق الملف الاخير بعد التعديل وجزاك الله كل خيراً Photo.rar

شكراُ أستاذى @عبد اللطيف سلوم تم عمل استعلام جديد وربطه بتاريخ الجواب و تم منع التكرار أعرف أنا دالة Dlookup تجلب البيانات فلم استخدمها استخدمت DCount test5 (1).rar

للرفع

للرفع

شكر| أستاذى @عبد اللطيف سلوم هاحاول أرفع نموذج تانى تكون فيه المشكلة لعل و عسى

السلام عليكم ورحمة الله وبركاته كيف يمكن من نموذج البرنامج اغلاق نموذج كل السجلات و فتحه فى نفس المكان و لذلك لتحديث بياناته أو اغلاق استعلامه و ارجاعه ثانية لا أريد عمل requery للنموذج وجزاكم الله خيراً test55588.rar

السلام عليكم ورحمة الله و بركاته أريد عدم النقل الاسم من البحث اذا كان مكرر فى نفس الجواب و لكن اذا كان جواب جديد يتم النقل أى ان ينقل مرة واحدة وجزاكم الله خيراً test5.mdb

هل هناك فكرة اخرى حيث أنه يتوقف ما بين 400 او 500 صورة ويعمل عند الضغط على الخلية التى توقف فيها

بالفعل level: Cons0819([issue date];[consum];4) لما بجمع cost + تسويات واقساط = رقم صحيح level + تسويات و اقساط = رقم صحيح و لكن عند جمعهما معا تحدث المشكلة

المطلوب سداده2016: [Cost]+[level]+[تسويات و اقساط] كهرباء 2019.rar

أستاذى @أبو إبراهيم الغامدي ممكن طلب صغير عند جمع المبلغ مع الرسوم والدمغات يكون الناتج 33415.33 وهو خاطىء حيث 334 هو المبلغ و الرسوم 15.33 عند جمعهما يصبح 349.33

للرفع

قد يفيدك هذا الموضوع

راجع هذا الموضوع

أستاذى @أبو إبراهيم الغامدي - مع كوني أول من أسس لك هذه الشفرة إلا أني لم أعد أتذكر كيف أسستها! - حضرتك من أسس البرنامج وتعلمت منك الكثير اللهم اجعله في ميزان حسناتك - .. من الخطأ بقاء شفرة شرائح السنوات الماضية في المشروع! إلا إذا كان لديك فواتير متأخرة تريد جدولتها. هذا يفيد بعض الاحيان لانى لا احذف السنوات السابقة ممكن حضرتك اضافة الكود فى الوحدة النمطية و تشغيلهل فى الاستعلام و بدون تحديد تاريخ جزاك الله خيراً

للرفع

ياريت ترفع مثال

لو مربطين مع بعض هايشتغل على الاتنين

تفضل Private Sub Form_Load() DoCmd.RunCommand acCmdRecordsGoToLast End Sub

للرفع

السلام عليكم ورحمة الله و بركاته فى هذا النموذج يحسب مبلغ الكهرباء و تم بالفعل اضافة سنة 2019 - 2020 المطلوب اضافة الكود التالى الى الوحدة النمطية من بعد تاريخ 1/7/2019 f Me.Consum >= 0 And 50 Then Me.رسوم_و_دمغات = "1.25" Me.الشريحة = "الشريحة الاولى" End If If Me.Consum >= 51 And 100 Then Me.رسوم_و_دمغات = "2.25" Me.الشريحة = "الشريحة الاولى" End If If Me.Consum >= 101 And 200 Then Me.رسوم_و_دمغات = "6.33" Me.الشريحة = "الشريحة الاولى" End If If Me.Consum >= 201 And 350 Then Me.رسوم_و_دمغات = "11.33" Me.الشريحة = "الشريحة الثانية" End If If Me.Consum >= 351 And 650 Then Me.رسوم_و_دمغات = "15.33" Me.الشريحة = "الشريحة الثالثة" End If If Me.Consum >= 651 And 1000 Then Me.رسوم_و_دمغات = "25.33" Me.الشريحة = "الشريحة الرابعة" End If If Me.Consum >= 1000 And 10000 Then Me.رسوم_و_دمغات = "40.33" Me.الشريحة = "الشريحة الخامسة" End If و تكون النتيجة فى نفس حقول الجدول رسوم و دمغات و الشريحة و جزاكم الله خيراً كهرباء 2019.rar