تعديل خانة بنموذج بشرط معين بناء على قيمة خانة أخرى

[figo82eg]

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

ومرفق مثال لما اريد

New Microsoft Office Access Application.rar

[ابوبسمله]

السلام عليكم

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

فى حدث بعد التحديث لنوع الايصال

Private Sub kindEsal_AfterUpdate()
'kindEsal  - نوع الاصال
If kindEsal = "دفع نقدى" Then
    With Forms!form1!
        If Len(.ZDate & "") = 0 Then
            .krd = 0
            .numKrd = 0
            .kst = 0
        End If
    End With
End If

End Sub

بالتوفيق

New Microsoft Office Access Application.mdb

[figo82eg]

 

Private Sub kindEsal_AfterUpdate()
'kindEsal  - نوع الاصال
If kindEsal = "دفع نقدى" Then
    With Forms!البيانات الرئيسيه!
        If Len(.ZDate & "") = 0 Then
            .krd = 0
            .numKrd = 0
            .kst = 0
        End If
    End With
End If

End Sub

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

[ابوبسمله]

34 دقائق مضت, figo82eg said:

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

لم ارغب بالتنبيه لاننا ننبه ولا احد يستمع

36 دقائق مضت, figo82eg said:

فهل يوجد حل دون تغيير إسم النموذج

حتى وانت تسال عن الحل لا تريد التغيير

نعم يوجد بانه تضعه بين الاقواس المربعه  []

[نوع الايصال]

بالتوفيق

[figo82eg]

 

12 minutes ago, احمد الفلاحجي said:

لم ارغب بالتنبيه لاننا ننبه ولا احد يستمع

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

 

12 minutes ago, احمد الفلاحجي said:

نعم يوجد بانه تضعه بين الاقواس المربعه  []

مرفق لحضرتك صورة الخطأ حتى بعد وضع أقواس مربعه

تم تعديل يناير 15, 2021 بواسطه figo82eg

[ابوبسمله]

اتفضل اخى حسام

وحاول تعدل علشان تتلافى المشاكل دى وخلى التسميات بالعربى فى تسميه توضيحيه

Private Sub kindEsal_AfterUpdate()

'kindEsal  - نوع الاصال
If kindEsal = "دفع نقدى" Then
    If Len(Forms("البيانات الرئيسيه").Form.[ZDate] & "") = 0 Then
       Forms("البيانات الرئيسيه").Form![krd] = 0
        Forms("البيانات الرئيسيه").Form.[numKrd] = 0
        Forms("البيانات الرئيسيه").Form.[kst] = 0
    End If
End If

End Sub

بالتوفيق