استكمال هذا الكود


(اسلام الكبابى) #1

[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]