مساعدة في كود if

[Ahmed.IQ]

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

اخواني انا عمل دالة if كما هوا موضح الان

If Me.X = DLookup("[CodDe]", "outcome") And Me.F1 = DLookup("[CodTy]", "outcome") Then
Me.F2 = [أسم الحقل]![الجدول]
End If

الداوله تقول عندما يكون x تروح تبحث في الحقل CodDe الموجود في الجدولoutcome وايضاً عندما يكوم F1 يساوي الحقل CodTy في الجدول outcome اذا F2 تساوي القيمة الموجودة في الحقل prt في الجدول outcome 

فا احتاج الى طريقة استدعاء قيمة prt لادخالها في حقل F2 في الفورم ,,

واذا كان هناك اي تعديل على الكود ياريت الافادة

[AlwaZeeR]

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

If a = DLookup("CodDe", "outcome", "codID=" & Me.codID) And b = DLookup("[CodTy]", "outcome", "codID=" & Me.codID) Then
c = DLookup("[prt]", "outcome", "codID=" & Me.codID)
Else
 c = "القيم لا تطابق المعايير"
End If

::

تحياتي

alwazeer-1.rar

[Ahmed.IQ]

اخي الكريم اشكرك على اهتمامك سوف ارفق لك نموذج للذي اقصده

https://drive.google.com/open?id=0BzSUEgL-4myjalgxVWR2aFNSRHc

عند دخولك على ملف seles سوف يظهر عندك النموذج القائمة المنسدلة تمثل كود المندوب

اما الخانات الخمس التي تمثل خمس اصناف احتاج عند اختيار رقم المندوب تظهر لدي اسعار كل مادة في هذه الخانات بشرط كود المندوب وكود المادة يعني لو تم اختيار المندوب رقم 1 من القائمة المنسدلة سوف يظهر في الصنف رقم 1 سعر المادة رقم 1 الموضوعة للمندوب

والمادة رقم 2 الى نهاية المادة رقم 5

ولو قمت بختتيار كود المندوب رقم 2 سوف تظهر لدي اسعار المواد المذكورة لكن باسعار مختلفة عن المندوب الاخر

ارجو ان الصورة قد وضحت

[AlwaZeeR]

 

فهم السؤال ثلثي الإجابة

الاجابة الاولى كانت على حسب ما طلبت

تفضل أخي الكريم ،،، هذا ما طلبت جرب ووافني بالنتيجة

::

تحياتي

Alwazeer-mand.rar

[Ahmed.IQ]

شكرا لك اخي الوزير لكن هل من الممكن ان تشرح لي الكود الذي قمت بوضعة ؟

F2 = DLookup("[price]", "outcome", "[CodTy] = 1 And CodDe=X")

مع مطلب اخير اذا ممكن نسيت اذكرة ..

احتاج عمل زر حفظ عندما اضغط عليه ياخذ ال coddy من حقل ال X ويضعة في جدول total في خانة coddy ايضاً وباقي المعلومات المجموع الكلي والتاريخ تحفظ تلقائياً

تم تعديل يونيو 23, 2016 بواسطه Ahmed.IQ

[AlwaZeeR]

شرح الكود:

ابحث عن price في جدول outcome عندما تكون قيمة codTy = قيمة الحقل، ضمن معيار codDe = قيمة الحقل الموجود في حقل X

اعمل زر أمر وضع في حدث عند النقر الكود التالي:

Dim dbs As DAO.Database
   Dim rst As DAO.Recordset
  
   Set dbs = CurrentDb
   Set rst = dbs.OpenRecordset("Total")
   
   rst.AddNew
      
      rst("coDde").Value = Me.X
      rst("totall").Value = Me.totall
      rst("date").Value = Me.Date

 rst.Update

::

تحياتي