مساعدة فى كود فيجوال بالأكسيس

[khaledhelmy]

من فضلكم

أرفقت ملف أكسيس به نموذج من خمس خانات

توجد خانة AMOLA وعند الضغط على الزرار

أريد إذا كانت خانة 

SERVISE = MOBINIL

و

خانة

KIND_SERVISE= TOPUP

يبقى

خانة TRANSACTION_AMOUNT مضروبة * 0.26/100

والناتج يكون فى خانة  AMOLA

 

والشرط

 

SERVISE = MOBINIL

و

خانة

KIND_SERVISE= BILLPAYMENT

يبقى

خانة TRANSACTION_AMOUNT مضروبة * 0.78/100

والناتج يكون فى خانة  AMOLA

وفى حالة عدم تحقق الشرطين تكون خانة AMOLA = 0

ولكن أرجو من حضراتكم أن يكون الكود فى محرر أكواد الفيجوال بيسك الخاص بنموذج الأكسيس

وهذا هو الكود الذى أستخدمه ولكن لا اعرف لماذا عدم التنفيذ

Private Sub Command12_Click()
If TEXT2.Text = "MOBINIL" And TEXT3.Text = "TOPUP" Then
TEXT5.Text = TEXT4.Text * 0.026 / 100
Else
If TEXT2.Text = "MOBINIL" And TEXT3.Text = "BILLPAYMENT" Then
TEXT5.Text = TEXT4.Text * 0.078 / 100
Else
TEXT5.Text = 0
End If
End If
End Sub

 

 

 

 

 

[ابو جودي]

اين المرفق ؟

[يوسف أحمد]

السلام عليكم

اخي العزيز

حقل العموله هو حقل محسوب والأفضل عمله باستعلام او ضمن جمله مكافئة له لتكون مصدر لبيانات النموذج ( qbf ) او التقرير ان كنت لا تريد حفظ الاستعلام .

وإذا أردت ذلك بالكود فاستخدم الخاصيه value بدلا من الخاصيه text حتى تحصل على القيمه الرقميه للعنصر مثل

Text2.text

غيرها الى

Text2.value

اعمل هذا مع كل مربعات النصوص بالكود وان لم تصل الى نتيجه ضع مثال ليتم العمل عليه

بالتوفيق

بارك الله فيك اخي العزيز أسير الشروق وجعلك سباقا الى الخير دائما

تم تعديل فبراير 4, 2015 بواسطه yousef

[khaledhelmy]

إخوانى الكرام : لكم جزيل الشكر والإحترام على مجهودكم معى

أعتذر لكم لاننى نسيت أن أرفق الملف على المنتدى

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

إخوانى الكرام

الحمد الله لقد عالجت الكود فى محرر الفيجوال بيسك

ولكن بقيت مشكلة واحدة وهى

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

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

أرجو الإفادة وجزاكم الله كل خير

USER.rar

[khaledhelmy]

ارجو الإفادة أفادكم الله

[يوسف أحمد]

بارك الله فيك اخي خالد

 

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

 

 

76  شرط ؟ هذا الرقم كبير و اعتقد بأنه يمكنك تفاديه بتصميم يفي بمتطلبك .

 

و ايضاً كنموذج مستمر يفضل ان تكون النتائج عن طريق استعلام للحقول المحسوبة .

 

الرجاء توضيح الفكرة للبرنامج فقد يكون هناك حلول اخرى

 

 

بالتوفيق

[khaledhelmy]

الأخ الكريم / يوسف

فكرة البرنامج أن  خانة SERVISE يوجد بها 43 خدمة وخانة KIND_SERVISE بها 76 خدمة متفرعة من خدمة ال SERVISE

وكل خدمة من ال76 لها عمولة مختلفة عن الأخرى .

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

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

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

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

أرجو من حضرتك يا أخ يوسف الحل لانى حاولت كثيراً

[يوسف أحمد]

تفضل اخي العزيز خالد 

Dim rs As Recordset
Set rs = Me.Recordset
With rs
 .MoveFirst
  Do Until .EOF


   If [TEXT2] = "MOBINIL" And [TEXT3] = "TOPUP" Then
      TEXT5 = [TEXT4] * 0.026
   Else
      If [TEXT2] = "MOBINIL" And [TEXT3] = "BILLPAYMENT" Then
         TEXT5 = 1.6 * 1
      Else
         If [TEXT2] = "VODAFONE" And [TEXT3] = "TOPUP" Then
             TEXT5 = [TEXT4] * 0.038
         Else
            If [TEXT2] = "VODAFONE" And [TEXT3] = "BILLPAYMENT" Then
               TEXT5 = 4.8 * 0.038
            Else
              TEXT5 = [TEXT4] = 0
            End If
         End If
      End If
    End If
  .MoveNext
   Loop
.MoveFirst
End With
Set rs = Nothing

بالتوفيق

[khaledhelmy]

سلمت يداك والله يعطيك من علمه كثيرا

جزيل الشكر لك يا أخ / يوسف

[khaledhelmy]

الأخ الكريم / يوسف

معلش هزعج حضرتك معايا

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

وشكراً وجزاك الله كل خير