محمد أبوعبدالله

نفس الكود مع تغيير السطر For i = 1 To 30 الى For i = 1 To text1.Value باعتبار مربع النص باسم text1 ليكون بهذا الشكل Private Sub Cmd_barcode_Click() For i = 1 To text1.Value DoCmd.OpenReport "reb_barcode", acViewNormal Next i End Sub تحياتي

سنعتبر ان التقرير الخاص بالباركود باسم reb_barcode سنضع زر امر في النموذج ونضع له الامر التالي Private Sub Cmd_barcode_Click() For i = 1 To 30 DoCmd.OpenReport "reb_barcode", acViewNormal Next i End Sub تحياتي

السلام عليكم ورحمة الله وبركاته بالنسبة لويندوز 7 نسخة 64 يجب نسخ ملف barcodex.ocx الى مجلد syswow64 في المسار التالي C:\Windows\syswow64 ثم من قائمة ابدا نكتب في خانة البحث cmd ثم تشغيل cmd كمسؤول ثم نكتب الامر التالي regsvr32 \windows\syswow64\barcodex.ocx تحياتي

السلام عليكم تم التعديل من فضلك راجع المرفق تحياتي 1.rar

جزاك الله خيرا اخي Shivan Rekany وارجو من الله ان يوفقك في الدارين تحياتي

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

وعليكم السلام ورحمة الله وبركاته للاسف اخواني جربت الحلةل المقترحة وما زالت المشكلة مرفق قاعدة البيانات ارجو التعديل عليها ولكم الشكر تحياتي db1.rar

بسم الله الرحمن الرحميم الاحوة الكرام السلام عليكم ورحمة الله وبركاته عند الجمع التراكمي بدالة DSum اقوم بجمع كمية الشراء من جدول المشتريات بمعيار حقل المسلسل Id هكذا Total: Nz(DSum("Quantity";"Purchase";"[IdProduct]=" & [IdProduct] & "and [Id]<=" & [Id]);0) يكون الناتج صحيح وعند تنفيذ نفس الامر بمعيار التاريخ Xdate لا يعمل هكذا Total: Nz(DSum("Quantity";"Purchase";"[IdProduct]=" & [IdProduct] & "and [Xdate]<=" & [Xdate]);0) فهل يمكن حل المشكلة لاستيدالها بمعيار التاريخ Xdate ولكم وافر بتحية والسلام عليكم ورحمة الله وبركاته

السلام عليكم لنفرض ان لديك حقل النوع باسم Male ونوعه = checkbox وعند اختيار ذكر قيمة checkbox = -1 وعند اختيار امثى قيمة checkbox = 0 لايجاد مجموع الذكور =DSum("[Grad]";"Table";"Male=-1") لايجاد مجموع الاناث =DSum("[Grad]";"Table";"Male=0") تحياتي

السلام عليكم مرحبا احي الكريم تفضل موقع المركز المصرى للملكية الفكرية http://ecipit.org.eg/arabic/Registration_services_A.aspx تحياتي

السلام عليكم تفضل اخي الكريم تحياتي

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم سبفيدك الرابط التالي ان شاء الله تحياتي

السلام عليكم ورحمة الله وبركاته في شىء غير واضح وهو سعر الوحدة القيمة ( السعر / 1.13 ) ضريبة القيمة المضافة ( القيمة * 0.13 ) ضريبة القيمة المضافة سيقوم بارجاع القيمة الى سعر الوحدة مرة اخرى فلماذا تحتاج هذه العملية ؟؟؟ عموما مرفق ملف لما طلبته ارجو ان يكون هو المطلوب تحياتي db3.rar

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

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم جرب الكود التالي Dim i, y, sh As Double y = 1 sh = DCount("*", "tbl1") For i = y To sh + (y - 1) DoCmd.OpenForm "FormName" Next i DoCmd.Close acForm, "FormName" DoCmd.OpenReport "ReporName", acViewPreview, "", "", acNormal ارجو ان يكون الكود واضح تحياتي يتم وضع الكود في حدث عند الفتح Private Sub Report_Open(Cancel As Integer) Dim i, y, sh As Double y = 1 sh = DCount("*", "tbl1") For i = y To sh + (y - 1) DoCmd.OpenForm "FormName" Next i DoCmd.Close acForm, "FormName" DoCmd.OpenReport "ReporName", acViewPreview, "", "", acNormal End Sub

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

