husamwahab

مشاركة مع استاذ علاء محمد علي حسب فهمي لطلبك فانك تريد نسبة ربح جديدة لكل منتج بعد الخصم نسبة الربح للمنتج بعد الخصم = 0.75 * (1 + نسبة الربح للمنتج قبل الخصم) - 1 هذه المعادلة لنسبة خصم 25% ومن المعادلة يلاحظ ان نسبة الخصم كبيرة جدا حيث انه ستكون خسائر للمنتجات ذات نسب الارباح القليلة اما المعادلة العامة فهي نسبة الربح للمنتج بعد الخصم = (1 - نسبة الخصم) * (1 + نسبة الربح للمنتج قبل الخصم) - 1

مشاركة مع استاذ جعفر ارجو ان تكون موفقة aaa.rar

تفضل هذا التعديل حسب فهمي ملاحظة : الغرض من اختيار اكثر من حقل كمفتاح رئيسي هو منع تكرار بيانات هذه الحقول معا لكن اذا كان احد هذه الحقول المختارة كمفتاح رئيسي رقم تلقائي فلا فائدة من جعل بقية الحقول مفتاح رئيسي لان الرقم التلقائي لا يتكرر Sample-100.rar

بالخدمة استاذ Mohameddd2003 RRR.rar

تفضل التعديل مع ملاحظة جدول tblWeights اخر الجمعه 4111.rar

تفضل هذه المحاولة ارجو ان تكون طلبك Desktop.rar

بالخدمة استاذي العزيز

تفضل هذه المحاولة ملاحظة التغييرات التي اجريت على جدول الاصناف وجدول الكميات وجدول TransactionS تم احتساب الاجمالي على اساس ان السعر يخص الوحدة الاعلى في جدول الكميات بغض النظر عن الوحدات المختارة في جدول TransactionS محجر-2.rar

تفضل هذه المحاولة وهي استكمالا لحل استاذ obaid70 جزاه الله كل خير محجر-1.rar

احسن ناس وعلى الراس وبالعين

اجمعين يارب العالمين رحم الله والديك على هذا الدعاء وانا بخدمتك استاذي العزيز

مشاركة مع استاذي العزيز ابا جودي aaa.rar

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

تفضل هذه المحاولة حسب فهمي لطلبك Root-111.rar

السلام عليكم استاذ محمود حاتم احمد تفسير الكود ان خزن النسخة الاحتياطية يتم في فولدر backup ويجب ان يكون الفولدر بجانب قاعدة البيانات اي في نفس المسار وعليه هناك طريقتين للحل حسب فهمي لطلبك الاولى : ان ننشاء فولدر بجانب قاعدة البيانات كلما دعت الضرورة لذلك وهي طريقة غير عملية لاننا سنجد تعدد الفولدر وباماكن مختلفة كذلك تشتت النسخ الاحتياطية وهذا هو كود الطريقة الاولى On Error GoTo MyErr Dim strFilePath As String strFilePath = CurrentProject.Path & "\backup" Dim OldFile, DBwithEXT, DBwithoutEXT, NewFile, CopyMyDB adad = CurrentProject.Path & "\Blocks_be.accdb" OldFile = adad DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) If Len(Dir(strFilePath, vbDirectory)) = 0 Then MkDir strFilePath SetAttr strFilePath, vbNormal End If NewFile = strFilePath & "\Blocks_be-" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-ss-AMPM.") & Right(DBwithEXT, 5) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 MyErr: If Err.Number <> 0 Then MsgBox Err.Number & " - " & Err.Description End If الطريقة الثانية : ان نجعل في الكود مسار ثابت لخزن النسخ الاحتياطية وبالتالي يمكن تشغيل قاعدة البيانات في اي مكان من الهارد وهذه الطريقة عملية اكثر ولا تؤدي الى تشتت النسخ الاحتياطية وهذا كود الطريقة الثانية علما ان الحفظ سيتم في c في فولدر backup On Error GoTo MyErr Dim strFilePath As String strFilePath = "C:\backup" Dim OldFile, DBwithEXT, DBwithoutEXT, NewFile, CopyMyDB adad = CurrentProject.Path & "\Blocks_be.accdb" OldFile = adad DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) If Len(Dir(strFilePath, vbDirectory)) = 0 Then MkDir strFilePath SetAttr strFilePath, vbNormal End If NewFile = strFilePath & "\Blocks_be-" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-ss-AMPM.") & Right(DBwithEXT, 5) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 MyErr: If Err.Number <> 0 Then MsgBox Err.Number & " - " & Err.Description End If وعذرا للاطالة

انتم الخير والبركة استاذي العزيز اي والله على الراس وبالعين

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

مشاركة مع اساتذتي الاجلاء

تفضل التعديل ارجو ان يكون طلبك block-10.rar

السلام عليكم مشاركة مع استاذي العزيز الفلاحجى اخ Matin_Murad وصفك للمطلوب غير صحيح فهناك عبارة التعامل مع سجلات مكررة وهو ما فهمه استاذ احمد منك وكان حله صحيح اما ما تريده هو التعامل مع قيم مكررة في حقل وهو حل اخر بالاضافة يجب ان توضح مصير الحقول الاخرى بحيث هل تريد القيمة الاولى ام الاخيرة ام المجموع وهذا تعديل بطلبك مع مجموع الحقل الثاني وعذرا للاطالة onerecord-1.rar

حبيبي استاذ عبد العليم انا بخدمتك ودعوة طيبة منك تكفي وتزيد

تفضل التعديل اخ بلال اليامين ارجو ان يكون طلبك Root111.rar

تفضل هذه المحاولة moh-313.rar

بالخدمة اخي العزيز النموذج الفرعي نموذج المستندات هو نموذج مستمر والعنصر الذي يظهر الصورةهو غير منظم المشكلة كانت بانه تم وضع كود اثناء التحميل بان ياخذ مسار صورة النموذج الرئيسي وحلها كان ان ياخذ مسار الصور في النموذج الفرعي لذا تم حذف الكود المجود في النموذج الفرعي (عند حدث عند التحميل) وجعلنا مصدر بيانات العنصر الذي يظهر الصورة في النموذج الفرعي هو مربع نص مسار الصور في النموذج الفرعي ارجو ان يكون الشرح واضح وعذرا للتقصير

تفضل التعديل ارجو ان يكون طلبك ترقيم تلقائى-3.rar