[B]أرجو كتابة الجملة الناقصة فى هذا الكود
[LEFT]
AValue1 = txtFields(1).Text: AValue2 = txtFields(2).Text
Set RS1 = New ADODB.Recordset
RS1.Open "select * FROM " & ATablee & " WHERE (" & AField1 & " = " & CStr(AValue1) & ") ", DB, adOpenStatic, adLockReadOnly
If RS1.RecordCount = 0 Then CORRECT = 0: GoTo 25
Set RS2 = New ADODB.Recordset
RS2.Open "select * FROM " & ATablee & " WHERE (" & AField2 & " = " & CStr(AValue2) & ") ", DB, adOpenStatic, adLockReadOnly
RSend.Open
[COLOR="Blue"] RS2 ما يحقق شرط RS1 أريد كتابة الجملة السابقة بمعنى اختر من
RS1 ما يحقق شرط RS2 أو بمعنى اختر من
أو بمعنى اختر من قاعدة البيانات ما يحقق الشرطين معآ
[/color]
GoTo 50 Adodc1.RecordSource = RS.Source
25 Z = MsgBox("لا يوجد أى سجلات", vbOKOnly, "")
50 End Sub
[/left]أريد استكمال الكود بتعديل جملة الRSend
ولا أريد الكود فى جملة واحدة كهذه
[LEFT] RSend.Open "select * FROM " & ATablee & " WHERE (" & AField1 & " = " & CStr(AValue1) & ") and (" & AField2 & " = " & CStr(AValue2) & ")", DB, adOpenStatic, adLockReadOnly[/left]
ولكم ألف شكر[/b]