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

نفس الكود مع تغيير السطر

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

16 دقائق مضت, Shivan Rekany said:

مع الحقول التواريخ بيستخدم "#" مع المعيار

13 دقائق مضت, صالح حمادي said:

السلام عليكم

وعليكم السلام ورحمة الله وبركاته

للاسف اخواني جربت الحلةل المقترحة وما زالت المشكلة

مرفق قاعدة البيانات ارجو التعديل عليها ولكم الشكر

تحياتي

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

20 ساعات مضت, أمير2008 said:

هههههههه

والفضول ايضا لم يجعلك تقرأ لا العنوان ولا الموضوع ؟ ولم تفهم المطلوب ؟

سبحان الله

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

تم تعديل البسملة

وفي انتظار المساعدة من الاخوة

والشكر للجميع

تحياتي

وعليكم السلام ورحمة الله وبركاته

11 دقائق مضت, ناصرالمصرى said:

وحله بسيط جدا جدا

افدنا بالحل افادكم الله اخي ناصر

تحياتي

بسم الله الرحمن الرحيم

الاحوة الكرام

السلام عليكم ورحمة الله وبركاته

لحساب متوسط سعر الشراء = اجمالي المشتريات / كمية البضاعة

مثال :سعر الصنف * الكمية
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

دمت بكل خير

تحياتي

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