[superwoofer]

عندي مشكلة
عند وجود ناتج يظهر في text1
عندما لايجد ناتج يظهر خطا

Set rs = Nothing
If rs.State = 1 Then rs.Close
rs.CursorLocation = adUseClient

rs.Open "SELECT Sum(XXX) as ww FROM XXXX Where XXX = '" & Combo1.Text & "' and XXX='XXX' ", Adodc1.ConnectionString, 1, 3

Text1 = rs![ww]

[تركي الحلواني]

PHP كود :

Set rs = Nothing
If rs.State = 1 Then rs.Close
rs.CursorLocation = adUseClient

rs.Open "SELECT Sum(XXX) as ww FROM XXXX Where XXX = '" & Combo1.Text & "' and XXX='XXX' ", Adodc1.ConnectionString, 1, 3
If rs.RecordCount =1 Then

Text1 = rs![ww] 
End If 


[asto]

ان استمر الخطأ اكتب قبل اعلى set

on error resume next

[superwoofer]

بارك الله فيكم
قمت باستبدالها ب datagrid