بعد ظهور الرساله عند تعديل السعر ارجاع المبلغ كما كان سابقا

[النجاشي]

السلام عليكم

احبتي الكرام

عندما اعدل بالسعر اكبر من السعر الحالي تظهر لي رساله ويرجع التركيز لنفس الحقل اريد السعر يرجع كما كان سابقا

مثلا السعر 600 وانا عدلت 700 طبعا بتظهر الرساله ويرجع التركيز لنفس الحقل اريد السعر يرجع 600  اسم النموذج frmEdrajSenfm ويفتح بعد فتح نموذج المردود وادخال رقم فاتوره البيع واضغط انتر

تحياتي احبابي

رساله المبلغ.rar

[jjafferr]

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

 

اسنخدم هذا الكود في حدث "بعد التحديث" لحقل n9

Private Sub n9_AfterUpdate()
'Dim i, x As Integer
'x = Me.Price_Sales
'i = Me.n9
'If i > x Then
'MsgBox ("السعر اكبر ")
'Me.Rajmsanf.SetFocus
'Me.n9.SetFocus
'Exit Sub
'End If


    If Me.n9 > Me.Price_Sales Then
        MsgBox ("السعر اكبر ")
        Me.Rajmsanf.SetFocus
        Me.n9.SetFocus
        Me.n9 = Me.Price_Sales
    End If

End Sub

 

جعفر

[النجاشي]

17 دقائق مضت, jjafferr said:

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

 

اسنخدم هذا الكود في حدث "بعد التحديث" لحقل n9

Private Sub n9_AfterUpdate()
'Dim i, x As Integer
'x = Me.Price_Sales
'i = Me.n9
'If i > x Then
'MsgBox ("السعر اكبر ")
'Me.Rajmsanf.SetFocus
'Me.n9.SetFocus
'Exit Sub
'End If


    If Me.n9 > Me.Price_Sales Then
        MsgBox ("السعر اكبر ")
        Me.Rajmsanf.SetFocus
        Me.n9.SetFocus
        Me.n9 = Me.Price_Sales
    End If

End Sub

 

جعفر

استاذي بارك الله فيك واعطاك الصحه والعافيه ويزيك علما 

صار الان ممتاز 

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

الشكر اليك ابوالجعافر

[jjafferr]

لم الحظ ان القيم عندك كانت نص !!

 

استخدم هذا السطر

If Val(Me.n9) > Val(Me.Price_Sales) Then

بدلا عن
If Me.n9 > Me.Price_Sales Then

 

جعفر

[النجاشي]

7 دقائق مضت, jjafferr said:

لم الحظ ان القيم عندك كانت نص !!

 

استخدم هذا السطر

If Val(Me.n9) > Val(Me.Price_Sales) Then

بدلا عن
If Me.n9 > Me.Price_Sales Then

 

جعفر

شكرا اليك هذا المطلوب 

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

لم الحظ ان القيم عندك كانت نص !!

حتا انا لم اكون منتبه للتنسيق  الف تحيه اليك