22-06-14, 01:42 AM
بدك تضع كود في الكوماند1
كود :
do until rs.eof
if rs!الرقم = Text1.Text then
i=1
else
i=0
rs.movenext
loop
if i=0 then
نفس الكود الموجود مسبقا في الكوماند1 كله
endif