اختيار خمس خدمات أريد السادسة تظهر لي مجانا (عنوان معدل)

[قهرني الأوفيس]

السلام عليكم ورحمة الله : إخواني خبراء الأكسس إريد مساعدة وهي عند اختيار خمس خدمات أريد السادسة تظهر لي مجانا :،،،،، السؤال موضح بالمرفق

تجريي2.rar

[قهرني الأوفيس]

بنتظاركم 

[jjafferr]

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

 

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

    a = DCount("*", "Service", "[Nameemployee1]='" & Me.Name_employee1 & "' And [CustomerNumber]=" & Me.CustomerNumber)
    MsgBox a

لكن عندك خطأ في مربع اختيار المواد بالعربي والانجليزي واللي ما يساوون بعض!!

ثم في نفس المربعات ، يجب ان تربط اختيار المادة بأحد اعمدة الاستعلام:

 

جعفر

[قهرني الأوفيس]

في 12/2/2017 at 09:02, jjafferr said:

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

 

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

    a = DCount("*", "Service", "[Nameemployee1]='" & Me.Name_employee1 & "' And [CustomerNumber]=" & Me.CustomerNumber)
    MsgBox a

لكن عندك خطأ في مربع اختيار المواد بالعربي والانجليزي واللي ما يساوون بعض!!

ثم في نفس المربعات ، يجب ان تربط اختيار المادة بأحد اعمدة الاستعلام:

 

جعفر

أشكرك أخي جعفر على الرد ماقصرت ،،،، بس أخي جعفر الكود وين أحطه في أي خيار 

وكمان بخصوص الخطأ ياريت تعدل لي عليه وترفق لي التعديل .

سامحني وتقبل تحياتي

[jjafferr]

تفضل

 

انا عملت تغيير في الجدول ، فعملت اسماء الخدمة عبارة عن رقم ، وفي النموذج ، يختار مربع السرد العمود الصحيح لإعطاء الاسم ، سواء بالعربي او الانجليزي

 

ولكنك ستلاحظ ان الكود سيعمل الى ان تحصل على الخدمة السادسة بالمجان ،

ولكن ماذا بعد ذلك؟

رجاء تجربة الكود لعدة زبائن

 

والكود:

Private Sub Name_employee1_AfterUpdate()
Me.Amountofservice = Me.Name_employee1.Column(2)
Me.ServiceName = Me.Name_employee1  'Me.Name_employee1.Column(1)

    Call Check_Qty
End Sub

Private Sub ServiceName_AfterUpdate()
Me.Amountofservice = Me.ServiceName.Column(2)
Me.Name_employee1 = Me.ServiceName  'Me.ServiceName.Column(3)
 
    Call Check_Qty
End Sub

Private Sub Check_Qty()

    If DCount("*", "Service", "[Nameemployee1]=" & Me.Name_employee1 & " And [CustomerNumber]=" & Me.CustomerNumber) = 5 Then
        Me.Amountofservice = 0
    End If

End Sub

.

جعفر

 

780.تجريي2.accdb.zip

[قهرني الأوفيس]

في 12/3/2017 at 13:32, jjafferr said:

تفضل

 

انا عملت تغيير في الجدول ، فعملت اسماء الخدمة عبارة عن رقم ، وفي النموذج ، يختار مربع السرد العمود الصحيح لإعطاء الاسم ، سواء بالعربي او الانجليزي

 

ولكنك ستلاحظ ان الكود سيعمل الى ان تحصل على الخدمة السادسة بالمجان ،

ولكن ماذا بعد ذلك؟

رجاء تجربة الكود لعدة زبائن

 

والكود:

Private Sub Name_employee1_AfterUpdate()
Me.Amountofservice = Me.Name_employee1.Column(2)
Me.ServiceName = Me.Name_employee1  'Me.Name_employee1.Column(1)

    Call Check_Qty
End Sub

Private Sub ServiceName_AfterUpdate()
Me.Amountofservice = Me.ServiceName.Column(2)
Me.Name_employee1 = Me.ServiceName  'Me.ServiceName.Column(3)
 
    Call Check_Qty
End Sub

Private Sub Check_Qty()

    If DCount("*", "Service", "[Nameemployee1]=" & Me.Name_employee1 & " And [CustomerNumber]=" & Me.CustomerNumber) = 5 Then
        Me.Amountofservice = 0
    End If

End Sub

.

جعفر

 

780.تجريي2.accdb.zip

اشكرك جزيل الشكر أخي جعفر هذا ما أريده يحفظك الله