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

هل هناك فكرة اخرى حيث أنه يتوقف ما بين 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

جزاك الله خيراً أستاذى برنامج جميل

هذا حل و ياريت لو فيه حل أفضل يتم تقديمه Photo.rar

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

وجدت برنامج و لكنه يقوم بنقل ما يتم تحديده كيف ننقل جميع ملفات الصور المضافة للاسماء فى قاعدة البيانات الى مكان يتم تحديده نسخ الملفات.rar

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

جزاك الله خيراً أستاذى @أبو إبراهيم الغامدي

أستاذى @أبو إبراهيم الغامدي أتت هذه الرسالة عند تغيير اسم له صورة أو اسم ليس له صورة

ان شاء الله

أستاذى @أبو إبراهيم الغامدي اولا سوف أقوم بمنع التكرار و هو موجود بالفعل فى النموذج الذى اعمل عليه ثانيا النموذج الاخير يقوم بتغيير الاسم فقط و لا يقوم بتغيير الصورة ارجو التعديل على الكود التالى أن يحذف الامتداد (jpg)حيث هناك صور "jpeg" أو Png فقط Private Sub Form_Current() On Error GoTo errresult Dim ErrImage As String Dim CurImage As String ErrImage = "D:\Photo\123\No.jpg" CurImage = "D:\Photo\123\" & Me.Worker & ".jpg" Me.imgWorker.Picture = CurImage errresult: If Err.Number = 2220 Then Me.imgWorker.Picture = ErrImage Resume Next End If End Sub 'D:\Photo\123 Private Sub Worker_BeforeUpdate(Cancel As Integer) Dim OldImage As String Dim NewImage As String OldImage = Me.imgWorker.Picture NewImage = "D:\Photo\123\" & Me.Worker & ".jpg" If Dir(OldImage) = "No.jpg" Then Me.imgWorker.Picture = OldImage ElseIf Len(Dir(NewImage)) > 0 Then MsgBox Dir(NewImage) & vbNewLine & "يوجد صورة سابقة بنفس الاسم..", _ vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه" Me.Undo Else Name OldImage As NewImage Me.imgWorker.Picture = NewImage End If End Sub

أستاذى العزيز @أبو إبراهيم الغامدي الان عند تغيير الاسم له صورة لا يغيير اسم الصورة Private Sub Form_Current() On Error GoTo errresult Dim ErrImage As String Dim CurImage As String ErrImage = "D:\Photo\123\No.jpg" CurImage = "D:\Photo\123\" & Me.Worker & ".jpg" Me.imgWorker.Picture = CurImage errresult: If Err.Number = 2220 Then Me.imgWorker.Picture = ErrImage Resume Next End If End Sub 'D:\Photo\123 Private Sub Worker_BeforeUpdate(Cancel As Integer) Dim OldImage As String Dim NewImage As String OldImage = Me.imgWorker.Picture NewImage = "D:\Photo\123\" & Me.Worker & ".jpg" If Dir(OldImage) = "No.jpg" Then Me.imgWorker.Picture = OldImage ElseIf Len(Dir(NewImage)) > 0 Then MsgBox Dir(NewImage) & vbNewLine & "يوجد صورة سابقة بنفس الاسم..", _ vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه" Me.Undo Else Name OldImage As NewImage Me.imgWorker.Picture = NewImage End If End Sub هذا كان يعمل و المشكلة حدثت عندما حذفنا نوع ملف الصورة

أستاذى @أبو إبراهيم الغامديانا عدلتها عند تغيير اسم ليس له صورة لا تحدث مشكلة ..., ولكن تحدث مع الصور التى لها صورة