أبو إبراهيم الغامدي

لا أحد يفر من صائد الخبراء..😎 مبارك عليك الشارة أستاذ خالد أرجو من جميع الزملاء الانتباه على إجاباتهم حتى لا يقعوا في المصيدة..😉

وعليكم السلام @ابوآمنة نحن أكثر فرحا وحفاوة بهذه المشاريع التي تثلج الصدر وتشرح الخاطر.. وقد ضمنتها تجارك الخاصة، مع ما افدته من هذا المنتى.. في نظري.. المشروع كبير وأعجب كيف استطعت أن تؤلف بين هذا كله.. لا أشك أنه أخذ منك وقتا ليس بالقصير حتى تمكنت من إخراجه بهذه الصورة.. أتطلع منك في المستقبل القريب أن توافينا بشرح موجز بسيط عن مخطط هذا المشروع وكيفية أدائه، لأنه صعب علي التوفيق بين أغراضه (جداول، استعلامات، نماذج، تقارير..إلخ) لتعددها. تمنياتي لك بالتوفيق

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

أرجو أن تفتح عيناك عند النظر إلى الشفرة : Quit <> Close أبداً عطل Close وشغل Quit فقط

آسف جدا.. دائما ما توقني الوظيفة متنوعة البيانات في الخطأ عند استخدامها في الاستعلام... غير الشفرة أعلاه إلى level: CDbl(Cons0819([issue date];[consum];4)) وكذلك Cost: CDbl(Cons0819([issue date];[consum];1))

[level] تعيد سلسلة نصية عبارة عن اسم الشريحة في الاستعلام: قم بإنشاء عمود جديد باسم pay مثلا ثم مرر عليه الوظيفة على أن تكون قيمة المحدد الثالث (4)؛ بهذا تحصل على قيمة تمثل قيمة الرسوم والدمغات لنفس مستوى الشريحة ثم قم بوظعه بدلا عن [level]

هذا ليس جمعاً!.. هذا اقتران سببه أحد أمرين؛ إما أن تكون البيانات المدخلة أحدهما أو كلاهما عبارة عن سلسلة نصية، أو أن يكون العامل علامة الاقتران (&) وليس علامة الزائد (+) أرجو التكرم بتفقد ما ذكر رجاءً..

لم أشاهد الشفرة بعد.. لكن هذه العبارة بألف كلمة.. تحياتي لك أستاذ جعفر 😇

أهلا @محمد احمد لطفى جمعت لك البيانات كلها في وضيفة واحدة وسميتها ()Cons0819 الأرقام في اسم الوظيفة يدل على الشهر والسنة للوظيفة ثلاث محددات: تاريخ الاستهلاك، وكمية الاستهلاك، ودليل البيانات الراجعة كتبت في الوظيفة تفسيرا لقيمة البيانات الراجعة قمت بوضع بعض القيمة الراجعة من الوظيفة بجوار نظيرها في الاستعلام من أجل إجراء مقارنة سريعة للتأكد صحة البيانات المهم أن الوظيفة ينقصها بعض المراجعة والضبط مع متطلباتك.. أرجو التكرم بالمراجعة.. إليك التعديل: كهرباء 2019.mdb

أهلا بك @ازهر عبد العزيز حتى ينتهي @ابا جودى و @Khalf من العتاب إليك الطريقة في عرض التصميم للنموذج.. حدد زر الأمر المطلوب؛ ومن التبويب أخري.. غير قيمة افتراضي إلى نعم!

أهلا @محمد احمد لطفى مع كوني أول من أسس لك هذه الشفرة إلا أني لم أعد أتذكر كيف أسستها! المهم الآن إذا أردت إدخال البيانات مباشرة في الجدول وترك الاعتماد على الاستعلام .. فيجب تعديل الشفرة أعلاه وذلك بتبديل عيارة If بعبارة Select Case .. اقرأ عن هذه الأخيرة في التعليمات.. .. ضع الشفرة بعد التعديل في حدث قبل التحديث لحقل الاستهلاك الحالي وذلك لكي تتمكن من رؤية البيانات الناتجة من الشفرة في حقولها المخصصة قبل مغادرة حقل الاستهلاك الحالي. .. لا أظن أنك بحاجة إلى فحص تاريخ القراءة إلا إذا كان تاريخ سريان الشرائح لم يأتي بعد.ز .. من الخطأ بقاء شفرة شرائح السنوات الماضية في المشروع! إلا إذا كان لديك فواتير متأخرة تريد جدولتها.