تم تعديل البسملة وفي انتظار المساعدة من الاخوة والشكر للجميع تحياتي

وعليكم السلام ورحمة الله وبركاته افدنا بالحل افادكم الله اخي ناصر تحياتي

بسم الله الرحمن الرحيم الاحوة الكرام السلام عليكم ورحمة الله وبركاته لحساب متوسط سعر الشراء = اجمالي المشتريات / كمية البضاعة مثال :سعر الصنف * الكمية 30 * 10 = 300 50 * 10 = 500 100 * 10 = 1000 ================ تطبيق لحساب متوسط سعر الشراء = اجمالي المشتريات / كمية البضاعة متوسط سعر الشراء = 1800 / 30 = 60 فاذا قمنا بعملية بيع 15 قطعه والرصيد اصبح = 30 - 15 = 15 قيمة البضاعة = متوسط سعر الشراء * رصيد البضاعة قيمة البضاعة = 60 * 15 = 900 ================ فاذا قمنا بعملية شراء جديدة - قطعه واحدة وارتفع سعر السلعة الى 200 200 * 1 = 200 تطبيق لحساب متوسط سعر الشراء = اجمالي المشتريات / كمية البضاعة 30 * 10 = 300 50 * 10 = 500 100 * 10 = 1000 200 * 1 = 200 متوسط سعر الشراء = 2000 / 31 = 64.52 فرصيد الاصناف اصبح = 16 قيمة البضاعة = 60 * 16 = 1032.25 ================ كانت قيمة الضاعة قبل عملية الشراء الاخيرة = 900 وبعد شراء قطعه واحدة = 200 اصبحت قيمة البضاعة = 1032.25 لو طرحنا الرقمين = 1032.25 - 900 = 132.25 مع اننا قمنا باضافة بضاعة بقيمة 200 لذلك انا اواجه مشكلة في تقدير قيمة المخزون لعدم ثبات متوسط سعر الشراء حسب كل عملية بقيمة مختلفة فقد يرتفع او ينخفض السعر فجأة فارجو ان تساعدوني لحل هذه المشكلة التي ارعقتني كثيرا جدا ولكم وافر بتحية والسلام عليكم ورحمة الله وبركاته

بسم الله الرحمن الرحيم الاخوة الكرام السلام عليكم ورحمة الله وبركاته برجاء المساعدة في حساب الارباح مرفق قاعدة بيانات بها جدول + استعلام الجدول ( اسم الصنف - سعر الشراء - كمية الشراء - خصم شراء - كمية مرتجع - سعر البيع - كمية البيع - خصم البيع - كمية مرتجع) اريد في الاستعلام الاجمالي لكل (اسم الصنف - سعر الصنف - كمية الرصيد - قيمة الرصيد ) الاستعلام الموجود في المرفق يقوم بجمع سعر الشراء وبناءا عليه فقيمة المخزون خطأ ولكم وافر التحية والسلام عليكم ورحمة الله وبركاته db1.rar

وعليكم السلام ورحمة الله وبركاته تفضل هذا الموضوع سيفيدك جداً تحياتي

التاريخ.rar السلام عليكم الملف بعد التعديل تحياتي التاريخ.rar

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

السلام عليكم اخي العزيز ياسر المسكلة ليست في الاوامر ولكن عند الاختيار من القائمة لا يتم الفلترة ويتم استدعاء جميع البيانات علما باني استخدم اكسيل 2003 دمت بكل خير تحياتي

الف مبروك استاذنا الكبير سليم