مشكلة في سعر البيع والشراء

[محمد الورفلي1]

السلام عليكم ورحمة الله

في هذا الملف اريد منع البيع في حالة كان  سعر البيع اقل من سعر الشراء مشكورين

فورم1.xls

[محمد الورفلي1]

 للرفع

السلام عليكم . المطلوب . في الملف ايقاف استمرار عملية البيع في حالة قيمة البيع في التكست اقل من قيمة الشراء 

[أبومروان]

وعليكم السلام ورحمه الله

جرب الكود التالي

Private Sub TextBox1_Change()
 If Me.TextBox1.Value > Me.TextBox2.Value Then
 CommandButton2.Enabled = False
 CommandButton28.Enabled = False
 End If
 CommandButton2.Enabled = True
 CommandButton28.Enabled = True
End Sub

Private Sub TextBox28_Change()
 If Me.TextBox1.Value > Me.TextBox2.Value Then
 CommandButton2.Enabled = False
 CommandButton28.Enabled = False
 End If
CommandButton2.Enabled = True
 CommandButton28.Enabled = True
End Sub

 

[محمد الورفلي1]

في 1‏/5‏/2023 at 01:06, كريم نظيم said:

وعليكم السلام ورحمه الله

جرب الكود التالي

Private Sub TextBox1_Change()
 If Me.TextBox1.Value > Me.TextBox2.Value Then
 CommandButton2.Enabled = False
 CommandButton28.Enabled = False
 End If
 CommandButton2.Enabled = True
 CommandButton28.Enabled = True
End Sub

Private Sub TextBox28_Change()
 If Me.TextBox1.Value > Me.TextBox2.Value Then
 CommandButton2.Enabled = False
 CommandButton28.Enabled = False
 End If
CommandButton2.Enabled = True
 CommandButton28.Enabled = True
End Sub

 

السلام عليكم ...

شكراً استاذ كريم   تم التوصل لحل تغيير بسيظ في الكود الاصلي  .. تم وضعة للاستفادة 

If Val(Me.TextBox1.Value) > Val(Me.TextBox2.Value) Then MsgBox "احذر سعر البيع اقل من سعر الشراء": Exit Sub