شرط بين قيمتين

RS.Open "select * from ou ", DB, adOpenDynamic, adLockOptimistic

RS.AddNew

RS!Name = Text7(0).Text

RS!Rfr = Text1(0).Text

RS!Mr = Text2(0).Text

RS!Upe = Text3(0).Text

RS!Mu = Text4(0).Text

RS!Ou= Text5(0).Text

RS!Ba = Text6(0).Text

RS!Date = Label8.Caption

' Set DataGrid1.DataSource = RS

RS.Update

'DataGrid1.DataSource = RS

MsgBox "ÊãÊ ÚãáíÉ ÇáÍÝÙ"

Set DataGrid1.DataSource = RS

Text7(0).Text = ""

Text1(0).Text = ""

Text2(0).Text = ""

Text3(0).Text = ""

Text4(0).Text = ""

Text5(0).Text = ""

Text6(0).Text = ""

اريد لو سمحتوا عمل شرط لكل حقل اذا كان الرقم الذي يدخل في الtext اقل من صفر

او اكبر من القيمه في الجول الثاني

يظهر رساله وعدم الحفظ

لتوضح اكثر انا عندي جدولين

الجدول الاول

القيم السابقه ( name.................)

والجدول الثاني

(bRfr _bMr _ bUpe _ bMu _ bOu _bBa )

والجدول الثالث

(TRfr _ TMr _ TUpe _ TMu _ Tou _TBa)

اذا كان الجدول الثالث القميه فيه مثلا الكل 100

اما الجدول الثاني

يكون اقل من 100 او البعض صفر

اريد عمل شرط في

الكود السابق

فحص اذا كان Rfr اكبرمن القيمه الموجود في الجدول الثالث (TRfr) يظهر رساله لا يقبل

واذا كان Rfr اكبر من القيمه الموجود في الجدول الثاني bRfr او اكبر من صفر اذا كان القيمه في الجدول الثاني bRfr

يظهر رساله ولا يحفظ في القاعده

يحفظ بس في حاله واحد بين القيمه الجدول الثالث والجدول الثاني

وشكر

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