النجاشي قام بنشر ديسمبر 29, 2017 مشاركة قام بنشر ديسمبر 29, 2017 السلام عليكم احبتي الكرام عندما اعدل بالسعر اكبر من السعر الحالي تظهر لي رساله ويرجع التركيز لنفس الحقل اريد السعر يرجع كما كان سابقا مثلا السعر 600 وانا عدلت 700 طبعا بتظهر الرساله ويرجع التركيز لنفس الحقل اريد السعر يرجع 600 اسم النموذج frmEdrajSenfm ويفتح بعد فتح نموذج المردود وادخال رقم فاتوره البيع واضغط انتر تحياتي احبابي رساله المبلغ.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 29, 2017 مشاركة قام بنشر ديسمبر 29, 2017 وعليكم السلام اسنخدم هذا الكود في حدث "بعد التحديث" لحقل 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 جعفر 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر ديسمبر 29, 2017 الكاتب مشاركة قام بنشر ديسمبر 29, 2017 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 جعفر استاذي بارك الله فيك واعطاك الصحه والعافيه ويزيك علما صار الان ممتاز في ملاحظه بعد اذنك استاذي وهي اريده يسمح بسعر اقل الشكر اليك ابوالجعافر رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 29, 2017 مشاركة قام بنشر ديسمبر 29, 2017 لم الحظ ان القيم عندك كانت نص !! استخدم هذا السطر If Val(Me.n9) > Val(Me.Price_Sales) Then بدلا عن If Me.n9 > Me.Price_Sales Then جعفر 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر ديسمبر 29, 2017 الكاتب مشاركة قام بنشر ديسمبر 29, 2017 7 دقائق مضت, jjafferr said: لم الحظ ان القيم عندك كانت نص !! استخدم هذا السطر If Val(Me.n9) > Val(Me.Price_Sales) Then بدلا عن If Me.n9 > Me.Price_Sales Then جعفر شكرا اليك هذا المطلوب سلمت يديك حبيبنا جعفر وشكر علي التنبه لم الحظ ان القيم عندك كانت نص !! حتا انا لم اكون منتبه للتنسيق الف تحيه اليك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان