الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفية تحديد سعر الخدمة بناء على متغير

بدأه wael_rafat في 18 أكتوبر 2014 · 14 رد · 889 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

الاخوة والاخوات الافاضل أعضاء ومشرفي منتدانا الجميل

الأخ الفاضل جعفر

تحية طيبة وبعد

سؤالي هو كيفية وضع سعر لخدمة معينة ( خدمة ليموزين )  بناء على قيمة متغير ( منطقة )

 على سبيل المثال :

خدمة ليموزين الى المنطقة ( أ )  تكون بسعر 5

خدمة ليموزين الى المنطقة ( ب ) تكون بسعر 10

 خدمة ليموزين الى المنطقة ( ج ) تكون بسعر  15 ...... وهكذا

علما انه يوجد اكثر من 100 منطقة

اتمني ان يكون الاستفسار واضح    وشكرا ..

#2

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

الحقل الاول ترقيم تلقائى

الحقل الثاني "اسم المنطقة"

الحقل الثالث "سعر الخدمة"

؟؟؟؟

#3

طيب انا عملتلك مثال بسيط اتمنى يفى طلبك

 

 

lemozen.rar

#4

السلام عليكم

تسلم اخي الكريم  Astra  علي المشاركة

يبدو انني لم اقم بتوصيل الاستفسار بشكل واضح

الفكرة هي  كيف يتم التسعير بناء على متغيرين وهما (  نوع السيارة  -  وايضا المنطقة )

بمعني مثلا :  ان سعر السيارة الصالون نوع لانسر لمنطقة مصر الجديدة يختلف عن سعر السيارة الفان نوع لانسر لنفس المنطقةpost-280147-0-81210800-1413878765_thumb.limousine.rar

مرفق صورة توضيحية والقاعدة

#5

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

تم تعديل هذه المشاركة بواسطة aboumouaz في 23 أكتوبر 2014 في 10:26

( سبحانك لا علم لنا إلا ما علمتنا إنك أنت العليم الحكيم )

#6

تسلم اخي الكريم

#7

وعليكم السلام اخي وائل :)

 

في نظري ، هناك طريقتين لحل الموضوع:

1. تعمل جدول بالمنطقة والسيارة ، وتحط السعر ، هكذا:

post-273849-0-38539300-1414143535.jpg

 

وبالطريقة هذه هذه نأخذ القيمة مباشرة من الجدول ، حسب السيارة والمنطقة :)

 

2. نعمل جدول مستقل للسيارات وسعرها:

post-273849-0-23171600-1414143566.jpg

 

وجدول آخر للمنطقة وسعرها:

post-273849-0-06698500-1414143597.jpg

 

وحسب السيارة ، والمنطقة المختارة ، نضرب/نجمع سعر السيارة مع سعر المنطقة :)

 

 

جعفر

تم تعديل هذه المشاركة بواسطة jjafferr في 24 أكتوبر 2014 في 12:40

#8

السلام عليكم

مشكور اخي الكريم جعفر علي المشاركة

ولكنني توصلت لطريقة اخري  ولكنها ينقصها بعض الاشياء برجاء الاطلاع عليها واعطاء رايك

 

limousine.rar

#9

وعليكم السلام :)

 

في البرمجة ، كل شئ يمشي :)

 

بالنسبة لبرنامجك ، واذا اردت ان تواصل ، فاقترح:

1. ان تجعل المستخدم يختار المنطقة اولا ، وبدون ان تظهر سعر الصالون او الفان ،

2. لما تختار السيارة (وعندها تعرف هل هي صالون او فان) ، حينها تظهر السعر الصحيح من رقم 1 اعلاه :)

 

 

جعفر

#10

السلام عليكم

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

والمطلوب بعد اذنك ....   في حالة تغير اي من المنطقة او السيارة يظهر السعر تلقائيا بون الضغط علي Save

 مرفقات

limousine 2.rar

#11

وعليكم السلام :)

 

تفضل :)

 

اضفت حقل في الجدول Tcar ، اسميته Car_Type ، وهو يوضح نوع السيارة سواء salon او van (طبعا كان ممكن أأخذ هذه المعلومة من اسم السيارة صالون او فان ، ولكن الافضل عدم استخدام الاسماء العربية في الكود) ،

وفي النموذج ، اضفت هذا الحقل في حقل السيارة ،

فعليه ، عند اختيارك المنطقة ، ثم تختار السيارة ، فان السعر يتغير حسب نوع السيارة :)

 

وبهذه الطريقة ، تستطيع اي تضيف اي نوع من السيارات :) ، وكل اللي عليك عمله هو اضافة/تغيير الكود:

Private Sub car_no_AfterUpdate()

    If Me.car_no.Column(2) = "van" Then
        Me.price = Me.van_price
    
    ElseIf Me.car_no.Column(2) = "salon" Then
        Me.price = Me.salon_price
        
    End If
    
End Sub

جعفر

297.2.limousine.mdb.zip

تم تعديل هذه المشاركة بواسطة jjafferr في 27 أكتوبر 2014 في 19:14

#12

بارك الله فيك اخي الفاضل  جعفر ..... ولكن

يفضل بعد اذنك ... انه يتم تغيير السعر بناء علي اختيار اياً من المتغيرين ( سواء المنطقة  او السيارة )  وليس السيارة فقط

وبدون  الضغط علي زر save

بمعني اخر .... اريد اداء عمل زر save   ولكن عن طريق كود او استعلام .

ولكم جزيل الشكر ....

#13

حياك الله :)

 

غير الكود التالي:

Private Sub area_no_AfterUpdate()
Me.car_no.Enabled = True
Me.car_no.SetFocus
End Sub

الى:

Option Compare Database

Private Sub area_no_AfterUpdate()
    Call car_no_AfterUpdate
Me.car_no.Enabled = True
Me.car_no.SetFocus
End Sub

جعفر

#14

تسلم وجزاك الله كل خير

#15

:)

مواضيع مشابهة