تمام اخي
المطلوب عندما يختار البلاتفورم و النوع و يضيف القيمة (x) يذهب للفورم الثاني و يحضر القيمة و يضربها في x
مثال
اختار تويتر و كليك و قيمة x مثلا 500 يذهب للفورم الاخري يحضر القيمة الذي امام تويتر و كليك (0.5) و يحضرها للفورم الاول
ثم يضرب القيمة في x
500 في 0.5 و تظهر في المربع target
تمام اخي
جزاك الله خير
يبدوا ان المشكلة عندي
انا عملت Modual
Option Compare Database
Public Myvalue As Integer
Public MyP2 As Integer
الفورم الاول
Myvalue = NP1.Value
MyP2 = Np2.Value
الفورم الثاني
If ComPlat.Value = Twitter & comType.Value = Click Then
TargetPlas.Value = txtCost.Value * Myvalue
Else
ComPlat.Value = Twitter & comType.Value = engagement
TargetPlas.Value = txtCost.Value * MyP2
End If
و لم يعمل
جزاكم الله خير
@ابو جودي جربت الكود بس انا عاوز ياخذ القيمة من الفورم الثانية
Dim MyWher As String
Dim A As String
Dim x() As String
A = DLookup("[p1] & '|' & [p2] & '|' & [p3] & '|' & [p4] & '|' & [p5] & '|' & [p6] & '|' & [p7] & '|' & [p7]& '|' & [p9]", "[PlatPrice]")
x = Split(A, "|")
MyWher = x(0)
If ComPlat.Value = "Twitter" And Me.comType = "Click" Then TargetPlas.Value = MyWher * 0.5
كدة هو بيضرب القيمة ثابته في 0.5 انا محتاج اضربها حسب القيمة الموجودة في p1 او p2 او p3 وهكذا
بعمل برنامج اكسس
عاوز اختار twitter و Click من الفورم TBLPLATEFORM
يذهب ياتي القيمة من p1 من الفورم PlatPrice
If ComPlat.Value = Twitter & comType.Value = Click Then
TargetPlas.Value = PlatPrice.NP1.Value * 0.5
ملف الاكسس
platform.rar
شكرا لكم
السلام عليكم
عندي الاكسس مش بيقراء عربي في الفيجول
بيطلع ؟؟؟؟؟؟؟
جربت انزل العربي و نفس المشكلة
النقطة الثانية
عاوز اخذ القيمة الموجودة في شاشة الاجمالي اضيفها في شاشة مجموع النقط totalPoints
جربت اخدها بيطلع error
شكراا جزيلا
مرفق الملف
New folder.rar
جزاكم الله خير
احب اشكر الجميع
الحمد لله المشكلة اتحلت
بس في مشكلتين بساط
الاول الاكسس مش بيقرا عربي بيطلع ؟؟؟؟ في العربي
الثانية عاوز اخذ القيمة الموجودة في شاشة الاجمالي اضيفها في شاشة مجموع النقط totalPoints
جربت اخدها بيطلع error
شكراا جزيلا للجميع
مرفق الملف بعد التعديل
New folder.rar
استاذ اشرف
سوف اخذ من الجداول الحقول
PointNo , Section number , Section weight , Number of shares , Share value
سوف انشاء شاشة
اضع مجموع pointno لكل جدول
ثم اخذ باقي الحقول و اعرضها في الشاشة و من ثم اقوم بادخال القيم لها
مرفق شاشة منفذها بالاكسيل
السلام عليكم
عندي مشكلة في انشاء Quary
اريد انشاء شاشة اجمالي عدد النقاط
عندي 5 جداول اريد ان اخذ من كل جدول 4 خانات و اقوم بالتعديل عليها
اريد انشاء شاشة اجمالي عدد النقاط
مرفق الملف
شكرا
New folder.rar