وجود چند فيلد اجباري در يك فرم كه با تكميل شدن يكي از آنها شرط از بقيه فيلدها برداشته شود

[abdoreza57]

سلام
يه نمونه برنامه را طراحي كرده ام كه تو اون كاربر مي بايست يكي از سه فيلد را اجبارا بزرگتر از صفر وارد كند
يعني تو هر ركورد نميشه هر سه فيلد را برابر صفر قرار داد
دوستان اگه لطف كنند راهنمايي كنند ممنون ميشم

[bita_ziba77]

با سلام
شما مي توانيد از كدي مشابه زير در رخداد after update فرم خود استفاده نماييد:

Private Sub Form_AfterUpdate()
If Me.adad1.Value = 0 And Me.adad2.Value = 0 And Me.adad3.Value = 0 Then
MsgBox "در يكي از 3 فيلد مرتبط با سفارشات مقدار بزرگتر از صفر را وارد نماييد", vbExclamation + vbOKOnly, "خطا"
End If
End Sub


با تشكر

[abdoreza57]

ممنون از توچهتون
ولي شرط اجباري مي خواهم باشه يعني در صورتي كه هر سه فيلد داراي عدد صفر بود اجازه ورود به ركورد بعدي را به كاربر نداده و پيغام دهد
اخطار msgbox كافي نيست

[abdoreza57]

دوستان ممنون ولي به انتهاي كد بالا اگه اين تكه را اضافه كنم
هم اخطار ميده و هم به يكي از فيلدها تغيير رنگ داده تا مشخص شود


[If Me.adad1.Value = 0 And Me.adad2.Value = 0 And Me.adad3.Value = 0 Then
MsgBox " در يكي از 3 فيلد مرتبط با سفارشات مقدار بزرگتر از صفر را وارد نماييد ", vbExclamation + vbOKOnly, "خطا"
Me.adad1.SetFocus
Me.adad1.BackColor = vbYellow
End If