أهلا بك أستاذ أبو خليل.. لفت نظري كثرة الردود.. فدخلت.. في الحقيقة بالنسبة لى أستخدم بيئة مستخدمي ويندوز في إدارة المستخدمين.. أما بالنسبة لقاعدة البيانات فأقوم بتسليم مشاريع مفتوحة المصدر مع تدريب بسيط للمستخدمين ذووا القدرة على التطوير لمعالجة الأخطاء البسيطة. وأيضاً كمحفز لارتكاب الآخطاء الجسيمة! من أجل استمرار تقديم الدعم الفني.. ذئب في جلد حمل! أما معالج الامان والمستخدمين فقد استخدمته مرة واحدة فقط في إصدار 97. أما عند الحاجة فأقوم بعمل ذلك برمجيا.. مشارعي ترتكز على البساطة في الاستخدام والبعد عن التكلف المعقِد للاستخدام.. .. نأتي على بيت القصيد 2003 فأعترف لك بأن اعتماد كثير من مطوري أكسس على 2003 هو بسبب وفرة المعالجات المساعدة بما فيها معالج شريط الأدوات وهذا ينسحب على 2002 و 2000. وفي اعتقادي 1997 أكثرهم حظاً! وهناك سبب آخر هو الاعتماد على البرمجة السطحية والعزوف عن برمجة الكائنات.

من حقنا عليك أن تكشف عن هذه الطريقة المثالية..

أهلا بك @figo82eg أشكرك على تفهمك لسياسة المنتدى.. أتمنى من أحد متابعي الأفاضل التكرم بوضع تصورة للشفرة وكيفية تطبيقها.. 👨‍💻

أتمنى من أحد متابعي الكرام التكرم بإجابة @figo82eg على طلبه، لأن المشاركة بالنسبة لي منتهية.. يمكن أكمال المشاركة على هذا الرابط

أهلا بك @محمد احمد لطفى وأتطلع لخدمتك في المستقبل..

آسف على هذا الإرباك.. Worker.mdb

أهلا @محمد احمد لطفى كان من المفترض أن آخذ لاحقة الصورة الحالية للموضف وأدمجها مع الاسم الجديد هذه هو سبب الإرباك الذي حصل.. إليك التعديل Worker.mdb وهذي هي الشفرة بعد التعديل Option Compare Database Option Explicit Dim ImgPath As String Private Sub Form_Current() On Error GoTo errresult Dim ErrImage As String Dim CurImage As String Dim ImageName As String ImageName = Dir(ImgPath & Me.Worker & ".*") ErrImage = ImgPath & "No.jpg" CurImage = ImgPath & ImageName Me.imgWorker.Picture = CurImage errresult: If Err.Number = 2220 Then Me.imgWorker.Picture = ErrImage Resume Next End If End Sub Private Sub Form_Load() ImgPath = "D:\Photo\123\" End Sub Private Sub Worker_BeforeUpdate(Cancel As Integer) Dim CurImage As String Dim NewImage As String Dim ImgExtention As String CurImage = Me.imgWorker.Picture ImgExtention = Mid(CurImage, InStr(CurImage, ".")) Debug.Print ImgExtention NewImage = ImgPath & Me.Worker & ImgExtention If Dir(CurImage) = "No.jpg" Then Me.imgWorker.Picture = CurImage ElseIf Dir(NewImage) <> "" Then 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 End Sub

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

ليس صحيحا! الشفرة كانت ناقصة! إذا كان هناك صورة اسمها (محمد.jpg) وأردت أن تغير اسم أحمد إلى محمد فإن صورة أحمد بالتالي سيتغير اسمها إلى محمد؛ وهذا يعني وجود صورتين بنفس الاسم في مجلد واحد! وهذا منطقيا غير مقبول. وإذا كان الخطأ في الاسم فقط فلابد من وجود رسالها تخير المستخدم بقبول تغيير الاسم من عدمه ولهذا أرفقت لك التعديل

من المفترض أن هذه الرسالة تظهر فقط مع صورة الموظف إذا كنت بصدد تعديل اسمه إلى اسم له صورة من قبل وفي هذه الحالة نحن بحاجة إلى تعديل الرسالة إلى رسالة تفيد بوجود الصورة وخيار تعديل الاسم فقط.. Worker.mdb

سوف أرجع إلى قاعدة البيانات وأتحقق من القصور,,

أسف لهذا الغلط.. عندما عدلت الشفرة نسيت أن أعدل هذا ..

نعم.. استخدم هذه الشفرة.. مع ملاحظة الفروق Private Sub Form_Current() On Error GoTo errresult Dim ErrImage As String Dim CurImage As String Dim ImageName as String ImageName=Dir("D:\Photo\123\" & Me.Worker & ".*") ErrImage = "D:\Photo\123\No.jpg" CurImage = "D:\Photo\123\" & ImageName 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 Dim ImageName as String ImageName=Dir("D:\Photo\123\" & Me.Worker & ".*") OldImage = Me.imgWorker.Picture NewImage = "D:\Photo\123\" & ImageName If Dir(OldImage) = "No.jpg" Then Me.imgWorker.Picture = NewImage 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

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