شروط للجدول

--------------------------------------------------------------------------------

Set RS = New ADODB.Recordset

Set RS2 = New ADODB.Recordset

Set RS3 = New ADODB.Recordset

RS.Open "select td1,td2,td3,td4 from out where ", DB, adOpenDynamic, adLockOptimistic

RS2.Open "select ttd1,ttd2,ttd3,ttd4 from data ", DB, adOpenDynamic, adLockOptimistic

RS3.Open "select tdd1,tdd2,tdd3,tdd4 from typeee ", DB, adOpenDynamic, adLockOptimistic

RS.AddNew

'If RS.RecordCount > 0 Then

RS!td1 = Text7(0).Text

RS!td2 = Text1(0).Text

RS!td3 = Text2(0).Text

RS!td4 = Text3(0).Text

RS!Date = Label8.Caption

RS.Update

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

Set DataGrid1.DataSource = RS

Text7(0).Text = ""

Text1(0).Text = ""

Text2(0).Text = ""

Text3(0).Text = ""

سؤالي هو اريد عمل شرط في الجدول الاول اذا كان لما يدخل المستخدم في

text الاول (td1)

اذاكان الرقم الذي ادخله اكبرمن الرقم الموجود في الجدول الثاني (ttd1)

وكان الرقم اقل من الرقم الموجود في الجدول الثالث (tdd1)

يظهر رساله لايقبل الحفظ

وهكذا في باقي الحقول

ويقبل الحفظ

اذا كان اقل من الحقل (ttd1)

واكبر من القيمه الموجود (tdd1)

واريد عمل رساله اذا كان الحقول الموجود في الجدول الثالث احدها او كلها صفر يظهر رساله الحقل فارغ

وشكر اتمنى المساعده بسرعه وقت وشكر

واتمنى سؤالي واضحه وشرح وشكر

المشكله عندي كيفيه اعمل شروط لكل الحقول الصيغه نفسها