تفعيل حقل

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

السلام عليكم : لي طلب وهو عند اختيار ( نقداً ) من قائمة منسدلة يكون حقل المبلغ مفعل
وعند اختيار ( آخل ) من القائمة المنسدلة يكون حقل المبلغ غير مفعل 
ولكم جزيل الشكر

تجريي2.rar

[jjafferr]

تفضل

 

.

جعفر

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

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

22 ساعات مضت, jjafferr said:

تفضل

 

.

جعفر

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

ماشاء الله عليك أخي جعفر على سرعة الرد ،،،، أشكرك ودمت لنا سنداً في المساعدة ،،، هذا هو المطلوب

[jjafferr]

الله يخليك

سريع ، لأني توني متعشي

 

جعفر

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

22 ساعات مضت, jjafferr said:

الله يخليك

سريع ، لأني توني متعشي

 

جعفر

ههههه زين قبل أن تكون جوعان 

استفسار آخر : إذا اخترت من القائمة  ( نقداً ) أريد يكون مبلغ الخدمة إجبارياً مساوي سعر الخدمة

تجريي2.rar

[jjafferr]

جرب هاي

 

Private Sub Amountofservice_BeforeUpdate(Cancel As Integer)

    If Me.Payment_type = "نقدا (cash )" And Me.Amountofservice <> Nz(Me.Net, 0) Then
        MsgBox "Amountofservice يجب ان يساوي Net"
        Cancel = True
    End If
    
End Sub

Private Sub Payment_type_BeforeUpdate(Cancel As Integer)

    If Me.Payment_type = "نقدا (cash )" Then
    
        Me.Amountofservice = Nz(Me.Net, 0)
    End If
    
End Sub

 

جعفر

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

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

22 ساعات مضت, jjafferr said:

جرب هاي

 

Private Sub Amountofservice_BeforeUpdate(Cancel As Integer)

    If Me.Payment_type = "نقدا (cash )" And Me.Amountofservice <> Nz(Me.Net, 0) Then
        MsgBox "Amountofservice يجب ان يساوي Net"
        Cancel = True
    End If
    
End Sub

Private Sub Payment_type_BeforeUpdate(Cancel As Integer)

    If Me.Payment_type = "نقدا (cash )" Then
    
        Me.Amountofservice = Nz(Me.Net, 0)
    End If
    
End Sub

 

جعفر

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

شكراً أخي جعفر حفظك الله ، هذا هو المطلوب 

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

في 1/3/2018 at 10:22, jjafferr said:

جرب هاي

 

Private Sub Amountofservice_BeforeUpdate(Cancel As Integer)

    If Me.Payment_type = "نقدا (cash )" And Me.Amountofservice <> Nz(Me.Net, 0) Then
        MsgBox "Amountofservice يجب ان يساوي Net"
        Cancel = True
    End If
    
End Sub

Private Sub Payment_type_BeforeUpdate(Cancel As Integer)

    If Me.Payment_type = "نقدا (cash )" Then
    
        Me.Amountofservice = Nz(Me.Net, 0)
    End If
    
End Sub

 

جعفر

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

أخي جعفر : السلام عليكم : أريد عند أختيار من القائمة ( آجل الدفع ) أريد المبلغ ينتقل من حقل مبلغ الخدمة إلى حقل المتبقي

850.1.تجريي2.rar

[jjafferr]

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

 

اذن ، حقل المتبقي = القيمة السابقة في حقل المتبقي + مبلغ الخدمة

ثم ، مبلغ الخدمة = صفر

 

Private Sub Payment_type_BeforeUpdate(Cancel As Integer)

    If Me.Payment_type = "نقدا (cash )" Then
    
        Me.Amountofservice = Nz(Me.Net, 0)
    
    ElseIf Me.Payment_type = "آجل (Posterior)" Then
    
        Me.Residua = Nz(Me.Residua, 0) + Nz(Me.Amountofservice, 0)
        Me.Amountofservice = 0  'اذا اردت ان تصبح قيمة الحقل (مبلغ الخدمة) = صفر بعد نقل القيمة الى الحقل (المتبقي)
    End If
    
End Sub

 

جعفر

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

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

23 ساعات مضت, jjafferr said:

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

 

اذن ، حقل المتبقي = القيمة السابقة في حقل المتبقي + مبلغ الخدمة

ثم ، مبلغ الخدمة = صفر

 

Private Sub Payment_type_BeforeUpdate(Cancel As Integer)

    If Me.Payment_type = "نقدا (cash )" Then
    
        Me.Amountofservice = Nz(Me.Net, 0)
    
    ElseIf Me.Payment_type = "آجل (Posterior)" Then
    
        Me.Residua = Nz(Me.Residua, 0) + Nz(Me.Amountofservice, 0)
        Me.Amountofservice = 0  'اذا اردت ان تصبح قيمة الحقل (مبلغ الخدمة) = صفر بعد نقل القيمة الى الحقل (المتبقي)
    End If
    
End Sub

 

جعفر

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

جزاك الله خير ،،،،، بس ملاحظة بسيطة أنه في حال نقل القيمة من حقل المتبقي إلى حقل مبلغ الخدمة أريد حقل المتبقي يكون صفر .

[jjafferr]

2 دقائق مضت, قهرني الأوفيس said:

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

احنا ما عندنا هذا الشرط !!

 

عندك شرطين:

1. إذا اخترت من القائمة  ( نقداً ) أريد يكون مبلغ الخدمة إجبارياً مساوي سعر الخدمة

2. عند أختيار من القائمة ( آجل الدفع ) أريد المبلغ ينتقل من حقل مبلغ الخدمة إلى حقل المتبقي

 

جعفر

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

22 ساعات مضت, jjafferr said:

احنا ما عندنا هذا الشرط !!

 

عندك شرطين:

1. إذا اخترت من القائمة  ( نقداً ) أريد يكون مبلغ الخدمة إجبارياً مساوي سعر الخدمة

2. عند أختيار من القائمة ( آجل الدفع ) أريد المبلغ ينتقل من حقل مبلغ الخدمة إلى حقل المتبقي

 

جعفر

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