محمد الورفلي1 قام بنشر أبريل 26, 2023 مشاركة قام بنشر أبريل 26, 2023 السلام عليكم ورحمة الله في هذا الملف اريد منع البيع في حالة كان سعر البيع اقل من سعر الشراء مشكورين فورم1.xls رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر أبريل 27, 2023 الكاتب مشاركة قام بنشر أبريل 27, 2023 للرفع السلام عليكم . المطلوب . في الملف ايقاف استمرار عملية البيع في حالة قيمة البيع في التكست اقل من قيمة الشراء رابط هذا التعليق شارك More sharing options...
أبومروان قام بنشر أبريل 30, 2023 مشاركة قام بنشر أبريل 30, 2023 وعليكم السلام ورحمه الله جرب الكود التالي 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 رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد الورفلي1 قام بنشر مايو 20, 2023 الكاتب أفضل إجابة مشاركة قام بنشر مايو 20, 2023 في 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 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.